Lkosty
Зарегистрирован: 18.12.2009 Сообщения: 10
|
Добавлено: Ср 21 Ноя 2018 10:54 Заголовок сообщения: Создание объекта |
|
|
Всем привет! Пытаюсь потихоньку разобраться с примерами программирования. Информации мало, идёт туго
Может кто нибудь скинуть пример кода создания простенького объекта, с комментариями. Заранее спасибо, если кто не поленится |
|
Foton
Зарегистрирован: 09.10.2006 Сообщения: 158 Откуда: Ярославль
|
Добавлено: Чт 27 Дек 2018 19:45 Заголовок сообщения: |
|
|
А готовые примеры не катят?
Код: |
procedure CreateMapObject(anApp: IIngeoApplication;
const aLayerID, aStyleID: String; Xs, Ys, Cs: array of double);
var
MapObjects: IIngeoMapObjects;
MapObject: IIngeoMapObject;
Contour: IIngeoContour;
Part: IIngeoContourPart;
i: Integer;
begin
Assert(Length(Xs) = Length(Ys), 'Invalid params');
Assert(Length(Xs) = Length(Cs), 'Invalid params');
MapObjects := anApp.ActiveDb.MapObjects;
MapObject := MapObjects.AddObject(aLayerID);
Contour := MapObject.Shapes.Insert(-1, aStyleID).Contour;
Part := Contour.Insert(-1);
for i := 0 to Length(Xs) - 1 do
Part.InsertVertex(-1, Xs[i], Ys[i], Cs[i]);
Part.Closed := True;
MapObjects.UpdateChanges;
end; |
|
|