Text 2 mtext

[JayDee0414]

This is a very simple lisp routine to convert TEXT into MTEXT using EXPRESS>TOOLS>TXT2MTXT command.

 

Adding background mask without lisp. Use SSX select one mtext. Properties dialog box click on Select object. At the prompt Select objects: press P for previous selection.

In the dialog box under TEXT select Background masking and set it for the all selected MTEXT entities.

 

 

 

 

(defun c:tx2mt01 ()
 (setq p (ssget))
 ;filter could be used. In that case you dont need  (if (= "TEXT"  (dxf 0 e)) ;      ;statement
 ;(if (setq p (ssget "_x" (list'(0 . "TEXT") (cons 8  "LAYER NAME"))))
 ;(progn
 (setq l 0  n (sslength p))
(while (< l n)
     (setq e (entget (ssname p l)))
     (if (= "TEXT"  (dxf 0 e))
     (Command "TXT2MTXT" (dxf -1 e) "")
     )
           (setq l (1+ l))
(prompt ".")
)
(princ)
)

(defun DXF (VAL E)
(cdr (assoc VAL E))
)
(princ)

Edited June 5, 2013 by SLW210

[SLW210]

Please reade the Code posting guidelines and use Code Tags for your code. I fixed it for you this time.