;; bindAndDetachXrefs.lsp
;;
;; bind and detach all xrefs, detach missing
;;
;; Created by Peter Gyetvai
;; gyetpet@mailbox.org

(defun C:bindXrefs (/ really blk blklist xrefpath xreflist)
  (vl-load-com)
  (graphscr)
  
  ;; Select all blocks and xrefs in model space
  (foreach x
    (mapcar 'cadr (ssnamex (ssget "_X" '((0 . "INSERT") (410 . "MODEL")))))      
    (setq blk (cdr (assoc 2 (entget x))))
    (setq blklist (append blklist (list blk)))
  )

  ;; Clean duplicates   
  (setq blklist (LM:Unique blklist))
      
  ;; Create a list of found xrefs
  (setq i 0);counter to zero
  (setq imax 1);while variable
  (while imax 

    (setq xrefpath (findfile (strcat (nth i blklist) ".dwg")))
    (if xrefpath
      (progn
        (setq xreflist (append xreflist (list (nth i blklist))))
        (princ (strcat "Xref found: " (nth i blklist) ".dwg\n"))
      )
    )
        
    (setq i (1+ i));increments i
    (if (= i (length blklist)) (setq imax nil));finish function if i equals il
  )

  ;; Show prompt only if there are xrefs in the file:
  (if xreflist
    (progn
      (initget 1 "Yes No")
      (setq really (getkword "Bind xrefs? [Yes/No]"))
      (if 
        (= really "Yes")
        (progn
          (setq i 0);counter to zero
          (setq imax 1);while variable
          (while imax 

            (command "_.-xref" "_bind" (nth i xreflist))

            (setq i (1+ i));increments i
            (if (= i (length xreflist)) (setq imax nil));finish function if i equals il
          )
        )
      )
    )
    (princ "No xref found in model space.")
  )
)

;; Unique  -  Lee Mac
;; Returns a list with duplicate elements removed.

(defun LM:Unique ( l )
    (if l (cons (car l) (LM:Unique (vl-remove (car l) (cdr l)))))
)