(defun *error*(msg)
(setvar "modemacro" ".")
(setvar "bindtype" oldBnType)
(setvar "cmdecho" 1)
(princ "\Xrefs Loesen/Pruefen/Binden/Bereinigen abgebrochen  ")
(princ)
); end of *error*


(defun c:A2A-2010 ()
(command "modell")
(vl-load-com)
(if(=(vla-get-readonly(vla-get-activedocument(vlax-get-acad-object))):vlax-true)
  (A2A-2010)
  (alert "ABBRUCH - Achtung Zeichnung schreibgeschützt öffnen")
)
); end of c:A2A-2010

(defun A2A-2010 ( / oldBnType)  
(setq oldBnType(getvar "bindtype"))
(setvar "modemacro" "Xrefs Loesen/Pruefen/Binden/Bereinigen in Arbeit......bitte warten......")
(prompt "\Xrefs Loesen, Pruefen, Binden, Bereinigen---")
(prompt "\nDetaching...")
(vlax-for block (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(if (and (= :vlax-true (vla-get-isxref block))
        (= 0 (vla-get-count block))
    )
    (vla-detach block)
        )
)
(setvar "cmdecho" 0)
(prompt "...done")
(prompt "\Pruefen...");(terpri)
(command "_audit" "j")
(prompt "\alle Xrefs binden...")
(setvar "bindtype" 0)
(command "-xref" "b" "*")
(prompt "...fertig");(terpri)
(prompt "\Bereinigen #1");(terpri)
(command "_-purge" "al" "*" "N")
(prompt "\Bereinigen #2");(terpri)
(command "_-purge" "al" "*" "N")
(prompt "\Bereinigen #3");(terpri)
(command "_-purge" "al" "*" "N")
(command "_AecExportToAutoCAD2010")
(prompt "\Operation erfolgreich fertiggestellt!---")
(setvar "modemacro" ".")
(setvar "cmdecho" 1)
(princ)
); end of A2A-2010