Mit folgender Routine lässt sich interaktiv ein Produkt/Part aus einem Produkt auswählen.

Der Rückgabewert ist das entsprechende Dokument.

Option ExplicitSub CATMain2()
   MsgBox "The selected object is: " & GetProduct.Name
End Sub

Function GetProduct() As Variant
   Dim oSel 'As Selection
   Dim arrSelWhich(1)
   Dim Status As String

   Set oSel = CATIA.ActiveDocument.Selection

   arrSelWhich(0) = "Part"                      'needs to be part first?!
   arrSelWhich(1) = "Product"                   'otherwise only products will be allowed

   Status = oSel.SelectElement2(arrSelWhich, "Select Part or Product", False)

   If (Status = "Normal") Then
      Set GetProduct = oSel.Item2(1).Value
   End If

End Function

Zum Seitenanfang