'to loop through each
Dim i As Integer
For i = 0 To UBound(pline.Coordinates)
MsgBox pline.Coordinates(i)
Next i
'to get the number of points
Dim pointsNum As Integer
pointsNum = ((UBound(pline.Coordinates) + 1) / 2)
wrote in message news:4923694@discussion.autodesk.com...
BTW I know you can get the ubound of
thispoly.coordinates
but this is the number of values ie twice as many as you need
so i am using ubound( thispoly.coordinates)/2
which is ok but clumsy
paul
