Dim oDoc As Document oDoc = ThisApplication.ActiveDocument

' 草图不可见 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 Exit For Next


原文地址: http://www.cveoy.top/t/topic/phec 著作权归作者所有。请勿转载和采集!

免费AI点我,无需注册和登录