从组构建一个选择集(支持匿名组)

newer

1. (defun selgrp (grpname) ; grpname is the group name, it accepts unnamed group names such as *A1
   
2.     (setq grp (dictsearch (namedobjdict) "ACAD_GROUP"))
   
3.     (setq a1 (dictsearch (cdr (assoc -1 grp)) grpname))
   
4.     (setq ss (ssadd))
   
5.     (while (/= (assoc 340 a1) nil)
   
6.         (setq ent (assoc 340 a1))
   
7.         (setq ss (ssadd (cdr ent) ss))
   
8.         (setq a1 (subst (cons 0 "") ent a1))
   
9.     )
   
10.     ss
    
11. )
    

(defun selgrp (grpname) ; grpname is the group name, it accepts unnamed group names such as *A1<br />     (setq grp (dictsearch (namedobjdict) "ACAD_GROUP"))<br />     (setq a1 (dictsearch (cdr (assoc -1 grp)) grpname))<br />     (setq ss (ssadd))<br />     (while (/= (assoc 340 a1) nil)<br />         (setq ent (assoc 340 a1))<br />         (setq ss (ssadd (cdr ent) ss))<br />         (setq a1 (subst (cons 0 "") ent a1))<br />     )<br />     ss<br /> )<br />

yoyoho

感谢 newer 大大分享程序!

xvjiex

感谢楼主分享从组构建一个选择集(支持匿名组)