solidworks设计树特征遍历

knowbaby

各位大侠：
由于没用PDM所以想用系列化配置特征功能做零部件的版本管理，思考了好久觉得这是一种可行的办法。由于不确定工件改动量有多大，所以想的是给零件升级的话先吧上一个版本的设计特征都重新执行一遍，然后再在此特征中修改，所以想的是有个宏能把之前的设计树特征遍历出来重新执行一遍，然后把之前的特征放到设计树的一个旧的版本的文件夹中效果如图
，所以需要一个可以遍历设计树特征的宏。。结合冻结栏的使用可完美管理零部件版本，并且图纸可直接出在一张工程图。
之前
xiaoxifeng 童鞋写了如下的特征遍历，但是只实现了名称的遍历





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



所以还的请大虾们帮助一下小虾。
先@闷大，@pyczt @gt.adan @iCAx开思网 @xiaoxifeng

knowbaby

pyczt

knowbaby

knowbaby

pyczt

knowbaby