[DANZZ]

Вопрос в следуещем:
Добавляю в приметивы расширенные данные

(defun add ( / A1 A2 A3 A4 step4)
(regapp "LAUNCH01")
(setq step4 0)
(while (/= (ssname Choice step4) nil)

(setq A1 (entget (ssname Choice step4)))
(setq A2 (list (list -3 (list "LAUNCH01" (cons 1000 "vnsk")))))
(setq A1 (append A1 A2))
(entmod A1)
(entupd (ssname Choice step4))
(setq Step4 (+ Step4 1))
)
)
Реактор на двойной клик мышью

(defun c:reac4 (/)
(vl-load-com)
(setq mouser (vlr-mouse-reactor "Ðåàêòîð ìûøè: " (list '(:vlr-beginDoubleClick . ccol))))
)

Функция отклика на двойной щелчок мыши

(defun ccol (argpoint / _ss1 _ve1 _col dcl_id dcl_id what_next)

(setq _ss1 (ssget (car argpoint) '((-3 ("LAUNCH01" (1000 . "vnsk"))))
)
)
(if ( /= _ss1 null)
(progn
(setq _ve1 (vlax-ename->vla-object (ssname _ss1 0)))
(setq dcl_id (load_dialog "dialog.dcl"))
(if (null (new_dialog "vnsk_dialog" dcl_id))
(exit)
)
(setq what_next (start_dialog))
(unload_dialog dcl_id)
(command "_DBLCLKEDIT" "_on")
(princ)
);progn
);if

);defun ccol

выдает:
ошибка: неверный тип аргумента: lselsetp nil
'_.properties

что тут не правильно?

[DANZZ]

тут явно ошибка в '((-3 ("LAUNCH01" (1000 . "vnsk")))), т.к. когда для теста ставлю '((8. "0")) (фильтор по слою) все работает, фильтровать по расширенным данным отказываеться, или я их не правильно описываю...
подскажите люди добрые как надо...

[DANZZ]

сюда надо добавить reac (defun ccol (argpoint / _ss1 _ve1 _col dcl_id dcl_id what_next) т.е.

(defun ccol (reac argpoint / _ss1 _ve1 _col dcl_id dcl_id what_next)

[AY]

>DANZZ
Если не ошибаюсь, можно фильтровать только на предмет наличия каких-либо расширенных данных, но не по их конкретным значениям. Воспользуйся поиском по форуму об этом неоднократно писалось. Кроме того, описание именно этого момента есть и в справке.

[DANZZ]

Огромное спасибо, нашел, все работает