---

hi !

wenn ich

Code:

---

(command "_ucs" "_prev")

---

anwende und es kein vorheriges bks gibt, dann gibt autocad in der befehlszeile eine fehlermeldung aus, das dieses nicht möchtlich ist.

in lisp führt dieses allerdings zu einer fehlermeldung.

irgendwo hinterlegt autocad aber sicherlich die vorherigen bks-definitionen.

nun stelle ich mir die frage, ob man dieses irgendwie mit lisp abklären kann.

kann mir einer von euch weiterhelfen ???

gruß Jan :-)

------------------
jan :-)

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

---

Mal abgesehen von der direkten Antwort auf deine Frage (die ICH dir nicht geben kann)
Warum "programmiert" man ein BKS-VORHER ein wenn man vorher garkein BKS verstellt hat ?
Das Vorherige (wenn es denn eins gibt) ist ja auch nicht bekannt.. 
Also kurz: Ich frage mich ob das überhaupt sein muß .

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

hi !

ich komme darauf, weil ich in einer funktion ein neues bks definiere und dieses zu einem späteren zeitpunkt zurücksetze.

nun soll in der fehlerfunktion allerdings gewährleistet werden, das bei einem solchen auch das ursprüngliche bks wiederhergestellt werden.

kommt es nun zu einem fehler vor dem definieren des neuen bks, dann führt dieses zwangsläufig zu einem fehler in der fehlerroutine. sicherlich kann ich dieses über eine übergreifende variable abfangen - aber ich dachte, es gibt vielleicht eine direkte "autocad"-lösung.

gruß Jan :-)

------------------
jan :-)

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

---

wie ist es mit
(vl-catch-all-error-p
  (vl-catch-all-apply
    'vl-cmdf
    (list "_ucs" "_prev")
  )
)

------------------
  - 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

---

Hallo Jan,
ich mache das folgenermaßen:

Bevor ich ein BKS änderen das aktuelle speichern

Code:

---

(defun JBf:diverse:UCS:store ( / )
  (if (tblsearch "UCS" "JBf$$UCS")
    (command "_.ucs" "_d" "JBf$$UCS"))
  (if (/=(getvar "WORLDUCS")1)
    (progn
      (command "_.ucs" "_s" "JBf$$UCS")
      (command "_.ucs" "_w"))))

---

und wenn ich fertig bin, oder ein Fehler aufgetreten, stelle ich das alte BKS wieder auf aktuell:

Code:

---

(defun JBf:diverse:UCS:restore ( / )
  (if (tblsearch "UCS" "JBf$$UCS")
    (progn
      (command "_.ucs" "_r" "JBf$$UCS")
      (command "_.ucs" "_d" "JBf$$UCS"))
    (command "_.ucs" "_w")))

---

------------------
viele Grüße

Jörn

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

---

hallo und vielen dank für die tipps aus dem hohen norden.

gruß Jan :-)

------------------
jan :-)

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