Modifying mtext line spacing style

[ATS1211]

Hi all,

 

I'm fairly new to lisp programming and am trying to write a lisp routine to change the line space style of all the mtext in a drawing from "At least" to "Exactly". I would be incorporating this step into an existing lisp routine that does a few other things.

 

So far, I have searched and cannot find a DXF code that controls this variable. I did find a lisp that used:

 

"vla-put-TextLineSpacingStyle" and "acLineSpacingStyleExactly"

 

However, all I get is an error saying "ActiveX Server returned the error: unknown name: TextLineSpacingStyle"

 

Any help is very appreciated!

 

Thanks!

[MSasu]

Maybe this will help you:

 

(entmod (subst (cons 1 (strcat "\\pxse1;" (cdr (assoc 1 MyMTextEntity))))
              (assoc 1 MyMTextEntity)
              MyMTextEntity))

 

Regards,

Mircea