---

Moinsen an alle LISP-Experten,

ich verzweifle gerade an einer vermeintlich "einfachen" LISP-Routine und bitte um Hilfe eurerseits.

Mittels eines Buttons, einer Dialogbox möchte ich Layer ein/ausschalten können.
Vor dem Start der Dialogbox definiere ich den Button "SiruptrennungEin" in folgender Weise:
  ----------------------------------------------------------------
  (action_tile "accept" "(done_dialog)")
  (action_tile "cancel" "(done_dialog) (exit)")
  (action_tile
    "SiruptrennungEin"
    "(BMASiruptrennungEin)"
  )
  (start_dialog)
  (unload_dialog dcl_id)
  ----------------------------------------------------------------

Der Befehl "BMASiruptrennungEin" sieht so aus:

  ----------------------------------------------------------------
(defun BMASiruptrennungEin ( / )
  (command "_layer" "_off" "001_KERN_VOLL" "")
)
  ----------------------------------------------------------------

Nach Anwendung der Dialogbox und klicken auf den Button, hängt sich AutoCAD auf!
Warum?

Wenn ich den Befehl: (command "_layer" "_off" "001_KERN_VOLL" "") in die Befehlszeile von AutoCAD schreibe, funktioniert es einwandfrei.
Was mache ich falsch?
Habt ihr ggf. Tipps oder Ratschläge?

Danke im voraus
Gruß Thomas

------------------
Jeder ist zu etwas nütze,
er kann immer noch als schlechtes Beispiel dienen

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

---

HAllo Thomas,
zur Laufzeit des DCL-Fensters darfst Du keine COMMAND-Befehle starten.
Entweder Du packst Deine Routine in eine WHILE-Schleife oder Du änderst Deine ausführende Funktion in einer Nicht-Command-Funktion:

Code:

---

(defun LayerOnOff( / LayerList)
  (setq LayerList(entget(tblobjname "LAYER" "001_KERN_VOLL"))
        LayerList (subst (cons 62 (*(cdr(assoc 62 LayerList))-1))
                         (assoc 62 LayerList)
                         LayerList))
  (entmod LayerList))

---

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

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

[Diese Nachricht wurde von joern bosse am 25. Apr. 2012 editiert.]

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

---

Danke Jörn!

Genau DAS hatte ich erhofft, lesen zu dürfen.

Habe echt nicht gewusst, dass man keine "command-Befehle" während der Laufzeit einer DCL-Dialogbox starten darf.
Nun bin ich (ggf. wir alle) ein wenig schlauer.

Habe dein Code-Schnippsel auch gleich erfolgreich umgesetzt.

Gruß
Thomas

------------------
Jeder ist zu etwas nütze,
er kann immer noch als schlechtes Beispiel dienen

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