批量控制工作特征，草图的可见性

在装配或零件中，工作特征对象，草图都有visible属性，可设置其True或者False。一个复杂的文件模型中，可能有很多工作特征，为了提高效率，用户界面有一个功能 【对象可见性】，在【查看】选项卡下。可以通过它实现所有控制工作特征可见性的。

API也有对应的方法ObjectVisibility。以下代码演示了如何批量控制工作特征或草图的ObjectVisibility。

Public Sub TurnAllOff()
    ' Make sure a part of assembly is active.
    If ThisApplication.ActiveDocumentType = kAssemblyDocumentObject Or _
            ThisApplication.ActiveDocumentType = kPartDocumentObject Then
       Dim doc As Document
       Set doc = ThisApplication.ActiveDocument
       
       Dim objVis As ObjectVisibility
       Set objVis = doc.ObjectVisibility
       
       objVis.AllWorkFeatures = False
       objVis.Sketche