;Lisp: FINDBIND.LSP
;Elise Moss
;www.mossdesigns.com
;October 2005
;
;Function:		Finds and Binds all attached Xrefs then
;			purges out the unreferenced *$* entities until gone.
;
;	THE AUTHOR PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.  THE
;	AUTHOR SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY
;	OF FITNESS FOR A PARTICULAR USE.  THE AUTHOR DOES NOT WARRANT THAT
;	THE OPERATION OF THE PROGRAM WILL BE UNINTERRUPTED OR ERROR FREE.
;;; ---------------------------------------------------------------------------------


(defun c:findbind ()

 (setq blocklist (tblnext "block" T))
  (while blocklist
    (setq blockname       (cdr (assoc  2 blocklist)))
    (setq blockflag       (cdr (assoc 70 blocklist)))
    (if (= blockflag 4)
      ;xref is detached 
      ;need to detach xref
      (progn
	(command "-xref" "detach" blockname)
   
	);end progn
    ); end if
 (if (= blockflag 36)
      ;xref is loaded 
      ;need to bind xref
      (command "-xref" "bind" blockname)
    ); end if
  
    (setq blocklist (tblnext "block"))
  ); end while
  ; time to purge all
  (command "-purge" "all" "" "n")
  ; zoom all
  (command "zoom" "all")
  ; save the file
  (command "save" "")
  
;
)