分享免费的编程资源和教程

网站首页 > 技术教程 正文

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

goqiw 2024-10-30 03:41:50 技术教程 18 ℃ 0 评论

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

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

Tags：

猜你喜欢

本文暂时没有评论，来添加一个吧(●'◡'●)

欢迎 你 发表评论:

最近发表
标签列表