i exctract all the surfaces of a body, and i pick a random surface to get the vertex and, i am trying to get the coordinates of each vertex, the code i am using is the following
hope you can help me with this
Language="VBSCRIPT"
Sub CATMain()
Dim mycoord(2)
Set partDocument1 = CATIA.ActiveDocument
Set selection1 = partDocument1.Selection
selection1.Search "Name=Surface.48,all"
Set selection = partDocument1.Selection1
selection.Search "Topology.Vertex,sel"
Y = selection.Count
For i = 1 To Y
Set reference1 = Selection.Item(i).Value
reference1.GetCoordinates (mycoord)
xc = mycoord(0)
yc = mycoord(1)
zc = mycoord(2)
MsgBox xc
MsgBox yc
MsgBox zc
Next
End Sub