[求助]将图纸中编组名为“PC_PAPER_DIC”的图元自动全选该怎么做？

langjs

将图纸中编组名为“PC_PAPER_DIC”的图元自动全选并付给选择集SS，该怎么编写这个程序？

Gu_xl

1. (defun c:tt ( / dctl tmp len ename enl ss)
   
2. (setq  GrpName "PC_PAPER_DIC")
   
3. (setq ss (ssadd))
   
4. (setq
   
5. dctl (dictsearch (namedobjdict) "ACAD_GROUP")
   
6. ename nil
   
7. )
   
8. (if dctl
   
9. (progn
   
10. (setq
    
11.   len (length dctl)
    
12.   tmp (member (cons 3 (strcase GrpName)) dctl)
    
13. )
    
14. (if tmp
    
15.   (setq ename (cdr (nth (1+ (- len (length tmp))) dctl)))
    
16. )
    
17. ))
    
18. (if ename
    
19. (progn
    
20. (setq enl (entget ename))
    
21.   (foreach a enl
    
22.     (if (= 340 (car a))
    
23.       (ssadd (cdr a) ss)
    
24.       )
    
25.     )
    
26.   ss
    
27. )
    
28. )
    
29. )
    

(defun c:tt ( / dctl tmp len ename enl ss)<br /> (setq  GrpName "PC_PAPER_DIC")<br /> (setq ss (ssadd))<br /> (setq<br /> dctl (dictsearch (namedobjdict) "ACAD_GROUP")<br /> ename nil<br /> )<br /> (if dctl<br /> (progn<br /> (setq<br />   len (length dctl)<br />   tmp (member (cons 3 (strcase GrpName)) dctl)<br /> )<br /> (if tmp<br />   (setq ename (cdr (nth (1+ (- len (length tmp))) dctl)))<br /> )<br /> ))<br /> (if ename<br /> (progn<br /> (setq enl (entget ename))<br />   (foreach a enl<br />     (if (= 340 (car a))<br />       (ssadd (cdr a) ss)<br />       )<br />     )<br />   ss<br /> )<br /> )<br /> )<br />

langjs

谢谢楼上，经过测试，好用

zcsoft

这样是不是就全选择了隐藏在字典里的图元了？