[Composter]

Скажите возможно ли создание набора с помощью activeX ,толко что бы происходил отсев не по DXF группам ,а по свойствам или методам ActiveX ??? если возможно то хотелось бы это увидеть в лиспе.

[Дима_]

Ихмо только ручками - набор (ssget "_a") в список - vl-remove-if ненужных и обратно в набор.

[Composter]

я сам делаю вот так , мож есть вариант по проще ?

Код:

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

(setq bit (vla-get-textstring (vlax-ename->vla-object (car (nentsel "Выберите текст - образец")))))
(setq ss1 (ssget))
(mapcar
          '(lambda (name)(if (/= (vl-catch-all-apply 'vla-get-textstring (list(vlax-ename->vla-object name))) bit)
			     (ssdel name ss1)
			     
			 )
	   )
	
(vl-remove-if 'listp (mapcar 'cadr (ssnamex ss1))) 
)

[Дима_]

Так на выходе у тебя не набор, а список примитивов - тогда ИХМО проще с ssdel не заморачиваться:

Код:

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

(setq bit (vla-get-textstring (vlax-ename->vla-object (car (nentsel "Выберите текст - образец")))))
(vl-remove-if-not
'(lambda (obj)
(/= (vl-catch-all-apply 'vla-get-textstring (list (vlax-ename->vla-object obj))) bit)
);end of lambda
(vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget)))))

а ежили далее они как vl объекты используються то сразу:

Код:

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

(vl-remove-if-not
'(lambda (obj)
(/= (vl-catch-all-apply 'vla-get-textstring (list obj)) bit)
);end of lambda
(mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget))))))

p.s. - код не проверял - но суть думаю ясна.