This code works... so long as the PropertySet is not style based.
Is there a way around this?
(setq vlaObj (vlax-ename->vla-object (car (entsel "Select a Object ")))
acadObj (vlax-get-acad-object)
schedApp (vla-getInterfaceObject
acadObj
"AecX.AecScheduleApplication.7.0" ; for AutoCAD MEP 2013
)
propSets (vlax-invoke-method schedApp 'PropertySets vlaObj)
psdName "MvPartCustom_TypeStyles"
propSet (vlax-invoke-method propSets 'Item psdName)
properties (vlax-get-property propSet 'Properties)
propNameValList (reverse
(vlax-for prop properties
(setq propNameValList
(cons
(cons
(vlax-get-property prop 'Name)
(vlax-variant-value
(vlax-get-property prop 'Value)
)
)
propNameValList
)
)
)
)
)
Solved! Go to Solution.
Solved by ChrisPicklesimer. Go to Solution.
What if you get the Style Object (StyleObj) and look for propsets on that instead of the selected object?
I tried on my end and I was able to get the style based prop set list.
Chris
(setq vlaObj (vlax-ename->vla-object (car (entsel "Select a Object ")))
StyleObj (vlax-get vlaObj 'Style);<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<Modified
acadObj (vlax-get-acad-object)
schedApp (vla-getInterfaceObject
acadObj
"AecX.AecScheduleApplication.7.0" ; for AutoCAD MEP 2013
)
propSets (vlax-invoke-method schedApp 'PropertySets StyleObj);<<<<<<<<Modified
psdName "MvPartCustom_TypeStyles"
propSet (vlax-invoke-method propSets 'Item psdName)
properties (vlax-get-property propSet 'Properties)
propNameValList (reverse
(vlax-for prop properties
(setq propNameValList
(cons
(cons
(vlax-get-property prop 'Name)
(vlax-variant-value
(vlax-get-property prop 'Value)
)
)
propNameValList
)
)
)
)
)