Get Custom Properties for Weldment Cut-list Item Example (VBA)
This example shows how to get the custom properties for the selected
weldment cut-list item.
'----------------------------------------
'
' Preconditions: Model document is open and a
' cut-list
item is selected.
'
' Postconditions: None
'
'----------------------------------------
Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swCutlistItem As SldWorks.Feature
Dim swCustPropMgr As SldWorks.CustomPropertyManager
Dim names As Variant
Dim name As Variant
Dim textexp As String
Dim evalval As String
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swCutlistItem = swSelMgr.GetSelectedObject6(1,
0)
Set swCustPropMgr = swCutlistItem.CustomPropertyManager
Debug.Print "Custom Properties for Selected Weldment Cut-list
Item"
Debug.Print "Number of custom properties = "
+ CStr(swCustPropMgr.Count)
Debug.Print "Name", "Text Expression",
"Value", "Type"
names = swCustPropMgr.GetNames
For Each name In names
swCustPropMgr.Get2 name, textexp, evalval
Debug.Print
name, textexp, evalval, swCustPropMgr.GetType(name)
Next name
End Sub