Polyline with VBA

[klpocska]

How to create a polyline with VBA?

 

I want to use the mouse to get the polyine points...

 

Can somebody help me?

[Lee Mac]

Example from help:

 

Sub Example_AddLightWeightPolyline()
   
   Dim plineObj As AcadLWPolyline
   Dim points(0 To 9) As Double
   
   ' Define the 2D polyline points
   points(0) = 1: points(1) = 1
   points(2) = 1: points(3) = 2
   points(4) = 2: points(5) = 2
   points(6) = 3: points(7) = 2
   points( = 4: points(9) = 4
       
   ' Create a lightweight Polyline object in model space
   Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
   
End Sub

[klpocska]

Thx!

 

Could You tell me how to define the points by Clicking in the model space?