我想獲取使用以下宏腳本找到的軸系統所在部分的名稱：
'build query string
Dim sQuery
sQuery = "CatPrtSearch.AxisSystem.Visibility=Visible,all"
Dim Selection
Set Selection =CATIA.ActiveDocument.Selection
Selection.Search sQuery
但是我找不到找到軸系統所在零件名稱的方法。有人知道如何在沒有用戶輸入的情況下獲取該資訊。
uj5u.com熱心網友回復：
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/479541.html