查询实体的编组名

i-Stone

==我正在给你找.

y01h

这不还有问题吗？ 为什么有两个330组码呢？ 还有上面的问题是怎么回事，先谢阿！

y01h

好的，先谢过，不会是跟编组有关系把，但是我把编组关了也还是一样！

i-Stone

和关不关没关系的.

要不行只能从词典里找了.那样太麻烦

y01h

是不是要多重条件ASSOC搜索阿？加上选择实体的名搜索就 OK吧，不过暂时还不会

y01h

晚了，只能明天再解决了

i-Stone

和关不关没关系的.

y01h

恩，谢谢你了， 明天再请教

i-Stone

还真没找到好方法,不行只有在词典里FOREACH了.

从组词典里一个个找,找到含 这个ENAME的GROUP,就把其GROUP NAME得到.

无痕

2. ;|************************(for 任意重的组名)--------------lxx.2004.5 ok!!
3. ;1.求组定义列表 -> (组定义1 组定义2 ...):
4. ;测试: (xgpdef (car(entsel)))
5. |;
6. (defun xgpdef (gpe / el lst a gpdf gplst)
7.   (setq el (entget gpe))
8.   (if (setq lst (member '(102 . "{ACAD_REACTORS") el))
9.       (while (and(setq lst (cdr lst))(= 330 (car(setq a (car lst)))))
10. (if  (= "GROUP" (cdr (assoc 0 (setq gpdf (entget(cdr a))))))
11.       (setq gplst (cons gpdf gplst))
12.         )
13.       )
14.   )(reverse gplst)
15. )

;|************************(for 任意重的组名)--------------lxx.2004.5 ok!! ;1.求组定义列表 -> (组定义1 组定义2 ...): ;测试: (xgpdef (car(entsel))) |; (defun xgpdef (gpe / el lst a gpdf gplst)   (setq el (entget gpe))   (if (setq lst (member '(102 . "{ACAD_REACTORS") el))       (while (and(setq lst (cdr lst))(= 330 (car(setq a (car lst))))) (if  (= "GROUP" (cdr (assoc 0 (setq gpdf (entget(cdr a))))))       (setq gplst (cons gpdf gplst))         )       )   )(reverse gplst) )