---

Hallo,

kann man Objekte nur mit (ssget "X" ...) sammeln, oder gibt es auch eine Möglichkeit mit ActiveX??

Schon mal vielen Dank für eure Hilfen!!

Gruß
Wolfgang

------------------
LISP = Lots of Insane Stupid Parantheses

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Code:

---

(ssget "x" ) equivalent for ActiveX in Vlisp with filtering
Pass this routine your selection set filter. It will return a list
containing the variant arrays you need:

(setq filter (ax:BuildFilter '((8 . "A-coldims,A-colbub,A-colgrid"))))
(vla-Select ss acSelectionSetAll nil nil (car filter) (cdr filter))

(defun ax:BuildFilter (filter)
(vl-load-com)
(mapcar '(lambda (lst typ)
(vlax-make-variant
(vlax-safearray-fill
(vlax-make-safearray
typ
(cons 0
(1- (length lst))
)
)
lst
)
)
)
(list (mapcar 'car filter) (mapcar 'cdr filter))
(list vlax-vbInteger vlax-vbVariant)
)
)

---

---

------------------
MfG Proxy

Bitte beachten Sie: Die Verwendung der hier bereitgestellten Signatur geschieht auf Ihre eigene Verantwortung. Diese Signatur wird ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität, sowie ohne Anspruch auf Support zur Verfügung gestellt.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke!!

------------------
LISP = Lots of Insane Stupid Parantheses

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

wie erweitert man die Liste
(ax:BuildFilter '((8 . "A-coldims,A-colbub,A-colgrid"))) ...

um auch Objekte zu sammeln, die den Gruppencode -3 besitzen?

Gruß
Wolfgang

------------------
LISP = Lots of Insane Stupid Parantheses

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP