[求助]：我要怎样修改

gps

我只能简单用VBA编程,想在两条样条曲线中插入4条样条曲线,以用在等高线的内插,我要怎样才能把4组点连接成4条样条曲线,因为样条曲线ADDSPLINE后只带三个参数,谢谢
Sub cc()
Dim sp As Variant
Dim ep As Variant
Dim h1 As String
Dim h2 As String
pai# = 3.1415926
Open ("d:\z\江北\sj\a1.txt")  For Append As #1
Open ("d:\z\江北\sj\a2.txt")  For Append As #2
Open ("d:\z\江北\sj\a3.txt")  For Append As #3
Open ("d:\z\江北\sj\a4.txt")  For Append As #4
10 sp = ThisDrawing.Utility.GetPoint(, h1)
ep = ThisDrawing.Utility.GetPoint(, h2)
x0 = sp(0)
y0 = sp(1)
x = ep(0)
y = ep(1)
XX = x - x0: YY = y - y0
If XX = 0 And YY > 0 Then fw = pai# / 2: GoTo 100
If XX = 0 And YY < 0 Then fw = 3 * pai# / 2: GoTo 100
fw = Atn(YY / XX)
If XX < 0 Then fw = fw + pai#: GoTo 100
If XX > 0 And YY < 0 Then fw = fw + 2 * pai#
100 s = Sqr((x - x0) ^ 2 + (y - y0) ^ 2)
s = s / n
x1 = x0 + s * Cos(fw)
y1 = y0 + s * Sin(fw)
Write #1, x1, y1
x1 = x0 + 2 * s * Cos(fw)
y1 = y0 + 2 * s * Sin(fw)
Write #2, x1, y1
x1 = x0 + 3 * s * Cos(fw)
y1 = y0 + 3 * s * Sin(fw)
Write #3, x1, y1
x1 = x0 + 4 * s * Cos(fw)
y1 = y0 + 4 * s * Sin(fw)
Write #4, x1, y1: GoTo 10
End Sub

雪山飞狐(lzh)

把点坐标转化为Double数组
如
p(0)=p1(0):p(1)=p1(1):p(2)=p1(2)
p(3)=p2(0):p(4)=p2(1):p(5)=p2(2)
......
另外，多看帮助里的例子

lsjjm

REFERENCE TO:
[php]
Sub test ()
  Dim ss As AcadSpline
  Dim noofpoints As Integer
  Dim anobj As Object
  noofpoints = 6
  Dim tan(0 To 2) As Double
  tan(0) = 10#: tan(1) = 10#: tan(2) = 0#
  ReDim FitPoints(0 To 17) As Double
  Dim n As Integer
  For n = 0 To noofpoint * 3 - 1 Step 3
    FitPoints(n) = Rnd()
    FitPoints(n + 1) = Rnd()
    FitPoints(n + 2) = 0#
  Next
  ThisDrawing.ModelSpace.AddSpline FitPoints, tan, tan
End Sub
[/php]