Community
I'm trying to build a list of surface lable style, (both slope and spot elevation) using vlisp 2013.
I can create a list of the parant, but I can not find the clildren.
my goal is to change a surface label style between the parent and the children, using a list. To many style for the property menu.
Please help.
Solved! Go to Solution.
Solved by Jeff_M. Go to Solution.
This works for me:
(vl-load-com) (setq prod (vlax-product-key)) (setq prodStr (strcat "AeccXUiLand.AeccApplication" (cond ((vl-string-search "\\R18.0\\" prod) ".7.0");;2010 ((vl-string-search "\\R18.1\\" prod) ".8.0");;2011 ((vl-string-search "\\R18.2\\" prod) ".9.0");;2012 ((vl-string-search "\\R19.0\\" prod) ".10.0");;2013 ((vl-string-search "\\R19.1\\" prod) ".10.3");;2014 (t "")))) (if (and (setq *acad* (vlax-get-acad-object)) (setq C3D (vla-getinterfaceobject *acad* prodStr)) (setq C3Ddoc (vla-get-activedocument C3D)) ) (progn (setq stylelist "") (setq surflblstyles (vlax-get c3ddoc 'surfacelabelstyles)) (processstyles (vlax-get surflblstyles 'spotelevationlabelstyles)) ) ) (defun processstyles (styles) (vlax-for style styles (setq stylelist (strcat stylelist (vlax-get style 'name) ", ")) (if (setq children (vlax-get style 'children)) (processstyles children) ) ) )