Рисование полилинии, аналогично данной, на заданном расстоян
Добавлено: 29 сен 2010, 11:43
Доброго всем времени суток 
На основе имеющихся точек я создаю полилинию.
А myobj1 создается по координатам (aNewCoordX=ObjectGeography(obj, OBJ_GEO_POINTX)+ Abs(Поле1- Val(sBeetwin)),aCoordY) т.е. просчитывается.
Но имеющаяся полилиния меняется же не только по оси х, но и по у. Как можно автоматически предусмотреть, чтобы все зависимости какой вид имела полилиния..рисовалась полилиния, аналогично данной на заданном конкретном расстоянии Abs(Поле1- Val(sBeetwin))
Если кто сталкивался с такой проблемой, подскажите пожалуйста
На основе имеющихся точек я создаю полилинию.
Код: Выделить всё
Create Pline Into Variable myobj1 0
Create Pline Into Variable myobj 0
For i=1 to TableInfo(sSel1,TAB_INFO_NROWS)
Fetch First From sSel1
While not EOT(sSel1)
Alter Object myobj Node Add (aCoordX,aCoordY) это создается линия по тек. точкам
Alter Object myobj1 Node Add (aNewCoordX,aCoordY)
i=i+1
Fetch Next From sSel1
Wend
Next
Insert Into sSel (obj) Values (myobj)
Insert Into sSel (obj) Values (myobj1)Но имеющаяся полилиния меняется же не только по оси х, но и по у. Как можно автоматически предусмотреть, чтобы все зависимости какой вид имела полилиния..рисовалась полилиния, аналогично данной на заданном конкретном расстоянии Abs(Поле1- Val(sBeetwin))
Если кто сталкивался с такой проблемой, подскажите пожалуйста