【SW二次开发】SolidWorks二次开发

SolidWorks二次开发-获取特征及子特征名称+类型

 Dim swApp                                   As SldWorks.SldWorks
    Dim swModel                                 As SldWorks.ModelDoc2
    Dim swFeat                                  As SldWorks.Feature
    Dim swSubFeat                               As SldWorks.Feature
    Dim sFeatType                               As String
    Dim swCosThread                             As SldWorks.CosmeticThreadFeatureData
    Dim bRet                                    As Boolean


Sub main()
    Set swApp = Application.SldWorks
    Set swPartDoc = swApp.ActiveDoc
    ' Get the first feature in part
     Set swFeat = swPartDoc.FirstFeature
    Do While Not swFeat Is Nothing
        Set swSubFeat = swFeat.GetFirstSubFeature
        Do While Not swSubFeat Is Nothing
            sFeatType = swSubFeat.GetTypeName
                Debug.Print "    " & swSubFeat.Name & " [" & sFeatType & "]"
            Set swSubFeat = swSubFeat.GetNextSubFeature
        Loop
        Set swFeat = swFeat.GetNextFeature
    Loop
End Sub