遍历所有特征名和类型（书上学的）

design100 · 发表于 2016-4-9 09:57:35

经典图书

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swFeature As SldWorks.feature
Dim FeatName As String
Dim FeatType As String
Sub main()
Set swApp = Application.SldWorks
If Not swApp Is Nothing Then
      Set swModel = swApp.ActiveDoc
      If Not swModel Is Nothing Then
         Set swFeature = swModel.FirstFeature
         While Not swFeature Is Nothing
            FeatName = swFeature.Name
            FeatType = swFeature.GetTypeName
            MsgBox "Feature screen name = " & FeatName & vbCrLf & _
                     "Feature type name = " & FeatType
            Set swFeature = swFeature.GetNextFeature
         Wend
            End If
      Set swModel = Nothing
End If
Set swApp = Nothing
End Sub