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
在装配窗口中运行后的效果如下:
免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com