Topic: Detaching all unreferenced external references

[FOUAD ABOU RJEILY]

Can somebody help on this issue please.
Purpose: Cleaning up all unreferenced [File References] from the active Dwg document using code.

The XREF command in AutoCAD shows the list of all References Xrefs, Raster images , pdf ... and their status.

I tried to get the same list of references using lisp code:
- For Xrefs: I got only the one having status=loaded as Overlay or Attach using (tblsearch "Block".)
- For JPG only status=loaded ones using ssget '((0 . "IMAGE").

How can I get all of them including for 'Status'=Unreferenced?

[ribarm]

Maybe this *.lsp from azarko can help you, though I haven't analyized it yet...

http://forums.augi.com/showthread.php?64428-LISP-Routine-to-remove-all-unrefernced-Xref-s/page3&p=#22

M.R.

[BlackBox]

Code - Auto/Visual Lisp: [Select]

1.  
2. (vl-load-com)
3.  
4. (defun _GetXrefNames (doc / xrefs)
5.   ;; RenderMan, 2010
6.   ;; Example:
7.   ;; (_GetXrefNames (vla-get-activedocument (vlax-get-acad-object)))
8.   (vlax-for oBlock (vla-get-blocks doc)
9.     (if (= :vlax-true (vla-get-isxref oBlock))
10.       (setq xrefs (cons (vla-get-name oBlock) xrefs))))
11.   xrefs)
12.  

[JohnK]

Do you mean "Unloaded"?

Here is an oldie that I found/did that will demonstrate finding the unloaded xrefs. It will just print it to the command line but you can take it from there right?

Code - Auto/Visual Lisp: [Select]

1. ( (lambda (/ entry xname xpath saved-xref-name)
2.     ;; if at minimum bit nu 32 isnt set, then the drawing is unloaded.
3.     ;;
4.     ;; 70  Block-type flags (bit-coded values, may be combined):
5.     ;; 0 = Indicates none of the following flags apply
6.     ;; 1 = This is an anonymous block generated by hatching, associative
7.     ;;     dimensioning, other internal operations, or an application
8.     ;; 2 = This block has non-constant attribute definitions (this bit is not
9.     ;;     set if the block has any attribute definitions that are constant,
10.     ;;     or has no attribute definitions at all)
11.     ;; 4 = This block is an external reference (xref)
12.     ;; 8 = This block is an xref overlay
13.     ;; 16 = This block is externally dependent
14.     ;; 32 = This is a resolved external reference, or dependent of an
15.     ;;      external reference (ignored on input)
16.     ;; 64 = This definition is a referenced external reference (ignored on
17.     ;;      input)
18.     (while
19.       ;; itterate thru all xrefs in dwg
20.       (setq entry (tblnext "block" (not entry)))
21.       ;; get the first block
22.       (if (cdr (assoc 1 entry))
23.         ;; check to see if it has a path (is an xref)
24.         ;;
25.         ;; if it does..
26.         (if (zerop (logand (cdr (assoc 70 entry)) 32))
27.          (print (cdr (assoc 2 entry))))))
28.     (princ)) )

[BlackBox]

pbejse saved me from needing to writing the VLA-* equivalent, in this thread:

http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/selecting-only-loaded-xrefs/td-p/2957742

Code - Auto/Visual Lisp: [Select]

1. (defun c:SelXref  (/ Xr_lst)
2.   (vlax-for
3.      blk  (vla-get-blocks
4.             (vla-get-activedocument (vlax-get-acad-object)))
5.     (if (eq (vla-get-isXref blk) :vlax-true)
6.       (setq Xr_lst
7.          (cons
8.            (cons
9.              (vla-get-name blk)
10.              (if (> (vla-get-count blk) 0)
11.                "Loaded" "Unloaded"))
12.            Xr_lst))))
13.   (foreach n Xr_lst (print n))
14.   (princ))
15.