Hallo,
ich habe früher immer problemlos folgende Lisp-Datei genutzt:
;;;****** Sicherungsroutine gesetzter Variablen **************
;;;
(defun START ()
(setq CMDOLD (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq OSOLD (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq LAOLD (getvar "CLAYER"))
)
;;;
;;;****** Rcksetzen gesicherter Variablen *******************
;;;
(defun ENDE ()
(setvar "CMDECHO" CMDOLD)
(setvar "OSMODE" OSOLD)
(setvar "CLAYER" LAOLD)
(setvar "CELTSCALE" 1)
(princ)
)
;;;
;;;
;;;****** Programm zur einfacheren Textmanipulation **********
;;;
;;; Ermitteln der n”tigen Durchl„ufe
;;;
(defun ANZAHL ()
(setq AUSWAHLSATZ (ssget))
(setq L (sslength AUSWAHLSATZ))
)
;;;
;;; Welches element wird manipuliert
;;;
(defun WHO ()
(setq A1 (ssname AUSWAHLSATZ (- L 1)))
(setq A2 (ssadd))
(ssadd A1 A2)
(setq H (entget A1))
(setq H1 (assoc '0 H))
(setq H2 (cdr H1))
)
;;; wandelt jeden Text in mtext um
(defun C:TEXTOMTEX ()
(START)
(ANZAHL)
(while (> L 0)
(WHO)
(if (= H2 "TEXT") (progn
(command "_TXT2MTXT" A2 "")
)
)
(setq L (1- L))
)
(ENDE)
)
Jetzt wurde AutoCad allerdings auf einem neuem Rechner installiert und der Befehl funktioniert seitdem nicht mehr.
Es erscheint jetzt z.B.:
<Auswahlsatz: 104> (die zahl erhöht sich nach jedem Versuch)
Und der Text wird nicht umgewandelt.
Im Prinzip das gleiche Problem wie es Dimitra75 in folgendem Thread schon hatte: http://ww3.cad.de/foren/ubb/Forum54/HTML/010509.shtml
Nur mit dem Unterschied, das es bei mir überhaupt nicht klappt.
Auch nicht mit der einen Zusatzzeile von CADwiesel.
Kann man mir sonst noch helfen? 
------------------
gruss,
T.B. 
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de (alle Foren)
| 
- 
