Can anybody help????
I have an assembly that I am exporting via a VBA macro. Below is part of the macro (see attached for full macro). The macro works OK except, I need to get the property from the summary information (Please see the attached picture)
Function TraverseFeatureFeatures(swFeat As SldWorks.Feature, nLevel As Long)
Dim swSubFeat As SldWorks.Feature
Dim swSubSubFeat As SldWorks.Feature
Dim swSubSubSubFeat As SldWorks.Feature
PartNumber = ""
While Not swFeat Is Nothing
FeatureType = swFeat.GetTypeName
Select Case FeatureType
Case "Reference", "Stock"
PartNumber = swFeat.Name
If FeatureType = "Reference" Then PartNumber = Left$(PartNumber, InStrRev(PartNumber, "-") - 1)
REM I NEED TO DISPLAY THE "PartType" PROPERTY HERE???? (eg Laser Cut Profile). PLEASE SEE THE ATTACHED PICTURE
Set swFeat = swFeat.GetNextFeature
Does anybody know how to do this????
Thanks in advance!