Hi CADmium,
danke für die rasche Antwort.
Wie ich eben gesehen habe, hatte ich das Lisp gar nicht mitgeschickt.
Ich habe versucht meines mit deinem zu verwurschteln...mit mäßigem Erfolg.
Kannst Du mir grad helfen die 2 Lisps zueinander zu bringen ?
Das da benutze ich...
(defun c:mtit (/ sset mt lay counter)
(setq counter 0)
(if (setq sset (ssget "X" '((0 . "MTEXT"))))
(repeat (sslength sset)
(setq mt (ssname sset counter)
lay (cdr (assoc 8 (entget mt)))
counter (1+ counter)
)
(command "._layer" "_t" lay "_on" lay "_u" lay "_set" lay "")
(command "._explode" mt)
)
)
(prin1)
)
___
Als ich deinen Code damit vermengt habe, hat er nur einen Text im Papierbereich geändert, danach hat er sich beendet. Auch das Script, mit dem ich das LISP aufgerufen habe hat sich nicht fortgesetzt...
Ich hoffe Du kannst mir da grad nochmal unter meine verschwitzten Arme greifen. :-)
Gruss Attilio
------------------
Mit freundlichen Grüssen
Attilio Sfragara
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP