I'm trying to extract information from a weldment cut list. This particular code just runs through all cut lists in a weldment/sheetmetal part and looks at the evaluated Length value. For some reason the Evaluated Value creturns a blank when I check it? The screenshot below shows the cut list properties. Not really sure what's going on here.
Any help would be greatly appreciated.
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim Temp As String
Dim bool As String
Dim swFeat As Feature
Dim eLength As String
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swFeat = swModel.FirstFeature
Do While Not swFeat Is Nothing
If swFeat.GetTypeName2 = "CutListFolder" Then
bool = swFeat.CustomPropertyManager.Get4("LENGTH", False, Temp, eLength)
Set swFeat = swFeat.GetNextFeature