Display full version of the post: Mtext

MARTIN_1234
10.09.2011, 04:22


Does anybody have experiance with: changing Simple text to Mtext? If it comes to one text conversion to One Mtext its easy but if I want to change over 1000 texts to Mtext and I highlight all texts , then I'm creating one big Mtext with over 1000 words in Mtext.Next thing is that I want the"new" Mtext keep original position of text.Is any body good at that problem? 

Vladimir Michl
10.09.2011, 13:13
You can try to use the following LISP code (txt1mtxt.lsp):
[CODE]
; 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))
[/CODE]

MARTIN_1234
12.09.2011, 19:54


Thanks man. Work A+ ...