convert mtext to multileader

[the_mini_guy]

Hi,
I was wondering if anyone has a lisp or vba to convery mtext (no leader) to multileader text (no leader)?

Cheers
TMG

[icbinr]

(defun c:mt2ml ( / oobj nobj nstrg)
  (vl-load-com)
  (setq oobj (vlax-ename->vla-object (car (nentsel "\nSelect source text: "))))
  (if (= (vlax-get-property oobj 'ObjectName) "AcDbMText")
    (setq nstrg (vlax-get-property oobj 'TextString))
    (exit)	   
    )
  (command "_MLEADER")
  (while (= 1 (logand (getvar "CMDACTIVE") 1)) (command PAUSE))
  (setq nobj (vlax-ename->vla-object (entlast)))
  (if (= (vlax-get-property nobj 'ObjectName) "AcDbMLeader")
    (vlax-put-property nobj 'TextString nstrg)
    (exit)	   
    )
  (entdel (vlax-vla-object->ename oobj))
  (princ)
)

[Revitizeme]

Perfect!! This is exactly what I needed. Thanks for posting.

[shartal672324]

It`s a pity, but if the mtext contains field, after convertion to multileader, field becomes a simply text. Is there a possibility to repair this trouble?
Thanks.

[Opie]

It`s a pity, but if the mtext contains field, after convertion to multileader, field becomes a simply text. Is there a possibility to repair this trouble?
Thanks.

You could try changing this line of code:

(setq nstrg (vlax-get-property oobj 'TextString))

with this line of code:

(setq nstrg (vlax-invoke-method oobj 'FieldCode))

[sony007]

Hi,
I was wondering if anyone has a lisp or vba to convery mtext (no leader) to multileader text (no leader)?

Cheers
TMG

Which type lisp you looking...

[ptortorice347608]

The MT2ML lisp is great, or was great. This was working fine for a long time and then one day it stopped working. when i run MT2ML, i select Mtext and get this "Select source text: ; error: no function definition: VLAX-ENAME->VLA-OBJECT" Can anyone tell my why this is no longer working?

Thanks,

[pendean]

What version of AutoCAD are you using these days?

[Tom Beauford]

The MT2ML lisp is great, or was great. This was working fine for a long time and then one day it stopped working. when i run MT2ML, i select Mtext and get this "Select source text: ; error: no function definition: VLAX-ENAME->VLA-OBJECT" Can anyone tell my why this is no longer working?

Thanks,

As long as

(vl-load-com)

is still the second line of the code there shouldn't be any problem.
Check out https://forums.autodesk.com/t5/visua...000326#M296098