Im really sorry, Im sure this has been answered elsewhere but Ive been trying and searching for days for a solution. My problem is as follows:
Ive created four lines and want to spline the end points. Heres my code:
Public Sub CommandButton4_Click()
Dim pt1 As Variant
Dim pt2 As Variant
Dim pt3 As Variant
Dim pt4 As Variant
Dim pt5 As Variant
pi = 3.14159265358979
myform.Hide
pt1 = ThisDrawing.Utility.GetPoint(, "click tree position")
pt2 = ThisDrawing.Utility.PolarPoint(pt1, pi / 2, Val(TextBox3.Text * 1000))
pt3 = ThisDrawing.Utility.PolarPoint(pt1, 0, Val(TextBox4.Text * 1000))
pt4 = ThisDrawing.Utility.PolarPoint(pt1, pi / -2, Val(TextBox5.Text * 1000))
pt5 = ThisDrawing.Utility.PolarPoint(pt1, pi / 1, Val(TextBox6.Text * 1000))
ThisDrawing.ModelSpace.AddLine pt1, pt2
ThisDrawing.ModelSpace.AddLine pt1, pt3
ThisDrawing.ModelSpace.AddLine pt1, pt4
ThisDrawing.ModelSpace.AddLine pt1, pt5
Dim splineObj As AcadSpline
Dim startTan As Double
Dim endTan As Double
Dim fitPoints(0 To 2) As Double
' Define the variables
startTan = 0
endTan = 0
fitPoints(0) = pt1: fitPoints(1) = pt2: fitPoints(2) = pt3
' Create the spline
splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)
Debug.Print (splineObj.Degree)
Debug.Print (splineObj.NumberOfControlPoints)
End Sub
I get a runtime error - this should be straight forward.. and yes Im new to this, but any help would be appreciated.
Thanks
Jonny
assign like that
Dim fitPoints(0 To 8) As Double fitPoints(0) = pt1(0): fitPoints(1) = pt1(1):fitPoints(2) = pt1(2) fitPoints(3) = pt2(0): fitPoints(4) = pt2(1):fitPoints(5) = pt2(2) fitPoints(6) = pt3(0): fitPoints(7) = pt3(1):fitPoints(8) = pt3(2)