---

Hallo !

Ich möchte mit (defun C:E_A (/))
(command ".........

erreichen, daß durch das erste Drücken eines Buttons (bzw. Eingabe von E_A
in der Befehlszeile dieses script ausgeführt wird
^C^C-layer ei * se 0 fr Kontur;;

Beim zweiten Mal Drücken des selben Buttons (bzw. erneuter Eingabe von E_A in der Befehlszeile) soll folgendes script ausgeführt werden
^C^C-layer ei * t Kontur;;

Beim dritten Mal soll wieder ^C^C-layer ei * se 0 fr Kontur;; ausgeführt werden, beim viertenmal ^C^C-layer ei * t Kontur;;
usw. usw.

Gruß
Mario

------------------
Mario

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

---

(if(setq L(tblobjname "LAYER" "KONTUR"))
  (if(and(setq L(entget L))
        (=(logand(cdr(assoc 70 L))1)1)
    )   
  (command "_-layer" "_on" "*"  "_t" "KONTUR" "")
  (command "_-layer" "_on" "*" "_s" "0" "_f" "KONTUR" "")
  )
  (princ "\n Kein Layer KONTUR vorhanden")
)

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

Gruß
Mario

------------------
Mario

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