Vertex of polyline

I've make this wrong routine for get the coordinates of
the first and second vertex of a polyline.

Private Sub DirPol(Pol As AcadLWPolyline)
Dim PrimoVer As Variant
Dim SecondoVer As Variant
Set PrimoVer = Pol.Coordinate(0) 'first vertex
Set SecondoVer = Pol.Coordinate(1) 'second vertex
End Sub

I have make an error? thx?

 

Lose the 'Set' keyword.

Scott

 

Also, the first vertex is going to have 2 coordinates (x and y) and the
second will have 2.

PrimoVer(0)=Pol.Coordinate(0)
PrimoVer(1)=Pol.Coordinate(1)
SecondoVer(0)=Pol.Coordinate(2)
SecondoVer(1)=Pol.Coordinate(3)

 

Coordinate returns a 2-element array of doubles for a LWPoly...

So my code is fine.

PrimoVer(0) will be the X of first Vertex
PrimoVer(1) will be the Y of first Vertex.

Scott

 

Sorry about that, you are right. I confused the Coordinate property with
the Coordinates property which returns all of the elements in one array.