Mehr als 1.126.000 registrierte Benutzer - danke!
Neuer Maßeinheiten Umrechnung, ein neuer technischer Taschenrechner
in der neuen Websektion – Konverter.
AutoCAD Tipps, Inventor Tipps, Revit Tipps, Fusion Tipps.
AutoCAD-2027-Befehle (deutsch-englisch).
CAD Tipp # 8204:
Frage
A
Das Befehl TXT2MTXT konvertiert mehrere Texte zu einem einzigen Mtext. Aber wenn Sie wollen mehrere Zeichnungsobjekte von Text zu MText umwandeln - individuell, ohne Kombination - können Sie das folgendes einfaches AutoLISP-Code benutzen
. Speichern Sie es als txt1mtxt.lsp, laden Sie es mit APPLOAD und starten Sie das TXT1MTXT-Befehl:
; CADstudio TXT1MTXT - text to mtext (individual) (defun c:txt1mtxt (/ ss lst x) (setvar "CMDECHO" 0) (command "_undo" "_begin") (setq ss (ssget '((0 . "TEXT")))) (setq lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))) (mapcar '(lambda (x) (command "txt2mtxt" x "")) lst) (command "_undo" "_end") (setvar "CMDECHO" 1) (princ) )
ACAD
12.9.2011
14108×
gilt für: AutoCAD ·


