hab selbst noch mal das unabhäbging durchgezogen ( bevor man Fehler abschreibt)
(defun pre_lay (reatyp befname / )
(cond
((or(wcmatch (car befname) "DIM*")(wcmatch (car befname) "BEM*"))
(setq *oldlay* (getvar "CLAYER"))
(setvar "CLAYER" "MY-DIM-LAYER")
)
((wcmatch (car befname) "*TEXT")
(setq *oldlay* (getvar "CLAYER"))
(setvar "CLAYER" "MY-TEXT-LAYER")
)
((or(wcmatch (car befname) "*SCHRAFF")(wcmatch (car befname) "*HATCH"))
(setq *oldlay* (getvar "CLAYER"))
(setvar "CLAYER" "MY-HATCH-LAYER")
)
)
)
(defun after_lay (reatyp befname / )
(cond
((and(or(wcmatch (car befname) "DIM*")
(wcmatch (car befname) "DIM*")
(wcmatch (car befname) "*TEXT")
(wcmatch (car befname) "*SCHRAFF")
(wcmatch (car befname) "*HATCH")
)
*oldlay*
)
(setvar "CLAYER" *oldlay*)
(setq *oldlay* nil)
)
)
)
(defun reaload ()
(if (not *DEFUN_LAYERSET*)
(progn
(setq *DEFUN_LAYERSET*
(VLR-Command-Reactor "*DEFUN_LAYERSET*"
'((:vlr-commandEnded . after_lay)
(:vlr-commandwillstart . pre_lay)
)
)
)
(princ "\nLayerschalter aktiviert")
)
)
)
(foreach LAYER '("MY-DIM-LAYER" "MY-TEXT-LAYER" "MY-HATCH-LAYER")
(if (not(tblobjname "LAYER" LAYER))
(command "_-layer" "_m" LAYER "")
)
)
(reaload)
und läuft auch.
------------------
- 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