精简 iLogic 代码：隐藏部件中草图、工作平面、工作轴和工作点

Dim ooDoc = ThisDoc.Document If ooDoc.DocumentType = kPartDocumentObject Then 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

End If