【组】分解所有

newer

1. (defun c:xdtb_grpdelall (/ db gdict grps ents)
   
2.   (xdrx-begin)
   
3.   (setq        db    (xdrx-database-select t)
   
4.         gdict (xdrx-getpropertyvalue db "groupdictionary")
   
5.         grps  (xdrx-getpropertyvalue gdict "allentries")
   
6.   )
   
7.   (mapcar
   
8.     '(lambda (x)
   
9.        (setq ents (xdrx-getpropertyvalue (cadr x) "allentities"))
   
10.        (mapcar '(lambda (y) (xdrx-setpropertyvalue (cadr x) "remove" y))
    
11.               (xdrx-pickset->ents  ents)
    
12.        )
    
13.        (xdrx-object-delete (cadr x))
    
14.      )
    
15.     grps
    
16.   )
    
17.   (xdrx-prompt "\n所有组定义已经清除.")
    
18.   (xdrx-end)
    
19.   (princ)
    
20. )
    
21. 
    

(defun c:xdtb_grpdelall (/ db gdict grps ents)<br />   (xdrx-begin)<br />   (setq        db    (xdrx-database-select t)<br />         gdict (xdrx-getpropertyvalue db "groupdictionary")<br />         grps  (xdrx-getpropertyvalue gdict "allentries")<br />   )<br />   (mapcar<br />     '(lambda (x)<br />        (setq ents (xdrx-getpropertyvalue (cadr x) "allentities"))<br />        (mapcar '(lambda (y) (xdrx-setpropertyvalue (cadr x) "remove" y))<br />               (xdrx-pickset->ents  ents)<br />        )<br />        (xdrx-object-delete (cadr x))<br />      )<br />     grps<br />   )<br />   (xdrx-prompt "\n所有组定义已经清除.")<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

kmliro_2017

谢谢分享！！！！

dyjwyqz5221

不错不错，最近发的帖子都是关于xdrx-database-select、xdrx-getpropertyvalue的，受益匪浅！，谢谢。以后多发点，学习到不少东西。

huangpc27

组很少用到，学习下。

ko05050

学习学习