Move the lwpolyline

[jandres]

Hello people!!
I don't know move a acadLWpolyline. I have a example, but is not true:

Dim puntos As Variant
Dim puntos1(0 to 1) As Double
Dim puntos2(0 to 1) as Double
Dim objFierro as AcadLwPolyline


puntos1(0) = 0: puntos1(1) = 1
puntos2(0) = 0: puntos2(1) = 1+2

'moving the line
objFierro.move puntos1, puntos2

Anyone help me??, thanx!!!

[SpeedCAD]

Hello people!!
I don't know move a acadLWpolyline. I have a example, but is not true:

Dim puntos As Variant
Dim puntos1(0 to 1) As Double
Dim puntos2(0 to 1) as Double
Dim objFierro as AcadLwPolyline


puntos1(0) = 0: puntos1(1) = 1
puntos2(0) = 0: puntos2(1) = 1+2

'moving the line
objFierro.move puntos1, puntos2

Anyone help me??, thanx!!!

Hi...

You need the LWPOLYLINE Object...

[jandres]

OK, I resolve this problem, but, I really need is change length the lwpolyline
Anyone have a example???

[SpeedCAD]

OK, I resolve this problem, but, I really need is change length the lwpolyline
Anyone have a example???

Hi...

Now I don't an example but you must get the points and next you have change the last point with Coordinate(index) property.


Ahora no tengo un ejemplo pero debes obtener los puntos y luego debes cambiar el ultimo punto con la propiedad Coordinate(index).

[jandres]

Gracias, eso me sirvio!!