[日积月累]：查询图中的Dictionary

eachy

2. 
   
3. ;;列出图中的词典
   
4. (defun c:listdict (/ dicts nl name)
   
5.   (setq        dicts (vla-get-dictionaries
   
6.                 (vla-get-activedocument (vlax-get-acad-object))
   
7.               )
   
8.   )
   
9.   (vlax-for dict dicts
   
10.     (if        (not
    
11.           (vl-catch-all-error-p
    
12.             (setq name (vl-catch-all-apply 'vla-get-name (list dict)))
    
13.           )
    
14.         )
    
15.       (progn
    
16.         (princ "\n=======================")
    
17.         (princ "\n")
    
18.         (princ name)
    
19.         (princ "////")
    
20.         (princ (vl-remove-if
    
21.                  '(lambda (x)
    
22.                     (vl-position (car x) '(-1 330 350 100 102))
    
23.                   )
    
24.                  (dictsearch
    
25.                    (namedobjdict)
    
26.                    name
    
27.                  )
    
28.                )
    
29.         )
    
30.       )
    
31.     )
    
32.   )
    
33.   (princ)
    
34. )
    
35. ;;在转换为低版本的时候可能需要删除下面几个就不出现 ObjectDBX 代理提示
    
36. ;;相关的一个讨论
    
37. ;;[url]http://discussion.autodesk.com/thread.jspa?threadID=474226[/url]
    
38. (defun c:deldict ()
    
39.   (foreach dict        '("ACAD_MATERIAL" "ACAD_TABLESTYLE" "ACAD_VISUALSTYLE")
    
40.     (dictremove (namedobjdict) dict)
    
41.   )
    
42.   (princ)
    
43. )

<br /> ;;列出图中的词典<br /> (defun c:listdict (/ dicts nl name)<br />   (setq        dicts (vla-get-dictionaries<br />                 (vla-get-activedocument (vlax-get-acad-object))<br />               )<br />   )<br />   (vlax-for dict dicts<br />     (if        (not<br />           (vl-catch-all-error-p<br />             (setq name (vl-catch-all-apply 'vla-get-name (list dict)))<br />           )<br />         )<br />       (progn<br />         (princ "\n=======================")<br />         (princ "\n")<br />         (princ name)<br />         (princ "////")<br />         (princ (vl-remove-if<br />                  '(lambda (x)<br />                     (vl-position (car x) '(-1 330 350 100 102))<br />                   )<br />                  (dictsearch<br />                    (namedobjdict)<br />                    name<br />                  )<br />                )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;在转换为低版本的时候可能需要删除下面几个就不出现 ObjectDBX 代理提示<br /> ;;相关的一个讨论<br /> ;;[url]http://discussion.autodesk.com/thread.jspa?threadID=474226[/url]<br /> (defun c:deldict ()<br />   (foreach dict        '("ACAD_MATERIAL" "ACAD_TABLESTYLE" "ACAD_VISUALSTYLE")<br />     (dictremove (namedobjdict) dict)<br />   )<br />   (princ)<br /> )