When I do this:
(defun c:test ()
(vl-load-com)
(setq acadobject (vlax-get-Acad-Object))
(setq activedocument (vla-get-activedocument acadobject))
(setq DStyle (vlax-get-property activedocument 'ActiveDimStyle))
(list DStyle)
)
VL gives me this:
(#<VLA-OBJECT IAcadDimStyle 057be680>)
Which is obviously not what I want.
And, ironically, VL doesn't want it either, when I try to give it back in this form:
(vlax-put-property (vlax-ename->vla-object Ent1) 'Stylename DStyle)
What else do I need to get the name of the active DimStyle?