[Eddicordo]

Доброго времени суток. Ну собственно в названии темы и заложен вопрос.
Можно ли в "Параметр выбора" (Lookup) или в "Параметр видимости" (Visibility) записать макрос запуска Lisp программы.
Получится прикольная цяця. Вставили дин блок и через параметр выбора запустится Lisp программа и выполнит какие то действия.

[Лиспер]

Я думаю, это практически невозможно. Надо писать объектный реактор, а учитывая поведение дин.блоков, это не так просто, как хотелось бы.

[TararykovDG]

А по-моему вполне возможно. Как раз реакторы и связываю какое-либо событие с функцией действия (лиспом), при этом не обязательно ипользовать объектный реактор, можно и с помощью командного реактора.
Вот примеры:
http://forum.dwg.ru/showthread.php?p=638496&#post638416
http://forum.dwg.ru/showthread.php?p=641180&#post641180

[Лиспер]

TararykovDG, а какая команда запускается при смене Lookup-параметра дин.блока?

[Дима_]

Сообщение от Лиспер а какая команда запускается при смене Lookup-параметра дин.блока?

Как минимум срабатывает :vlr-modified (только-что проверил).
p.s. я как-то делеал "интерактивную" привязку построений по табличным данным (меняется таблица и "на глазах" перерисовывается чертеж), в итоге пришел к тому - что самым надежным методом - будет сохранения в программе реактора "ссылки" на созданные примитивы - и при изменении данных - полной их перерисовки (удалению и рисованию заново) - получается дольше, но на моем чертеже вполне приемлимо, а всевозможых косяков меньше на порядок (вроде как вобще не жаловались).

[TararykovDG]

Сообщение от Лиспер TararykovDG, а какая команда запускается при смене Lookup-параметра дин.блока?

"GRIP_STRETCH" - при растяжении
"GRIP_POPUP" - при изменении параметра видимости или параметра выбора
Как пример

Код:

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

; ----------------------------------------------------------------
Определяем командный реактор
(setq dbr (vlr-command-reactor "Реактор команд: "
	      (list '(:vlr-commandEnded . func1) ; связываем функция действия func1 с событием закончена команда AutoCAD
		    )
	      )
	)
; -----------------------------------------------------------------

; ----------------------------------------------------------------
Функция действия
(defun func1(reac data / )
  (if (and (or (= (car data) "GRIP_STRETCH") (= (car data) "GRIP_POPUP"))) ; проверяем какая команда вызвала функцию
    (if (setq nbr (cadr (ssgetfirst))) получаем ссылку на объект (например наш дин. блок)
      (...
	)
    )
  )
); End Get-Format-Koef
; ----------------------------------------------------------------

[Supermax]

См. http://dwg.ru/dnl/5290
там даже выход в интернет есть. Смотришь свойство "Сайт производителя" и давишь на него, выпадает выбор из двух пунктов, непосредственно имя сайта и опция "Подключиться". Запускается Автокадовский браузер и соединяет со страницей этого изделия на сайте производителя.

Короче, с идеей ты опоздал.