高手帮忙

liu_kunlun

我想建立一个包含模型空间所有园的选择集，用如下代码：

(Setq selects (vla-get-SelectionSets (vla-get-ActiveDocument (vlax-get-acad-object))))
(setq select (vla-add selects "sset"))
(vla-select select acSelectionSetAll 0 "circle")

经验证，选择集的内容是所有实体，而不仅仅是园，并且还有其他空间的实体，不知该如何解决。

phoenixdjq

(setq ss (ssget "x" '((0 . "circle"))))

就可以呀

highflybir

如果你不想运用ssget,又不想在图纸和模型空间中切换，可以这样！

;;;测试程序
(defun C:ccc (/ *MSP)
  (vl-load-com)
  (setq *MSP (vla-get-Modelspace
        (vla-get-activeDocument
   (vlax-get-acad-object))))
  (setq ss (filter-select "AcDbCircle"))
  (command ".select" ss)
  (princ)
)
;;;选择函数
(defun filter-select (name / ss)
  (setq ss (ssadd))                                  ;建立空选择集
  (vlax-for n *MSP                                   ;遍历模型空间
    (if (= (vla-get-objectname n) name)              ;如果是圆....
      (setq ss (ssadd (vlax-vla-object->ename n) ss));加入到选择集
    )
  )
  ss                                                 ;返回值选择集
)

liu_kunlun

谢谢2位。我是想快速地得到Activex选择集。