[dextron3]

Хотел посоветоваться

Можно ли сделать лисп в котором бы хранились часто используемые слова и фразы в автокаде... (сами слова пополнялись в текстовом файле из которого бы читала их программа)

сам лисп имелбы интерфейс как на скриншоте...

Принцип действия:

1. Нажал на кнопку вышло окошко
2. Щелкунл двойгым щелчком
3. Затем выбрал текст или м-текст (и он заменился бы на выбранный)

очень нужно для примечаний гостов, и тп.п что не всегда можно запомнить...


Надеюсь на помощь VVA... (у Вас был похожий вариант со вставкой букв в алфавитном порядке)

[dextron3]

gipro, попробуй словарь англицкими буквами написать в названии

[gipro]

думаю, что запомнит словарь, когда хоть раз успешно завершит команду. У меня чего-то не выходит...

[VVA]

>gipro Исправил #12. Ошибка вылетала, когда был пустой выбор рамкой. У тебя там не было текстов. Словарь пишется в эту ветку реестра (см. выделение красным). Соответственно нужны права. Если их нет, тио можно путь изменить, например, на HKEY_CURRENT_USER

Код:

[Выделить все]

 
(defun mip-reg-get-path ()"HKEY_LOCAL_MACHINE\\Software\\MIP")

[gipro]

А, понял... Нужно предварительно вставить любой другой текст. Просто я думал он будет вставляться прямо из окошка. Разобрался. Спасибо.
За подсказку с реестром - тоже спасибо. Теперь все работает!!

[VVA]

gipro, Добавил в #12 Команду NBOOK1. Вставляет новый текст текущим стилем, текущей высотой. Если укажешь ячейку таблицы, то вставит в таблицу, иначе вставит как текст

[dextron3]

VVA, NBOOK1 некорректно работает чтото у меня стоит стиль GOST 2.3.04, а вставляет все в стандартном почему то что только не делал

[kp+]

Кулик Алексей aka kpblc, код может и старый, но мне подошел. Премного благодарен!

[dextron3]

VVA, вот видеоролик с недоработкой лиспа

[VVA]

исправил #12

[dextron3]

VVA, зароботоло! спасибо

А можно сделать ввиде вкладок чтобы считывало с нескольких текстовых документов,

тоесть вкладка к примеру КЖ, или КМ, тоесть как называется блокнотик так и вкладка называлась, потому что охото группировать свои примечания а не в разброс в хаотическом порядке...

буду ждать ответа...

[gipro]

VVA, Работает отлично!! Именно то, что я хотел - если не лучше!!!
dextron3, умеешь ты озадачить людей Молодец!!!

[VVA]

dextron3, DCL не позволяет делать вкладки.

[dextron3]

VVA, а можно создать кнопку макрос под данный лисп, чтобы автоматом загружала выбранный в макросе текстовый документ?, тогда можно и без вкладок обойтись

[dextron3]

VVA, а можно ли этот лисп использовать, из нескольких копий, тоесть скопировать к примру три раза и каждый и на каждый прописать отдельный текстовый файл, тоесть каждый лисп отвечает за свой собственный файл, и тогда получается на каждую кнопку прописать независимый лисп, не будет глючить реестр где хранятся настройки файла с текстом?

[VVA]

dextron3, Можно. Данные о последнем файле хранятся в реестре
в ключах: "LASTDIR" и "LASTFILE". Сделай копию и поиском и заменой заменяй на "LASTDIR1", "LASTFILE1"; "LASTDIR2" и "LASTFILE2" и т.д.

[dextron3]

VVA, спасибо, вкладки отпали сами собой

можно небольшой вопрос нужен придаток еще в виде лиспа для записной книжки:

Исользую нумератор от Дениса, но очень сложный в настройках

Навтыкал примечаний, нужно их пронумеровать в порядке возрастания, по оси Y,

Было:

Смотри на лист 2
Консультации проектировщика по номеру...
Для отверстий ищи файлы раздела АР

Стало:

1. Смотри на лист 2
2. Консультации проектировщика по номеру...
3. Для отверстий ищи файлы раздела АР

Тоесть префик 1. пробел

Чтобы выделялось рамочкой автокада, и все тексты нумеровались

помню у вас был лисп автонумератор, может над ним поколдовать?

[VVA]

dextron3,

Код:

[Выделить все]

(defun C:NUM_Y ( / ss start i lst ed str )
  (vl-load-com)
  (and (setq start (getint "\nНачальный номер <выход>: "))
       (setq ss (ssget "_:L" '((0 . "*TEXT"))))
       (setq lst nil i '-1)
       (repeat (sslength ss)
	 (setq lst (cons (ssname ss (setq i (1+ i))) lst))
	 )
       (setq lst (vl-sort lst '(lambda (e1 e2)
				 (> (caddr(assoc 10 (entget e1)))(caddr(assoc 10 (entget e2))))
				 )
			  )
	     )
       (foreach e1 lst
	 (setq ed (entget e1))
	 (setq str (cdr(assoc 1 ed)))
	 (setq ed (subst (cons 1 (strcat (itoa start) ". " str))
			 (assoc 1 ed)
			 ed)
	       )
	 (entmod ed)
	 (setq start (1+ start))
	 )
       )
  (princ)
  )

[dextron3]

VVA, спасибо!

теперь реально ускоряет работу, производительность 200% при заполнении примечаниями листы....

теперь запросто в проекте могу снипы обзацами цитировать, по моим проектам обычно обычные люди строят, как бы частный сектор, которым не по карману нанять прораба

[dextron3]

VVA, а можно еще вариацию лиспа NUM_Y, чтобы он просто цыфры по порядку выставлял, без пробела и точки (т.е. любой текст заменял на цыфры по оси Y) нужно для спецификации, потомучто иногда бывает что цыфр не хватает я копирую и использую програмку от Дениса на VBA, но она очень навороченная, а хочется простого...

[Red Nova]

VVA,
kpblc
Я пользуюсь мтекстом. Так что использую лисп personal mtext simbols для добавки своих символов, (наверное аналогично лиспу от крыса). Огорчает то, что там лимит в 25 строк. Нет варианта лимит увеличить, или сделать лисп работающий в мтекст эдиторе для добавки своих символов?
dextron3,

использую програмку от Дениса на VBA, но она очень навороченная, а хочется простого

Присоеденяюсь. Только наверное стоит оставить запрос первого номера.