CAD Forum - tips, tricks, discussion and utilities for AutoCAD, Inventor, Revit and other Autodesk products [www.cadforum.cz] ARKANCE | CONTACT - CZ | SK | EN | DE
Over 1.095.000 registered users (EN+CZ). AutoCAD tips, Inventor tips, Revit tips. Try the new precise Engineering calculator. New AutoCAD 2026 commands and variables.
RSS channel - CAD tips RSS tips
RSS discussions

Discussion Discussion forum

?
CAD discussions, advices, exchange of experience

CAD Forum - Homepage CAD discussion forum - ask any CAD-related questions here, share your CAD knowledge on AutoCAD, Inventor, Revit and other Autodesk software with your peers from all over the world. To start a new topic, choose an appropriate forum.

Please abide by the rules of this forum.
This is a peer-to-peer forum. The forum doesn't replace the official direct technical support provided by ARKANCE for its customers.
How to post questions: register or login, go to the specific forum and click the NEW TOPIC button.
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Topic ClosedMtext

 Post Reply Post Reply
Author
MARTIN_1234 View Drop Down
Newbie
Newbie


Joined: 10.Sep.2011
Location: United States
Using: C3D 2011
Status: Offline
Points: 4
Direct Link To This Post Topic: Mtext
    Posted: 10.Sep.2011 at 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? 
Back to Top
Vladimir Michl View Drop Down
Moderator Group
Moderator Group

Arkance Systems CZ

Joined: 26.Jul.2007
Location: Czech Republic
Using: Autodesk software
Status: Offline
Points: 2118
Direct Link To This Post Posted: 10.Sep.2011 at 13:13
You can try to use the following LISP code (txt1mtxt.lsp):

; 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)
)
Vladimir Michl (moderator)
ARKANCE - https://arkance.world - Autodesk Platinum Partner
Back to Top
MARTIN_1234 View Drop Down
Newbie
Newbie


Joined: 10.Sep.2011
Location: United States
Using: C3D 2011
Status: Offline
Points: 4
Direct Link To This Post Posted: 12.Sep.2011 at 19:54
Thanks man. Work A+ ...
Back to Top

Related CAD tips:


 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down



This page was generated in 0,070 seconds.