Can anyone please tell me why the following code wouldnt work? it does all kind of weird stuff when breaking. the only thing i get right is the line.
thanks
Code:
Sub brline()
Dim startpoint(0 To 2) As Double
Dim endpoint(0 To 2) As Double
Dim insertpt(0 To 2) As Double
insertpt(0) = 50
insertpt(1) = 0
insertpt(2) = 0
startpoint(0) = 0
startpoint(1) = 0
startpoint(2) = 0
endpoint(0) = 100
endpoint(1) = 0
endpoint(2) = 0
ThisDrawing.ModelSpace.AddLine startpoint, endpoint
ThisDrawing.SendCommand "(command " & """" & "break" & """" & " (entlast) '(" & insertpt(0) + 10 & " " & _
insertpt(1) & ") '(" & insertpt(0) - 10 & " " & insertpt(1) & "))" & vbCr
End Sub