How to change Multileader Oblique Angle

[tracidennis789461]

Need help getting vla-put-obliqueangle to work. I have searched the internet for hours and can't find an answer that I understand. I can write simple routines but this one is over my head. Thanks

(defun c:fixmleader ( / ent obj)
(vl-load-com)
(princ "\nSelect Multileader: ")
(if (setq ent (ssget '((0 . "MULTILEADER"))))
(progn
(setq obj (vlax-ename->vla-object (ssname ent 0)))
(progn
(vla-put-arrowheadsize obj 0.0
(vla-put-dogleglength obj 0.125)
(vla-put-landinggap obj 0.09)
(vla-put-blockscale obj 1.0)
(vla-put-scalefactor obj ds)
(vla-put-textheight obj 0.10)
(vla-put-obliqueangle obj 20.0)
)
)
)
(princ)
)

[dlanor]

Unfortunately MultiLeaders do not have an obliqueangle property. This is a property of the MultiLeader Textstyle. They also don't have a blockscale property, at least on my version (2012)

Your two options are make a text style with the required obliquing angle and change the text style or; as the text is MText, make an MText object and give it the required obliquing angle. By extracting the text string from Mtext object you will find what the required in string format code is. If you forget the curly braces then it's should be a simple matter of

(vlax-put-property obj 'textstring (strcat "{" "format code" (vlax-get-property obj 'textstring) "}"))

Where "format code" is of the form "\\???;"

If you want to find out properties and applicable methods of objects use

(vlax-dump-object (vlax-ename->vla-object (car (entsel "\nSelect Object to Dump : "))) T)

[tracidennis789461]

Okay - Thanks for the information.