hallo,
habe mir ein tool gezogen, das den bemaßungslayer einschaltet.
problem folgende meldung kommt nach dem start des programmes:
Fehler: no function definition: VLR-COMMAND-REACTOR
hat jemand einen tip, da ich oft zwischen bemaßungs- und zeichnungslayer umschalten muß.
lisp-programm:
(defun pre_lay (reatyp befname / );Wenn Bem gestartet wird
(cond
((wcmatch (car befname) "DIM*")
(setq *oldlay* (getvar "CLAYER"))
(setvar "CLAYER" "0");Anstatt der 0 den Layer einsetzen, der zum Bemassen genutzt werden soll
)
)
)
(defun after_lay (reatyp befname / );Wenn Bem beendet wird
(cond
((and
(wcmatch (car befname) "DIM*")
*oldlay*
)
(setvar "CLAYER" *oldlay*)
(setq *oldlay* nil)
)
)
)
(defun reaload ();Initialisierung des Reactors
(if (not *DEFUN_DIMLAYER*)
(progn
(setq *DEFUN_DIMLAYER*
(VLR-Command-Reactor "*DEFUN_DIMLAYER*"
'((:vlr-commandEnded . after_lay)
(:vlr-commandwillstart . pre_lay)
)
)
)
(princ "\nLayerschalter Bemassung aktiviert")
)
)
)
(reaload)
(princ "\n(defun - Lisp over night!")
(princ "\nHolger Brischke")
(princ "\nhttp://www.defun.de --- mailto:kontakt@defun.de")
(princ "\nLayerschaltung beim Bemaßen aktiviert.")
danke
ZEC
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP