[求助]如何通过过滤器选择GROUP

原地踏步

ACAD2004 图形中存在若干编组（group)

(setq ss (ssget '((102 . "{ACAD_REACTORS"))))

选择后ss始终为nil

请问：应该如何通过过滤器选择编组呢？

caoyin

ACAD_REACTORS 标记不代表就是组，需要通过其他方法来实现。组的定义储存在词典中。

原地踏步

请问该用什么方法呢？

如果不带过滤器全部选择，再一个一个判断，是可以找出来。但我想缩小选择范围，只选组，应该怎么做呢？

淮上

(command "_.select" "_group" "*" "")

(ssget "_P")

 

(command "_.select" "_group" "组名" "")

(ssget "_P")

原地踏步

谢谢淮上朋友！

我是想交互选择，因此程序中不带"X"，也不带"组名"。

另外，复制一下组，组名就变了，谁记得了那么多组名呢？因此通过组名去找组，可能用处也不大。

xhq1954425

淮上……好人，我记得他，我认为他已经回答了你的问题了！

原地踏步

有谁能指点小弟一下？

在此先谢谢了。

Ljdickey

组是比较特殊的对象，淮上的方法实用

Casa小宝

1. ;选择单个群组，并返回群组的第一个物体
   
2. (defun Ca_SelGroup( / ssg entg)
   
3.   (setq pickstyle (getvar 'PICKSTYLE))
   
4.   (setvar 'PICKSTYLE 1)
   
5.   (setq ssg (ssget ":E:S"))
   
6.   (setvar 'PICKSTYLE pickstyle)
   
7.   (setq entg (ssname ssg 0))
   
8.   (if (not(= (cdr (assoc 102 (entget entg))) "{ACAD_REACTORS"))
   
9.     (progn
   
10.     (alert "\n选择的物体不是组，请重新选择:")
    
11.     (Ca_SelGroup)
    
12.     ))
    
13.   entg
    
14.   )

;选择单个群组，并返回群组的第一个物体<br /> (defun Ca_SelGroup( / ssg entg)<br />   (setq pickstyle (getvar 'PICKSTYLE))<br />   (setvar 'PICKSTYLE 1)<br />   (setq ssg (ssget ":E:S"))<br />   (setvar 'PICKSTYLE pickstyle)<br />   (setq entg (ssname ssg 0))<br />   (if (not(= (cdr (assoc 102 (entget entg))) "{ACAD_REACTORS"))<br />     (progn<br />     (alert "\n选择的物体不是组，请重新选择:")<br />     (Ca_SelGroup)<br />     ))<br />   entg<br />   )