Ignore "unloaded" or "not found" xrefs during a bind/insert LISP Routine

[asleafty]

I have written a LISP routine to create some background files of our house plans that are used by outside vendors. Basically the code will bind and insert all xref's, then set layer visibility of specific content and wblock out files for each background we intend to provide. The trouble is if there is any xref that is "not found" or "unloaded" within the file it will break the routine and not finish the bind/insert process. What I need to do is have the routine essentially ignore or skip the xrefs that aren't resolved, and only move forward with the ones that are. Unfortunately my limited experience with LISP writing has not taught me those skills yet. Can someone please assist? I have attached a copy of the code for your reference.

[kpblc2000]

Why not to use standard command _.etransmit?
You can check every block definition at your dwg, check - is it xref or not, try (by using findfile function) to find an xref file. If it doesn't found - exclude it.
I dont'nkow simple mechanism to find an 'unloaded' xrefs. I think you'll have to check all block definitions, filter an xrefs, then go through all dwg database and check xref insertions (do not forget - xre can be inserted to another static or dynamic block, or to another xref, or to table cell, it could be isolated and so on).

[asleafty]

Thank you kpblc2000. Unfortunately I don't think using the etransmit functionality will work for what I need as there is some additional manipulation of the drawing content that occurs after the bind/insert, yet prior to the wblock of the deliverable file. Is there a way I can get AutoCAD to return a list of loaded xref's and use that list within the bind function? I appreciate your assistance. I know just enough LISP to get excited about what I could do with it, but not enough to always get the job done.

[gdefilo · Accepted solution]

Hi asleafty,

starting from this thread:

http://www.cadtutor.net/forum/showthread.php?14319-Any-lisp-to-reload-only-quot-loaded-quot-xrefs

I managed to build this Lisp:

(defun c:bindloaded(/ cObj cName)
  (setq cObj(tblnext "BLOCK" T))
  (while cObj
    (setq cName(cdr(assoc 2 cObj)))
    (if
      (and
	 (=(logand(cdr(assoc 70 cObj))32)32)
	 (=(logand(cdr(assoc 70 cObj))4)4)
	 ); end and
      (progn
       (vl-cmdf "bindtype" "1")
       (vl-cmdf "_.xref" "_unload" cName)
       (vl-cmdf "_.xref" "_reload" cName)
       (vl-cmdf "_.xref" "_bind" cName)
       ); end progn
      ); wnd if
  (setq cObj(tblnext "BLOCK"))
  ); end while
   (princ)
  ); end of c:bindloaded

It performs a reload of all xref's already loaded and then bind them all.

I tested it and it works for me.

Hope it will for you too.

Giancarlo

[asleafty]

Thanks Giancarlo!! That seems to work wonderfully for what I need! I really appreciate your time and effort to write that for me. My drafters will certainly be happy that the routine will function better now!

[gdefilo]

Hi asleafty,

I'm glad it helped!

Cheers,

Giancarlo

[David_White]

just what i was looking for 

many thanks

[jfcadx]

Hi

Is it possible to add to this bindloaded.lsp so that it detaches unloaded or unreferenced xreferences.

Thanks in advance

[gdefilo]

Yes, it's possibile.

You need to add just a line at the end of the code:

(defun c:bindloaded(/ cObj cName)
  (setq cObj(tblnext "BLOCK" T))
  (while cObj
    (setq cName(cdr(assoc 2 cObj)))
    (if
      (and
	 (=(logand(cdr(assoc 70 cObj))32)32)
	 (=(logand(cdr(assoc 70 cObj))4)4)
	 ); end and
      (progn
       (vl-cmdf "bindtype" "1")
       (vl-cmdf "_.xref" "_unload" cName)
       (vl-cmdf "_.xref" "_reload" cName)
       (vl-cmdf "_.xref" "_bind" cName)
       ); end progn
      ); wnd if
  (setq cObj(tblnext "BLOCK"))
  ); end while
   (princ)
(command "-xref" "d" "*")
  ); end of c:bindloaded

Hope this helps.

Giancarlo 

[jfcadx]

It did, Thank You