删除 Solidworks 工程图细节视图

Question

我需要删除指定Solidworks工程图中不需要的局部视图，但我需要使用后期绑定。首先，我尝试从特征树中删除细节视图，但随后它只删除细节视图，留下草图圆。然后我删除绘图中的详细视图，结果相同。然后详细视图圈，相同的结果。最后我尝试删除勾画的圆圈，但它没有 select 某个圆圈。当此代码在 Solidworks API 中编译时，一切正常，但在 Excel VBA 中编译时，它会做这件奇怪的事情。我怀疑这与后期绑定有关。有什么建议吗？

Dim SwApp
On Error Resume Next
Set SwApp = GetObject(, "SldWorks.Application")
'If Solidworks is not started then start it
If Err.Number <> 0 Then
Set SwApp = CreateObject("SldWorks.Application")
End If
SwApp.Visible = True
Dim InitialDrawing2 As Object
Set InitialDrawing2 = SwApp.Opendoc(FormatSketchTemplateFolder & "FormatSketch+Tray.SLDDRW", 3)
Dim Status As Boolean
Status = InitialDrawing2.Extension.SelectByID2("Detail Circle2", "DETAILCIRCLE", 0, 0, 0, False, 0, Nothing, 0)
         InitialDrawing2.EditDelete
Status = InitialDrawing2.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
         InitialDrawing2.EditDelete

Answer 1

几个小时后我发现了一个错误。在select画圈之前需要select一定的绘图视图

Dim SwApp
On Error Resume Next
Set SwApp = GetObject(, "SldWorks.Application")
'If Solidworks is not started then start it
If Err.Number <> 0 Then
Set SwApp = CreateObject("SldWorks.Application")
End If
SwApp.Visible = True
Dim InitialDrawing2 As Object
Set InitialDrawing2 = SwApp.Opendoc(FormatSketchTemplateFolder & "FormatSketch+Tray.SLDDRW", 3)
Dim Status As Boolean
InitialDrawing2.ActivateView ("Drawing View9")
Status = InitialDrawing2.Extension.SelectByID2("Detail Circle2", "DETAILCIRCLE", 0, 0, 0, False, 0, Nothing, 0)
         InitialDrawing2.EditDelete
Status = InitialDrawing2.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
         InitialDrawing2.EditDelete

删除 Solidworks 工程图细节视图

Delete Solidworks drawing Detail view

vba

solidworksapi