SolidWorks VBA: 优化代码，仅对第一个引用文件执行操作

Dim ooDoc=ThisDoc.Document If ooDoc.DocumentType= kPartDocumentObject Then GoTo AA Dim oAsmDoc As AssemblyDocument oAsmDoc = ThisApplication.ActiveDocument Dim oDoc As Document Dim oRefFile As FileDescriptor

If oAsmDoc.AllReferencedDocuments.Count > 0 Then oDoc = oAsmDoc.AllReferencedDocuments.Item(1) ThisApplication.Documents.Open(oDoc.FullFileName, True)

'隐藏所有草图
For Each oSketch In oDoc.ComponentDefinition.Sketches
    oSketch.Visible = False
Next

'隐藏所有工作平面
For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes
    oWorkPlane.Visible = False
Next

'隐藏所有工作轴
For Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes
    oWorkAxis.Visible = False
Next

'隐藏所有工作点
For Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints
    oWorkPoint.Visible = False
Next

'关闭文件
oDoc.Close

End If

AA: For Each oSketch In ooDoc.ComponentDefinition.Sketches oSketch.Visible = False Next

'设置工作平面能见度
For Each oWorkPlane In ooDoc.ComponentDefinition.WorkPlanes
    oWorkPlane.Visible = False
Next

'设定工作轴能见度
For Each oWorkAxis In ooDoc.ComponentDefinition.WorkAxes
    oWorkAxis.Visible = False
Next

'设定工作点可见性
For Each oWorkPoint In ooDoc.ComponentDefinition.WorkPoints
    oWorkPoint.Visible = False
    Exit For
Next