Тема: Округлить координаты вершин полилинии
Есть полилинии, координаты вершины имеют более 2х знаков после запятой, необходимо перерисовать полилинию но чтобы вершины имели координаты округленные до 2х знаков
IAcadLWPolyLine
Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Есть полилинии, координаты вершины имеют более 2х знаков после запятой, необходимо перерисовать полилинию но чтобы вершины имели координаты округленные до 2х знаков
IAcadLWPolyLine
Есть готовая, но правда она на Lisp
Округление координат объектов
Вроде так получилось!
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;
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форум работает на PunBB, при поддержке Informer Technologies, Inc