Когда
несколько представлений у детали (CATShape) и мы запускаем поиск с scr, то selection.item(№).LeafProduct не отдается - пишет что ошибка

-
- Код: Выделить всё
Sub CATMain()
Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = productDocument1.Selection
Dim rr As Product
selection1.Search "Topology.CGMFace.Visibility=Shown,scr"
For i = 1 To selection1.Count
Set rr = selection1.Item(i).LeafProduct
Debug.Print rr.Name
Next
End Sub
А вот с all все нормально
Что интересно - ведь поверхностей то побольше возвращается.....
PS. Нужен именно LeafProduct (т.е. "сборочный" продукт),а не referenceproduct (который привязан к детали)