• На форуме с 9 марта 2010г.
  • Сообщений: 2
  • Спасибо: 0

Тема: Округлить координаты вершин полилинии

Есть полилинии, координаты вершины имеют более 2х знаков после запятой, необходимо перерисовать полилинию но чтобы вершины имели координаты округленные до 2х знаков 

IAcadLWPolyLine

Ответ от Disney (изменено: Disney, 10 марта 2010г. 08:08:36)

  • Disney
  • Disney
  • Активный участник
  • Откуда: Сибирь / Новосибирск
  • На форуме с 28 февраля 2007г.
  • Сообщений: 471
  • Спасибо: 27

Re: Округлить координаты вершин полилинии

Есть готовая, но правда она на Lisp Округлить координаты вершин полилинии
Округление координат объектов

Ответ от dazimir (изменено: Дамир М, 10 марта 2010г. 15:14:46)

  • На форуме с 9 марта 2010г.
  • Сообщений: 2
  • Спасибо: 0

Re: Округлить координаты вершин полилинии

Вроде так получилось!


Var pnt1,pnt2,pnt_R_1: OleVariant;
Var P:IAcadLWPolyLine;

...
pnt1:= VarArrayCreate([0, 2], varDouble);
pnt_R_1:= VarArrayCreate([0, 2], varDouble);

For I:=1 to StrToInt(Length(p.Coordinates)/2) do begin
pnt_R_1:=P.Coordinate[I-1];
pnt_R_1[0]:=RoundTo(pnt_R_1[0],-2);
pnt_R_1[1]:=RoundTo(pnt_R_1[1],-2);
P.Coordinate[I-1]:=pnt_R_1;

End;