inner69923
2004-07-23, 10:27 PM
ElseIf (TypeOf objSel Is AutoCAD.AcadLine) Then
ReDim LElementos(5) As Double
Dim startpoint As Variant
Dim endpoint As Variant
startpoint = objSel.startpoint
endpoint = objSel.endpoint
Dim n As Integer
For n = 0 To 2
LElementos(n) = startpoint(n)
LElementos(n + 3) = endpoint(n)
Next n
this gimme error, i have tried a lot of ways of make an array of doubles with the coordinates of a line, just to give them the same treatment i do to coordinates of rest of elements
anyone know the way?
err, editing and corrected, there is no error, sorry
ReDim LElementos(5) As Double
Dim startpoint As Variant
Dim endpoint As Variant
startpoint = objSel.startpoint
endpoint = objSel.endpoint
Dim n As Integer
For n = 0 To 2
LElementos(n) = startpoint(n)
LElementos(n + 3) = endpoint(n)
Next n
this gimme error, i have tried a lot of ways of make an array of doubles with the coordinates of a line, just to give them the same treatment i do to coordinates of rest of elements
anyone know the way?
err, editing and corrected, there is no error, sorry