[Тензор]

Здарвствуйте. Есть координаты 35-ти точек в textbox (35 textbox по X и Y). Вопрос в том как создать сплайн по этим 35 точкам?
Попробовал так:

Код:

[Выделить все]

Dim splineObj As AcadSpline
    Dim startTan(0 To 2) As Double
    Dim endTan(0 To 2) As Double
    Dim fitPoints(0 To 104) As Double
startTan(0) = 0.5
    startTan(1) = 0.5
    startTan(2) = 0
    endTan(0) = 0.5
    endTan(1) = 0.5
    endTan(2) = 0
   fitPoints(0) = Text1(0).Text
   fitPoints(1) = Text2(0).Text
   fitPoints(2) = 0
   fitPoints(3) = Text1(1).Text
   fitPoints(4) = Text2(1).Text
   fitPoints(5) = 0
....
Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)

не получилось(((
Подскажите, что не так.

[Кулик Алексей aka kpblc]

A splineObj где задается?

[Тензор]

в смысле?
Последняя строчка. Разве нет?

[Кулик Алексей aka kpblc]

Сорри, не увидел изначально...
Если смотреть на справку AutoCAD, то по идее все должно работать. Странно...

[Тензор]

Все разобрался. надо было вместо ThisDrawing написать acadDoc, в строчке Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan).

[СергейР]

И первоначальный код прекрасно работает