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]