找了很多拆除外部参照的程序，求助帮看看如何只拆除卸载或不存在参照的。

yaojing38

2. ;: https://AutoCADtips1.com/2011/09/01/autolisp-detach-all-xrefs/ author unknown
   
3. ; (load "Detachall") Detachall ;
   
4. (defun C:Detachall (/ *error* mip:layer-status-restore mip:layer-status-save delete-xref-img-underlay delete-all-dict)
   
5. 
   
6.   (defun *error* (msg)
   
7.   (mip:layer-status-restore)
   
8.   (princ msg)
   
9.   (princ)
   
10.   ) ;_ end of defun
    
11. 
    
12.   (defun mip:layer-status-restore ()
    
13.   (foreach item *PD_LAYER_LST*
    
14.     (if (not (vlax-erased-p (car item)))
    
15.     (vl-catch-all-apply
    
16.       '(lambda ()
    
17.       (vla-put-lock (car item) (cdr (assoc "lock" (cdr item))))
    
18.       (vla-put-freeze
    
19.         (car item)
    
20.         (cdr (assoc "freeze" (cdr item)))
    
21.       )
    
22.       )
    
23.     )
    
24.     )
    
25.   )
    
26.   (setq *PD_LAYER_LST* nil)
    
27.   ) ;_ end of defun
    
28. 
    
29.   (defun mip:layer-status-save ()
    
30.   (setq *PD_LAYER_LST* nil)
    
31.   (vlax-for item (vla-get-layers(vla-get-activedocument (vlax-get-acad-object)))
    
32.     (setq *PD_LAYER_LST*
    
33.     (cons
    
34.       (list item (cons "freeze" (vla-get-freeze item))(cons "lock" (vla-get-lock item)))
    
35.       *PD_LAYER_LST*
    
36.     )
    
37.     )
    
38.     (vla-put-lock item :vlax-false)
    
39.     (if (= (vla-get-freeze item) :vlax-true)
    
40.     (vl-catch-all-apply '(lambda () (vla-put-freeze item :vlax-false)))
    
41.     )
    
42.   )
    
43.   ) ;_ end of defun
    
44. 
    
45.   (defun delete-xref-img-underlay (/ count txt BlkList)
    
46.   (mip:layer-status-save)
    
47. 
    
48.   (vlax-for Blk (vla-get-Blocks(vla-get-activedocument (vlax-get-acad-object)))
    
49.     (setq BlkList (entget(vlax-vla-object->ename Blk)))
    
50.     (vl-catch-all-apply 'eval
    
51.       '((setq data2
    
52.             (entget
    
53.                 (cdr
    
54.                     (assoc 360
    
55.                         (setq data1
    
56.                             (entget
    
57.                                 (vlax-vla-object->ename blk)
    
58.                             )
    
59.                         )
    
60.                     )
    
61.                 )
    
62.             )
    
63.         ))
    
64.     )
    
65.     (if(and
    
66.       (= (vla-get-IsXref Blk) :vlax-false)
    
67.       (not (wcmatch (vla-get-name Blk) "*|*")
    
68.             ;(logand(assoc 70 BlkList)32)
    
69.       ;(not(logand(assoc 70 BlkList)32))
    
70.     )
    
71.          ;(member '(71 . 1) date2)
    
72.        )
    
73.     (progn
    
74.       (setq
    
75.       count 0
    
76.       txt (strcat " Erase Xref and Underlay in " (vla-get-name Blk))
    
77.       )
    
78.       (grtext -1 txt)
    
79.       (vlax-for Obj Blk
    
80.       (setq count (1+ count))
    
81.       (if (zerop (rem count 10))(grtext -1 (strcat txt " : " (itoa count))))
    
82.       (if
    
83.         (and (vlax-write-enabled-p Obj)
    
84.         (or
    
85.           (and ;_ XREF
    
86.           (= (vla-get-ObjectName obj) "AcDbBlockReference")
    
87.           (vlax-property-available-p Obj "Path")
    
88.           ;(member '(71 . 1) data2)
    
89.       ;(logand(assoc 70 BlkList)32)
    
90.       (not(logand(assoc 70 BlkList)32))
    
91.           ) ;_ end of and
    
92.           (and ;_ UNDERLAY
    
93.           (wcmatch (vla-get-ObjectName obj) "*Reference")
    
94.           (vlax-property-available-p Obj "UnderlayName")
    
95.           ) ;_ end of and
    
96.           (= (vla-get-ObjectName obj) "AcDbRasterImage") ;_ IMAGE
    
97.         ) ;_ end of or
    
98.         ) ;_ end of and
    
99.         (VL-CATCH-ALL-APPLY 'vla-Delete (list Obj))
    
100.       ) ;_ end of if
     
101.       ) ;_ end of vlax-for
     
102.     ) ;_ end of progn
     
103.     ) ;_ end of if
     
104.   ) ;_ end of vlax-for
     
105.   (mip:layer-status-restore)
     
106.   ) ;_ end of defun
     
107. 
     
108.   (defun delete-all-dict (dict)
     
109.   ;;; dict - dict name (like "ACAD_IMAGE_DICT", "ACAD_PDFDEFINITIONS" ... )
     
110.   (vl-catch-all-apply
     
111.     '(lambda ()
     
112.     (vlax-map-Collection
     
113.       (vla-item(vla-get-dictionaries(vla-get-activedocument (vlax-get-acad-object)))dict)
     
114.       'vla-delete
     
115.     ) ;_ end of vlax-map-Collection
     
116.     ) ;_ end of lambda
     
117.   ) ;_ end of vl-catch-all-apply
     
118.   ) ;_ end of defun
     
119. 
     
120.   (delete-xref-img-underlay)
     
121.   (command "_-xref" "_d" "*")
     
122.   (while (> (getvar "CMDACTIVE") 0) (command))
     
123.   (mapcar 'delete-all-dict (list "ACAD_IMAGE_DICT" "ACAD_PDFDEFINITIONS" "ACAD_DWFDEFINITIONS" "ACAD_DGNDEFINITIONS"))
     
124.   (command "_.regenall")
     
125.   (command "_.externalreferences")
     
126.   (princ)
     
127. ) ;_ end of defun

;: https://<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>tips1.com/2011/09/01/autolisp-detach-all-xrefs/ author unknown<br /> ; (load "Detachall") Detachall ;<br /> (defun C:Detachall (/ *error* mip:layer-status-restore mip:layer-status-save delete-xref-img-underlay delete-all-dict)<br /> <br />   (defun *error* (msg)<br />   (mip:layer-status-restore)<br />   (princ msg)<br />   (princ)<br />   ) ;_ end of defun<br /> <br />   (defun mip:layer-status-restore ()<br />   (foreach item *PD_LAYER_LST*<br />     (if (not (vlax-erased-p (car item)))<br />     (vl-catch-all-apply<br />       '(lambda ()<br />       (vla-put-lock (car item) (cdr (assoc "lock" (cdr item))))<br />       (vla-put-freeze<br />         (car item)<br />         (cdr (assoc "freeze" (cdr item)))<br />       )<br />       )<br />     )<br />     )<br />   )<br />   (setq *PD_LAYER_LST* nil)<br />   ) ;_ end of defun<br /> <br />   (defun mip:layer-status-save ()<br />   (setq *PD_LAYER_LST* nil)<br />   (vlax-for item (vla-get-layers(vla-get-activedocument (vlax-get-acad-object)))<br />     (setq *PD_LAYER_LST*<br />     (cons<br />       (list item (cons "freeze" (vla-get-freeze item))(cons "lock" (vla-get-lock item)))<br />       *PD_LAYER_LST*<br />     )<br />     )<br />     (vla-put-lock item :vlax-false)<br />     (if (= (vla-get-freeze item) :vlax-true)<br />     (vl-catch-all-apply '(lambda () (vla-put-freeze item :vlax-false)))<br />     )<br />   )<br />   ) ;_ end of defun<br /> <br />   (defun delete-xref-img-underlay (/ count txt BlkList)<br />   (mip:layer-status-save)<br /> <br />   (vlax-for Blk (vla-get-Blocks(vla-get-activedocument (vlax-get-acad-object)))<br />     (setq BlkList (entget(vlax-vla-object->ename Blk)))<br />     (vl-catch-all-apply 'eval<br />       '((setq data2<br />             (entget<br />                 (cdr<br />                     (assoc 360<br />                         (setq data1<br />                             (entget<br />                                 (vlax-vla-object->ename blk)<br />                             )<br />                         )<br />                     )<br />                 )<br />             )<br />         ))<br />     )<br />     (if(and<br />       (= (vla-get-IsXref Blk) :vlax-false)<br />       (not (wcmatch (vla-get-name Blk) "*|*")<br />             ;(logand(assoc 70 BlkList)32)<br />       ;(not(logand(assoc 70 BlkList)32))<br />     )<br />          ;(member '(71 . 1) date2)<br />        )<br />     (progn<br />       (setq<br />       count 0<br />       txt (strcat " Erase Xref and Underlay in " (vla-get-name Blk))<br />       )<br />       (grtext -1 txt)<br />       (vlax-for Obj Blk<br />       (setq count (1+ count))<br />       (if (zerop (rem count 10))(grtext -1 (strcat txt " : " (itoa count))))<br />       (if<br />         (and (vlax-write-enabled-p Obj)<br />         (or<br />           (and ;_ XREF<br />           (= (vla-get-ObjectName obj) "AcDbBlockReference")<br />           (vlax-property-available-p Obj "Path")<br />           ;(member '(71 . 1) data2) <br />       ;(logand(assoc 70 BlkList)32)<br />       (not(logand(assoc 70 BlkList)32))<br />           ) ;_ end of and<br />           (and ;_ UNDERLAY<br />           (wcmatch (vla-get-ObjectName obj) "*Reference")<br />           (vlax-property-available-p Obj "UnderlayName")<br />           ) ;_ end of and<br />           (= (vla-get-ObjectName obj) "AcDbRasterImage") ;_ IMAGE<br />         ) ;_ end of or<br />         ) ;_ end of and<br />         (VL-CATCH-ALL-APPLY 'vla-Delete (list Obj))<br />       ) ;_ end of if<br />       ) ;_ end of vlax-for<br />     ) ;_ end of progn<br />     ) ;_ end of if<br />   ) ;_ end of vlax-for<br />   (mip:layer-status-restore)<br />   ) ;_ end of defun<br /> <br />   (defun delete-all-dict (dict)<br />   ;;; dict - dict name (like "ACAD_IMAGE_DICT", "ACAD_PDFDEFINITIONS" ... )<br />   (vl-catch-all-apply<br />     '(lambda ()<br />     (vlax-map-Collection<br />       (vla-item(vla-get-dictionaries(vla-get-activedocument (vlax-get-acad-object)))dict)<br />       'vla-delete<br />     ) ;_ end of vlax-map-Collection<br />     ) ;_ end of lambda<br />   ) ;_ end of vl-catch-all-apply<br />   ) ;_ end of defun<br /> <br />   (delete-xref-img-underlay)<br />   (command "_-xref" "_d" "*")<br />   (while (> (getvar "CMDACTIVE") 0) (command))<br />   (mapcar 'delete-all-dict (list "ACAD_IMAGE_DICT" "ACAD_PDFDEFINITIONS" "ACAD_DWFDEFINITIONS" "ACAD_DGNDEFINITIONS"))<br />   (command "_.regenall")<br />   (command "_.externalreferences")<br />   (princ)<br /> ) ;_ end of defun

找了很多拆除外部参照的，或多或少有的会出现错误，，有点拆除清理不彻底，，这个还是比较好的，但是就是是全部拆除，，本人也试了好久研究下，但是确实对面对对象的太生疏，确实没那个能力。只好发出来看有没大佬给看看，怎么加个拆除条件，就是外部参照不存在或者已经卸载就清理外部参照列表。。之前有大哥发过，，还是再发下吧，，感觉挺好的代码，，沉了可惜。。

sniper1111

嵌套的参照得逐层拆除。
用到递归

kucha007

可以参考一下这个帖子http://bbs.mjtd.com/thread-186503-1-1.html