Скачать: CL | DM;

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

← →
Иван Р.   (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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.032 c