Catia V5宏获取轴系统所在零件的名称

Question

我想使用以下宏脚本获取轴系统所在部分的名称：

'build query string
Dim sQuery
sQuery = "CatPrtSearch.AxisSystem.Visibility=Visible,all"

Dim Selection
Set Selection =CATIA.ActiveDocument.Selection  
Selection.Search sQuery

但我找不到找到轴系统所在部分名称的方法。有人知道我如何在没有用户输入的情况下获取该信息吗？

Answer 1

Dim sQuery
sQuery = "CatPrtSearch.AxisSystem.Visibility=Visible,all"

Dim Selection
Set Selection = CATIA.ActiveDocument.Selection  
Selection.Search sQuery

for i = 1 to Selection.Count2
   MsgBox Selection.Item2(i).Document.Name 'name of document  
   MsgBox Selection.Item2(i).LeafProduct.Name 'name of instance product  
next

Catia V5宏获取轴系统所在零件的名称

Catia V5 macro getting name of part where axis system is in

vba

catia