• kapacb
  • Восстановленный участник
  • На форуме с 11 января 2007г.
  • Сообщений: 1
  • Спасибо: 0

Тема: помогите разобратся

Начинаю пользоватся связкой акад+делфи и вот 1 рога
Sub Ch4_ChangeSplineControlPoint()
    ' Create the spline
    Dim splineObj As AcadSpline
    Dim startTan(0 To 2) As Double
    Dim endTan(0 To 2) As Double
    Dim fitPoints(0 To 8) 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) = 1: fitPoints(1) = 1: fitPoints(2) = 0
    fitPoints(3) = 5: fitPoints(4) = 5: fitPoints(5) = 0
    fitPoints(6) = 10: fitPoints(7) = 0: fitPoints(8) = 0
    Set splineObj = ThisDrawing.ModelSpace. _
                   AddSpline(fitPoints, startTan, endTan)
    splineObj.Update
Но до меня пока еще не дошло как данный кусок реализовать в делфях, вернее именно проблема с координатами, в делфях создал масив и пытался его передать на прямую-это вызвало ошибку через указатель тоже самое, может кто-то подскажет

  • Виктор
  • Восстановленный участник
  • На форуме с 11 октября 2006г.
  • Сообщений: 16
  • Спасибо: 0

Re: помогите разобратся

Не забывай, что надо сначала объявить массивы как VarArray

      startTan := VarArrayCreate([0,2], varDouble);
      endTan := VarArrayCreate([0,2], varDouble);
      fitPoints := VarArrayCreate([0,8], varDouble);

А затем передавать в вызываемую функцию! Тогда все получится!