---

hallo!
was mache ich da falsch?
die routine fügt einen block auf einen neuen layer ein und sollte mir dann die die eingabe des drehwinkels erlauben und dann wieder den vorherigen layer setzen.
funktioniert auch, nur nach abschluss der routine wird der block wieder auf den vorherigen layer gesetzt, obwohl er während der dynamischen eingabe richtig war.

(defun c UINSERT (/ P1)
(setq *oldlay* (getvar "clayer"))
(setq P1 (getpoint "\nEinfügepunkt zeigen:" ))
(command "layer" "m" "E_S26" "_color" "_red" "" "")
(command "clayer" "E_S26")
(command "_-insert" "DU_Ac_Map" P1 "" "")
(setvar "clayer" *oldlay*)
)

grüsse aus wien!
peter

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

---

z.B. (ungestestet)

(defun c:UINSERT (/ P1 )
  (setq *oldlay* (getvar "clayer"))
  (setq P1 (getpoint "\nEinfügepunkt zeigen:" ))
  (command "layer" "m" "E_S26" "_color" "_red" "" "")
  (command "clayer" "E_S26")
  (command "_-insert" "DU_Ac_Map" P1)
  (while (/=(getvar "cmdactive")0)(command pause))
  (setvar "clayer" *oldlay*)
)

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

---

danke,passt!

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