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)
Why not extracting vertex in point in a separate Geometrical Set? Should work something like extract vertex, isolate, then change from Explicit point type to Coordinate point type... do it first manually to see if is what you want.