清理词典中的条目

marting

1. (vl-load-com)
   
2. (defun _kpblc-get-ent-name (ent)
   
3.   (cond        ((vlax-property-available-p ent 'effectivename)
   
4.          (vla-get-effectivename ent)
   
5.         )
   
6.         ((vlax-property-available-p ent 'name) (vla-get-name ent))
   
7.   ) ;_ end of cond
   
8. ) ;_ end of defun
   
9. (setq sysvar (vl-remove-if-not
   
10.                (function cdr)
    
11.                (mapcar (function (lambda (x) (cons x (getvar x))) ;_ end of lambda
    
12.                        ) ;_ end of function
    
13.                        '("frame"        "imageframe"   "pdfframe"
    
14.                          "dwfframe"        "dgnframe"     "oleframe"
    
15.                         )
    
16.                ) ;_ end of mapcar
    
17.              ) ;_ end of vl-remove-if-not
    
18. ) ;_ end of setq
    
19. 
    
20. (vlax-for item (vla-get-dictionaries
    
21.                  (vla-get-activedocument (vlax-get-acad-object))
    
22.                )
    
23.   (if
    
24.     (not
    
25.       (or (and (not (_kpblc-get-ent-name item))
    
26.                (= (cdr (assoc 0 (entget (vlax-vla-object->ename item))))
    
27.                   "RASTERVARIABLES"
    
28.                )
    
29.           ) ;_ end of and
    
30.           (and (_kpblc-get-ent-name item)
    
31.                (wcmatch        (strcase (_kpblc-get-ent-name item))
    
32.                         "ACAD_*,JOBDICT_*"
    
33.                )
    
34.           ) ;_ end of and
    
35.       ) ;_ end of or
    
36.     ) ;_ end of not
    
37.      (vl-catch-all-apply
    
38.        (function (lambda () (vla-delete item)) ;_ end of lambda
    
39.        ) ;_ end of function
    
40.      ) ;_ end of vl-catch-all-apply
    
41.   ) ;_ end of if
    
42. ) ;_ end of vlax-for
    
43. (foreach item sysvar (setvar (car item) (cdr item))) ;_ end of foreach
    

(vl-load-com)<br /> (defun _kpblc-get-ent-name (ent)<br />   (cond        ((vlax-property-available-p ent 'effectivename)<br />          (vla-get-effectivename ent)<br />         )<br />         ((vlax-property-available-p ent 'name) (vla-get-name ent))<br />   ) ;_ end of cond<br /> ) ;_ end of defun<br /> (setq sysvar (vl-remove-if-not<br />                (function cdr)<br />                (mapcar (function (lambda (x) (cons x (getvar x))) ;_ end of lambda<br />                        ) ;_ end of function<br />                        '("frame"        "imageframe"   "pdfframe"<br />                          "dwfframe"        "dgnframe"     "oleframe"<br />                         )<br />                ) ;_ end of mapcar<br />              ) ;_ end of vl-remove-if-not<br /> ) ;_ end of setq<br /> <br /> (vlax-for item (vla-get-dictionaries<br />                  (vla-get-activedocument (vlax-get-acad-object))<br />                )<br />   (if<br />     (not<br />       (or (and (not (_kpblc-get-ent-name item))<br />                (= (cdr (assoc 0 (entget (vlax-vla-object->ename item))))<br />                   "RASTERVARIABLES"<br />                )<br />           ) ;_ end of and<br />           (and (_kpblc-get-ent-name item)<br />                (wcmatch        (strcase (_kpblc-get-ent-name item))<br />                         "ACAD_*,JOBDICT_*"<br />                )<br />           ) ;_ end of and<br />       ) ;_ end of or<br />     ) ;_ end of not<br />      (vl-catch-all-apply<br />        (function (lambda () (vla-delete item)) ;_ end of lambda<br />        ) ;_ end of function<br />      ) ;_ end of vl-catch-all-apply<br />   ) ;_ end of if<br /> ) ;_ end of vlax-for<br /> (foreach item sysvar (setvar (car item) (cdr item))) ;_ end of foreach<br />

dnbcgrass

谢谢分享！下来学习学习！

HLCAD

感谢大师分享程序