[编程交流] 向activeselectionset添加项

 
(setq test1 
 (vlax-safearray-fill 
   (vlax-make-safearray vlax-VBobject (cons 0 0))
   (list (vlax-ename->vla-object (car (entsel))))
 )
)
(setq test2
 (vlax-make-variant test1)
)
;;both of these will not add an item to the activeselectionset
;test1
(vla-additems (vla-get-activeselectionset *acdoc*) test1)
;test2
(vla-additems (vla-get-activeselectionset *acdoc*) test2)

(defun c:test ( / acdoc acsel acutl obj )
   (setq acdoc (vla-get-activedocument (vlax-get-acad-object))
         acutl (vla-get-utility acdoc)
   )
   (if (ssget)
       (progn
           (setq acsel (vla-get-activeselectionset acdoc))
           (princ (strcat "\nSelSet Count: " (itoa (vla-get-count acsel))))
           (while
               (not
                   (vl-catch-all-error-p
                       (vl-catch-all-apply 'vla-getentity
                           (list acutl 'obj 'pnt "\nSelect Object to Add: ")
                       )
                   )
               )
               (vla-additems acsel
                   (vlax-make-variant
                       (vlax-safearray-fill
                           (vlax-make-safearray vlax-vbobject '(0 . 0)) (list obj)
                       )
                   )
               )
               (princ (strcat "\nSelSet Count: " (itoa (vla-get-count acsel))))
           )
       )
   )
   (princ)
)

(vlax-dump-object (vlax-get (vlax-get (vlax-get-acad-object) 'ActiveDocument) 'Activeselectionset) t)

4