Нарисовать объект на карте в ГИС ИнГео

← →
Иван Р. (2004-05-20 01:30) [0]

Здравствуйте. Не могу никак нарисовать объект на карте в ИнГео, может я чего не так делаю, посмотрите:
Const
idStyle:=’0001000004BD’; // Стиль
idLayer:="0001000004BB"; // Слой

Var
IdObj : TM2ID;
fContour: IM2Contour;
aShapeList: IM2ShapeList;
x1,y1,x2,y2,x0,y0:double;

Begin
x0:=1000; // Вот с такими значениями X и Y
y0:=1000; // (и вообще с целочислен. знач.) ничего не
x1:=1500; // происходит, а когда им присваиваешь перемен-
y1:=3300; // ные (real) – прога ругается, либо рисует ерунду.
x2:=4000;
y2:=-1200;
fContour:=gAddOn.MapObjects.CreateContour;
fContour.i_AddCommand(M2MoveToCommand(M2Point(x0,y0)));
fContour.i_AddCommand(M2LineToCommand(M2Point(x1,y1)));
fContour.i_AddCommand(M2ArcToCommand(M2Point(x2,y2),-0.45));
fContour.i_AddCommand(M2CloseByLineCommand);
aShapeList:=gAddOn.MapObjects.CreateShapeList;
aShapeList.i_Add(fcontour,idStyle);
IdObj:=gAddOn.MapObjects.AddObject(IdLayer,aShapeList);
end;

TM2ID; IM2Contour; IM2ShapeList – из M2Addon.

P.S. Система W-s XP, Delphi 5, ИнГео 3.6.0.234

← →
Германн © (2004-05-20 02:30) [1]

Да, давно тут не был ShaggyD...

← →
Andrey007 (2004-05-21 15:09) [2]

Типа, не знает ли кто ИнГео??

← →
имя (2004-05-21 19:27) [3]

Удалено модератором

Нарисовать объект на карте в ГИС ИнГео Найти похожие ветки