Also mein Dateidialogfeld ist in Ordnung. Aber meine Hilfe lässt sich nicht mehr abschalten. Hab letzte Woche schon im Forum gefragt, aber keiner konnte mir helfen.
Absolut mysteriös.
Ich wollt die Lisp mal anhängen. Aber es funktioniert grad nicht.
Hier der Text:
(Defun C:ZAHLEN ()
(START)
(prompt "\n\n\nDie aktuelle Texthöhe wird übernommen...")
(Setq A (Getint "\nStartnummer: "))
(Setq E 1)
(Setq I 0)
(Initget 1 "A")
(Setq P1T (Setq P1 (Getpoint"\nEinfuegepunkt oder Abbruch")))
(While(/= P1T "A")
(Setq F (Itoa A))
(Command "Text" "z" P1 "" I F)
(Setq A (+ A E))
(Initget 1 "A")
(Setq P1T (Setq P1 (Getpoint "\nEinfuegepunkt oder A für Abbruch")))
)
(end)
(Princ)
)
(defun *error* (em)
(end)
(princ "\nAbbruch : ")
(princ em)
)
(defun end()
(if clay
(progn
(command "LAYER" "SE" clay "")
(setvar "BLIPMODE" bmod)
(setvar "CMDECHO" 1)
(setvar "MENUECHO" mech)
(setvar "OSMODE" mosm)
(setvar "SNAPMODE" msna)
(setvar "ORTHOMODE" mort)
)
)
(princ)
)
(defun start()
(setq bmod (getvar "BLIPMODE")
mosm (getvar "OSMODE")
msna (getvar "SNAPMODE")
mort (getvar "ORTHOMODE")
clay (getvar "CLAYER")
mech (getvar "MENUECHO")
)
(setvar "BLIPMODE" 0)
(setvar "CMDECHO" 0)
(setvar "MENUECHO" 3)
(setvar "OSMODE" 0)
(setvar "SNAPMODE" 0)
(setvar "ORTHOMODE" 0)
(command "LAYER" "M" "Text" "Fa" "1" "" "")
)
------------------
Grüße Andrea
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP