catia二次开发入门与提高pdfCATIA二次开发VBA

导读通过Selection对象的Search方法可以进行很多定制化的选择，话不多说，直接上代码：SubCATMain()Ifcatia.documents.co....

通过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

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