For i=1 To CountSurfaces(mesh%)
s=GetSurface(mesh,i)
For n=0 To CountVertices(s)-1
;тут типа твой код(поправь сам)
Text ProjectedX#()+VertexX(surface,x)*50,ProjectedY#()+VertexY(surface,x)*50,x
;*********
EndIf
Next
Next
код для нахождения вершин по всему мешу(во всех суфаках)