through bello script I achieve the position of selected product in Catia.
Set productDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = productDocument1.Selection
selection1.Search "CATElectricalSearch.MultipleSegments,all"
Dim product1 As Product
Set product1 = selection1.Item(1).Value
'msgbox "product Name = " & product1.Name
Dim pos(11)
Set Dokument = product1 ' assigining selection part to get coordinates
ddd = Dokument.Name
Dokument.Position.GetComponents pos 'getting coordinates
ccc = "Origin Point: X= " & pos(9) & " Y= " & pos(10) & " Z= " & pos(11)
Through above code I can get only get position coordinates. Now I want to get Angle coordinates of same selection. can anyone help me on this