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

湖後聽書人 · 发表于 2018-3-11 10:06:44

经典图书

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