catia二次开发入门与提高pdf（CATIA二次开发VBA）

通过Selection对象的Search方法可以进行很多定制化的选择，话不多说，直接上代码：

Sub CATMain()

If catia.documents.count > 0 Then

Dim doc

Set doc = catia.ActiveDocument

If TypeName(doc) = "ProductDocument" Then

dim sel

set sel = doc.Selection

sel.Search "产品结构.装配 产品结构.零件,all"

End If

End If

End Sub

在装配窗口中运行后的效果如下：