(defun SENT (/ *error* oldBnType)

(defun *error*(msg)
(setvar "modemacro" ".")
(setvar "bindtype" oldBnType)
(setvar "cmdecho" 1)
(princ "\nDetach/Audit/Bind/PurgeAll terminated :( ")
(princ)
); end of *error*

(setq oldBnType(getvar "bindtype"))
(setvar "modemacro" "Detach/Audit/Bind/PurgeAll processing......please wait......")
(prompt "\n---Detach unloaded Xref, Audit, Bind, PurgeAll---")
(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 "\nAuditing...");(terpri)
(command "_audit" "j")
(prompt "\nBinding all Xrefs...")
(setvar "bindtype" 1)
(command "-xref" "b" "*")
(prompt "...done");(terpri)
(prompt "\nPurging #1");(terpri)
(command "_-purge" "al" "*" "N")
(prompt "\nPurging #2");(terpri)
(command "_-purge" "al" "*" "N")
(prompt "\nPurging #3");(terpri)
(command "_-purge" "al" "*" "N")
(prompt "\n---Detach, Audit, Bind, PurgeAll completed!---")
(setvar "modemacro" ".")
(setvar "cmdecho" 1)
(princ)
); end of sent


(defun c:Planausgabe ( / pfad)
  (if(and(or (setq pfad (getfiled "Planausgabeverzeichnis wählen" "" "dwg" 1))
            (setq pfad (strcat (getvar "dwgprefix")
                      (substr (getvar "dwgname")1(-(strlen (getvar "dwgname"))3))"dwg")
          )
        )
  ) 
  (command "_saveas" "2004" pfad "")
  )
  (SENT)
  (command "_saveas" "2004" pfad "")
)