Здравствуйте!
При такой реализации:
procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
i,pc : integer;
px,py : double;
begin
If (MapObj1 <> nil) and (MapObj3 <> nil)
then begin
MapObj1.Metric.SubObjCount := 1;
pc := MapObj3.Metric.PointCount[0];
For i := 1 to pc do
begin
px := MapObj3.Metric.Points[0,i].X;
py := MapObj3.Metric.Points[0,i].Y;
mapAppendPointPlane(MapObj1.ObjHandle,px,py,0);
end;
end;
MapObj1.Commit(); // запишем объект
mvMap.Repaint;
ShowMessage ('готово');
end;
в результате появляется соединение последней точки подобъекта с первой точкой основного объекта.
Что-то я делаю не правильно.
Большая просьба подсказать, что не так?
При такой реализации:
procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
i,pc : integer;
px,py : double;
begin
If (MapObj1 <> nil) and (MapObj3 <> nil)
then begin
MapObj1.Metric.SubObjCount := 1;
pc := MapObj3.Metric.PointCount[0];
For i := 1 to pc do
begin
px := MapObj3.Metric.Points[0,i].X;
py := MapObj3.Metric.Points[0,i].Y;
mapAppendPointPlane(MapObj1.ObjHandle,px,py,0);
end;
end;
MapObj1.Commit(); // запишем объект
mvMap.Repaint;
ShowMessage ('готово');
end;
в результате появляется соединение последней точки подобъекта с первой точкой основного объекта.
Что-то я делаю не правильно.
Большая просьба подсказать, что не так?