Topic: unload loaded xref's then reload only the loaded xrefs (not the unloaded xrefs)

[damn]

Hey Guru's,

Damned if I could get this to work.  Trying to unload xref's, preform code, and reload those unloaded xref's without loading the others previous unloaded.  My previous code just unloaded/reloaded *.  That's caused some problems with some of our drawings.

Code - Auto/Visual Lisp: [Select]

1. (defun c:rxl ()
2.   (setq loadedXrefs '())
3.  
4.   ; Function to unload all xrefs
5.   (defun unload-all-xrefs ()
6.     (vlax-for xref (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
7.       (if (eq :vlax-true (vla-IsExternalReference xref))
8.         (if (= 1 (vla-get-IsResolved xref))
9.           (progn
10.             (vla-unload xref)
11.             (setq loadedXrefs (cons (vla-get-Name xref) loadedXrefs))
12.           )
13.         )
14.       )
15.     )
16.   )
17.  
18.   ; Function to reload previously loaded xrefs
19.   (defun reload-loaded-xrefs ()
20.     (vlax-for xref (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
21.       (if (eq :vlax-true (vla-IsExternalReference xref))
22.         (if (member (vla-get-Name xref) loadedXrefs)
23.           (vla-reload xref)
24.         )
25.       )
26.     )
27.   )
28.  
29.   (unload-all-xrefs) ; Unload all xrefs
30.  
31.   ;;;
32.   ;;; Main code without Xrefs labouring drawing.
33.   ;;
34.  
35.  
36.   (reload-loaded-xrefs) ; Reload previously loaded xrefs
37.   (princ)
38. )

EDIT (John): Added code tags.

[mhupp]

This is every block in the active document.

Code - Auto/Visual Lisp: [Select]

1. (vlax-for xref (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))

-Edit
one way would to use ssget to selection the xref's you want to reload. adding them to a list.

Code - Auto/Visual Lisp: [Select]

1. (defun c:rxl (/ ss loadedXrefs)
2.   (setq ss (ssget '((0 . "INSERT")))) ;user selection
3.   (foreach xref (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS))))
4.     (if (eq :vlax-true (vla-IsExternalReference xref))
5.       (if (= 1 (vla-get-IsResolved xref))
6.         (setq loadedXrefs (cons (vla-get-Name xref) loadedXrefs))
7.       )
8.     )
9.   )
10.   (unload-all-xrefs) ;unload all xref's
11.   (foreach xref loadedXrefs
12.     (vla-reload xref)
13.   )
14.   (princ)
15. )
16.