topic Re: Lisp routine to load / unload all xrefs ignoring current ones unloaded? in Civil 3D Customization Forum

Lisp routine to load / unload all xrefs ignoring current ones unloaded?

ME42L — Fri, 15 Aug 2025 20:02:32 GMT

I'm working with drawings that contain numerous Xrefs, and some of them are intentionally unloaded. I currently use a LISP routine that unloads/reloads all Xrefs, but it's time-consuming and challenging to keep track of which ones should remain unloaded after running the lisp.

Can the LISP routine be modified to load and unload all Xrefs while preserving the original unload status, so that it only reloads those that were previously loaded and leaves the intentionally unloaded ones untouched

Re: Lisp routine to load / unload all xrefs ignoring current ones unloaded?

BlackBox_ — Mon, 18 Aug 2025 17:43:53 GMT

Here's one... I'll let you do the other, if you feel it's necessary (unloading all inherently only unloads those that are loaded):

(vl-load-com) (defun c:XRR (/ rewind loadedXrefs) (setq rewind t) (while (setq blockData (tblnext "block" rewind)) (setq rewind nil) (if (and (= 4 (logand 4 (cdr (assoc 70 blockData)))) (= 32 (logand 32 (cdr (assoc 70 blockData)))) ) (setq loadedXrefs (cons (cdr (assoc 2 blockData)) loadedXrefs)) ) ) (if loadedXrefs (command "-xref" "r" (vl-string-right-trim "," (apply 'strcat (mapcar (function (lambda (x) (strcat x ",")) ) loadedXrefs ) ) ) ) (prompt "\n ** No loaded XREFs found ** \n") ) (princ) )

Re: Lisp routine to load / unload all xrefs ignoring current ones unloaded?

ME42L — Tue, 16 Sep 2025 23:48:43 GMT

Could you write the other? its been a while and it to work!

Re: Lisp routine to load / unload all xrefs ignoring current ones unloaded?

BlackBox_ — Wed, 17 Sep 2025 02:03:27 GMT

@ME42L wrote:
Could you write the other? its been a while and it to work!

Your original XRU.lsp is perfectly fine:

(defun c:XRU (/ ) (command "._-xref" "_u" "*") (princ) )

Cheers