SW宏-删除零件所有特征

适用对象：零件
主要功能：删除所有特征，将零件所有特征删除的干干净净，只剩下最开始绘制的一个草图

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35


Sub 删除零件特征()

    ' 获取SolidWorks应用程序对象
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    
    ' 检查是否打开了文档
    If swModel Is Nothing Then
        MsgBox "请打开一个文档。", vbExclamation, "错误"
        Exit Sub
    End If
    
    ' 检查是否是零件文档
    If Not TypeOf swModel Is SldWorks.partDoc Then
        MsgBox "请在零件模式下运行。", vbExclamation, "错误"
        Exit Sub
    End If

    ' 获取第一个特征
    Set swFeature = swModel.FirstFeature
    
    ' 遍历并删除所有特征
    Do While Not swFeature Is Nothing
        Dim nextFeature As SldWorks.Feature
        Set nextFeature = swFeature.GetNextFeature
        swFeature.Select2 True, 0
        swModel.EditDelete
        Set swFeature = nextFeature
    Loop
    ' 强制重新构建模型以显示更改
    'swModel.ForceRebuild3 True

    MsgBox "已删除所有特征。", vbInformation, "完成"

End Sub