Lisp Modification to change attribute to Mtext

[acad1985]

Hello all,

I have a routine that convert all the block attributes to Mtext. But it's not working properly. it will convert to Text only, but i want to convert Mtext.

Could anybody helps me?

 

(defun c:att2mt (/ )
  (setq TargEnt (car (entsel "\nSelect object on layer to select: ")))
  (setq TargLayer (assoc 8 (entget TargEnt)))
  (sssetfirst nil (ssget "_X" (list TargLayer)))
(c:burst)
(setq Tset (ssget '((0 . "*TEXT")))) 
(setq	Setlen (sslength Tset) 
Count 0
) ;setq
(repeat SetLen 
(setq Ename (ssname Tset Count)) 
(command "_txt2mtxt" Ename "")
(setq Count (+ 1 Count)) 
)	; Repeat	
(princ)
)

Thanks.

[acad1985]

Hello all,

Anyone help me please

[BIGAL]

Just do a straight mtext look at what is involved pick 2 points pt1 pt2 then do mtext rather than text2mtxt.

[acad1985]

Hey Bigal, 

Thanks for your reply.

Actually I'm not understanding what you said. Could you please explain briefly.

 

Thanks

[BIGAL]

Maybe I am reading the wrong intention of what you want to do, if the block is only an attribute then it would be easier to just recreate that attribute as new mtext, mtext asks for 2 points but you can use the insert position to work out pt1 the pt2 would be a fuzzy factor based on height and number of characters.

 

Best to post a dwg or image showing what is really required.

[acad1985]

Hey Bigal, 

Thanks you so much.

I got it now...and it's working perfect.

 

 

Thanks

[BIGAL]

Good to here