在CATIA中使用VBA（VBS）进行二次开发时通过Selection类下的VisProperties属性来获取和设置选择集中元素的显示状态，此属性的操作对象是选择集，调用方法如下：

CATIA.ActiveDocument.Selection.VisProperties。

通过此路径调用VisProperties属性后获得的是VisPropertySet类，通过此类可以进行选择集中元素属性的管理。实现选择集中元素的显示和隐藏可以通过VisPropertySet类中的SetShow方法（函数）实现，此方法定义如下：

Sub SetShow( CatVisPropertyShow  iShow)

其中参数iShow为枚举类CatVisPropertyShow，此类的定义如下：

CatVisPropertyShow (Enumeration)

enum CatVisPropertyShow {

 catVisPropertyShowAttr,

 catVisPropertyNoShowAttr

}

其中：catVisPropertyShowAttr为显示元素，catVisPropertyNoShowAttr为隐藏元素。

示例代码：将选择集中的元素变为隐藏状态。

Dim Selection,VisPropertySet

Set Selection =CATIA.ActiveDocument.Selection

Set VisPropertySet =Selection.VisProperties

VisPropertySet.SetShowcatVisPropertiesNoShowAttr

枚举类型也可以通过序号直接引用，例如上面的：

VisPropertySet.SetShow catVisPropertiesNoShowAttr

还可以写成：

VisPropertySet.SetShow 1

如果希望通过二次开发自动实现元素的批量显示或隐藏，可通过Selection类下的Search方法按条件选取相应的元素，并将其添加到选择集中，然后通过上面的方法实现选择集中元素的显示或隐藏。Search函数的详细使用方法可参考文章《CATIA VBA（VBS）二次开发：使用Search批量选择元素》。