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