---

Hallo Forum,

vor einiger zeit, hat ein netter zeitgenosse ein lisp ins forum gestellt, dass den layernamen des aktuellen layers speichert - und dann, falls ein konstruktionslayer nicht vorhanden ist, diesen erstellt, den befehl ausführt, und DANN wieder in den ursprünglichen layer zurückschaltet.... ziemlich prima.

jetzt hätte ich gern, dass der zu erstellende layer ROT und nicht zu plotten ist... nix leichter als das (dachte ich)...

und:

(defun c:KonLin ()
(setq lyakt (getvar "clayer") ;_ akt. Layer speichern
    ly-ziel "_Konstruktion" ;_ Layername in Variable speichern
    search-layer (tblsearch "LAYER" ly-ziel) ;_ Flag ermitteln, existiert der Layer überhaupt?
    )
(if (= search-layer nil) ;_ er existiert nicht!!
(command "_.-layer" "_m" ly-ziel "_fa" "rot" ly-ziel "_p" "k" ly-ziel "") ;_ also erzeug' ihn
)
(setvar "clayer" ly-ziel) ;_ jetzt kannste ihn aktuelle setzen...
(command "_xline") ;_ englisch coden!!!
(while (not (= 0 (getvar "CMDACTIVE")))
(command pause)
)
(setvar "clayer" lyakt)
)

Aber: 
macht er nicht... kann mir vielleicht jemand sagen warum???

schönen dank schon mal..

------------------

viele grüße
carambita

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

---

1.  FArbe nennt sich in Englisch Color ! also:

(command "_.-layer" "_m" ly-ziel "_c" "rot" ly-ziel "_p" "k" ly-ziel "")

oder eben in deutsch:

(command "_.-layer" "_m" ly-ziel "fa" "rot" ly-ziel "_p" "k" ly-ziel "")

EDIT:

und wenn du schon die engl. Befehl verwendest (gut) dann auch bei
"kein Plot" _n (für No)

also:

(command "_.-layer" "_m" ly-ziel "_c" "rot" ly-ziel "_p" "_n" ly-ziel "")

viel Spaß damit...

------------------
       - Sebastian Mattis - Ich bin den 9. u. 10.10. auf der CAT.PRO !

[Diese Nachricht wurde von cadffm am 06. Oktober 2003 editiert.]

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

---

(defun c:KonLin ()
(setq lyakt (getvar "clayer") ;_ akt. Layer speichern
    ly-ziel "_Konstruktion" ;_ Layername in Variable speichern
    search-layer (tblsearch "LAYER" ly-ziel) ;_ Flag ermitteln, existiert der Layer überhaupt?
    )
(if (= search-layer nil) ;_ er existiert nicht!!
(command "_.-layer" "_m" ly-ziel "_co" "rot" ly-ziel "_p" "k" ly-ziel "") ;_ also erzeug' ihn
)
(setvar "clayer" ly-ziel) ;_ jetzt kannste ihn aktuelle setzen...
(command "_xline") ;_ englisch coden!!!
(while (not (= 0 (getvar "CMDACTIVE")))
(command pause)
)
(setvar "clayer" lyakt)
)

in der zeile wo der layer erzeugt wird war "_fa" eingetragen.. sollte aber "_co" sein
das wars 

edit:
wieder zu langsam *G* und nichtmal die 2te make "k" gefunden... *schäm*

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

[Diese Nachricht wurde von Schachinger am 06. Oktober 2003 editiert.]

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

---

Vielen Dank, ihr zwei......

und anstelle handkäs mit musik gibts jetzt einfach unities....

da kann man dann in den einschlägigen dealerkreisen sicher die eine oder andere grieee soos für kriegen, gelle??

ach so, ich hab in englisch geklaut und nicht gecodet 

------------------

viele grüße
carambita

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