---

Hallo!
Mit eurer Hilfe habe ich mir in letzter Zeit folgende kleine, aber feine Lisp-Routine gebastelt:

Aktive Xrefs binden
Inaktive Xrefs lösen
Zeichnung bereinigen
Zeichnung speichern unter ACAD 2004

Nun hätte ich noch gerne zuerst eine Abfrage, ob die Zeichnung schreibgeschützt geöffnet ist oder nicht.

Wenn schreibgeschützt, dann soll die Routine ausgeführt werden
Wenn NICHT schreibgeschützt, dann soll die Routine mit einem Hinweis abgebrochen werden.

Kann mir dabei bitte jemand helfen - Danke!

Hier mein bisheriges Werk:

(defun c:A2A (/ *error* oldBnType)

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

(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 "_AecExportToAutoCAD2004")
(prompt "\Xrefs Loesen, Pruefen, Binden, Bereinigen, Speichern unter ACAD 2004 fertiggestellt!---")
(setvar "modemacro" ".")
(setvar "cmdecho" 1)
(princ)
); end of c:A2A

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ok .. kleine Übung:

(vl-load-com)
(if(=(vla-get-readonly(vla-get-activedocument(vlax-get-acad-object))):vlax-true)
(c:A2A)
(alert "Zeichnung nicht schreibgeschützt.Abbruch")
)

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super, vielen Dank erst mal Thomas,
ich habe den Code eingebaut, der Hinweis auf die nicht schreibgschützte Zeichnung erscheint, aber es erfolgt leider noh kein Abbruch der Lisp Routine.

(defun c:A2A (/ *error* oldBnType)

(vl-load-com)
(if(=(vla-get-readonly(vla-get-activedocument(vlax-get-acad-object))):vlax-true)
(c:A2A)
(alert "Zeichnung nicht schreibgeschützt.Abbruch")
)

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

(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 "_AecExportToAutoCAD2004")
(prompt "\Xrefs Loesen, Pruefen, Binden, Bereinigen, Speichern unter ACAD 2004 fertiggestellt!---")
(setvar "modemacro" ".")
(setvar "cmdecho" 1)
(princ)
); end of c:A2A

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

überdenke nochmal was was gemacht wird.. dann sollte es wohl klar sein warum das nicht funktioniert !
(an der Stelle an der die Entscheidung getroffen wird läuft das Programm doch längst ?!)

Lösung: Du treibst Acad in einen Fehler (=Abbruch) oder du fragst vorher ab:

Code:

---

(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 ()
(vl-load-com)
(if(=(vla-get-readonly(vla-get-activedocument(vlax-get-acad-object))):vlax-true)
  (A2A)
  (alert "Zeichnung nicht schreibgeschützt.Abbruch")
)
); end of c:A2A

(defun A2A ( / 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 "_AecExportToAutoCAD2004")
(prompt "\Xrefs Loesen, Pruefen, Binden, Bereinigen, Speichern unter ACAD 2004 fertiggestellt!---")
(setvar "modemacro" ".")
(setvar "cmdecho" 1)
(princ)
); end of A2A

---

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

OT:    

(bezieht sich nicht nur auf diesen Beitrag)
------------------
      - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank an euch, jetzt funktioniert die Anweisung.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP