[宏] 删除焊件中所有的切割清单项目

焊件在手动删除所有项目后，点选“自动”会失败，这是因为会存在隐藏的残留的旧的切割清单，可使用粘贴下列代码到任一宏中执行。

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim swFeature As Object
Dim s As String
Dim t As String
Dim i As Integer
Sub main()
    i = 0
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    Do While j = 0
        Set swFeature = Part.FirstFeature
        Do While Not swFeature Is Nothing
            s = swFeature.Name
            t = swFeature.GetTypeName
            j = 1
            If t = "CutListFolder" Then
               boolstatus = Part.Extension.SelectByID2(s, "SUBWELDFOLDER", 0, 0, 0, False, 0, Nothing, 0)
               Part.EditDelete
               i = i + 1
               j = 0
            End If
            Set swFeature = swFeature.GetNextFeature
        Loop
    Loop
    MsgBox "共删除" & Str(i) & "个清单"
End Sub

然后删除成功，“自动”能执行了。

感楼主谢分享好方法，收藏学习~

感谢 楼主的方法 帮到我了 谢谢