---

Moin !

es geht darum, dass ich Systemvariablen via Lisp setzen lassen möchte. Nun kann es aber sein, dass in der Definition ein Fehler ist. Ich möchte nun aber vermeiden das die gesamte Funktion dann abbricht wie es mit dem bekannten *ERROR* der Fall ist.

Gefunden habe ich dazu schon vl-catch-all-apply - aber das ist für mich ein Buch mit den berühmten "Sieben Siegeln".

Nächerungsweise habe ich auch Beispiel (u.a. http://forums.augi.com/showthread.php?136198-System-Variables) gefunden, aber auch nicht verstanden.

Kann mir einer weiterhelfen ?

Gruß Jan

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

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

---

ich würde dir ja gerne helfen, aber meine technischen Möglichkeiten sind begrenzt - dein Link geht nicht. blöd, blöd....

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

hi !

ein neuer Versucht direkt aus der Adresszeile....

http://forums.augi.com/showthread.php?136198-System-Variables

gruß Jan

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

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

---

Mensch, Jan- bei Augi bin ich leider nicht Mitglied.
Aber veruch doch mal was über setvariable zu finden, da ist meißt auch dein geliebtes 7-Siegel Buch mit dabei, aber das dürfte mit nur einer codezeile abgehandelt werden.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo Jan,
ein kleines Beispiel, hilft aber nur, wenn Du mit dem VLIDE mal selbst durch-debuggst, dann müßte es eigentlich "Click" machen:

Code:

---

(defun c:test ( / VARILIST X)
  (setq variList
        '(("DIMZIN" 3)
          ("OSNAPZ" 1)
          ("GEHTNICHT" "egal")))

  (mapcar '(lambda(X)
            (if (vl-catch-all-error-p
                  (vl-catch-all-apply 'test:Setvar
                    (list (car X)(cadr X))))
              (alert (strcat "Bei der Variablen \""
                        (car X)
                        "\" ist was schief gegangen."))
              ))
    variList)
  (princ)
  )

(defun test:Setvar (Name Wert / )
  (setvar Name Wert))

---

Bei Axel's Seiten solltest Du dann auch gleich mal vorbei schauen:
http://www.activex.autolisp.info/catch.html

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

Jörn
http://www.bosse-engineering.com

Liniensignaturen Youtube

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

---

Hallo Jan,
was genau meinst du mit

Zitat:

---

dass in der Definition ein Fehler ist

---

?

Ich geh mal davon aus dass du z.B. vermeiden willst dass statt einer Zahl eine Zeichkette übergeben wird oder sowas.

Vielleicht hilft es ja schon wenn du die Variable abfragst, den Typ feststellst und ggf. den zu übergebenden Wert anpasst.

Sowas wie:
(setvar "CLAYER" 0) wird zu (setvar "CLAYER" "0")

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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