catia二次开发vb编程(catia二次开发caa与vba区别)

导语：CATIA二次开发(VBA)——通过代码选择所有产品和零件

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

Sub CATMain()

If catia.documents.count > 0 Then

Dim doc

Set doc = catia.ActiveDocument

If TypeName(doc) = &34; Then

dim sel

set sel = doc.Selection

sel.Search &34;

End If

End If

End Sub

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

本文内容由小洁整理编辑！