删除Solidworks绘图明细视图

Question

我需要删除指定的Solidworks绘图中不必要的细节视图，但我需要使用后期绑定。首先尝试从特征树中删除细节视图，然后删除仅留下素描圆圈的细节视图。然后我删除绘图中的细节视图，结果相同。然后详细查看圆圈，结果相同。最后，我尝试删除素描圆，但它没有选择特定的圆圈。当在Solidworks中编译这段代码时，所有代码都正常工作，但是当在Excel中编译时，它就会做这种奇怪的事情。我怀疑这与后期绑定有关。有什么建议吗？

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

几个小时后，我发现了一个错误。在选择圆之前，需要选择一定的绘图视图。

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