Нужна программа для спрямление внутренних углов прямоугольника

> Михаил
Какие средства и методы используются для оцифровки? Что цифруем???

Вероятно, при этом должны выполняться и дополнительные условия. Например, площадь новой фигуры должна быть равна площади прежней "неправильной". Или смещения вершин от исходных положений должны быть минимальными. Либо все вместе.

> Михаил
В принципе, можно повернуть UCS (ПСК) вокруг оси Z и рисовать прямоугольник.

Предлагаю такой простенький вариант
со следующим алгоритмом:
на входе полилиния с 4-мя вершинами
(и только с 4-мя, предположительно
замкнутая т.е. четырехугольник)
программа меняет расположение только 2-ой и 3-ей
вершин до образования прямоугольника сдвигая их
по прямой проведенной из 2-ой в 3-ю вершину до
их преобразования.
;
;вызов из командной строки rect-reht
;

(defun c:rect-reht (/ nth-2 obj coord pt ang dist)
    (defun nth-2 (x1 x2) (list (nth x1 coord) (nth x2 coord)))
    (setq obj (vlax-ename->vla-object (car (entsel))))
    (if
        (and obj
             (eq (vla-get-ObjectName obj) "AcDbPolyline")
             (/= (vla-get-lock
                     (vla-item (vla-get-layers
                                   (vla-get-activedocument
                                       (vlax-get-acad-object)
                                   )
                               )
                               (vla-get-layer obj)
                     )
                 )
                 :vlax-true
             )
             (eq (length (setq coord (vlax-safearray->list
                                         (vlax-variant-value
                                             (vla-get-Coordinates obj)
                                         )
                                     )
                         )
                 )
                 8
             )
        )
           (progn
               (setq dist (/ (distance (nth-2 0 1) (nth-2 4 5)) 2.0)
                     pt   (list (/ (+ (nth 0 coord) (nth 4 coord)) 2.0)
                                (/ (+ (nth 1 coord) (nth 5 coord)) 2.0)
                          )
                     ang  (angle (nth-2 2 3) (nth-2 6 7))
               )
               (vla-put-Coordinates
                   obj
                   (vlax-safearray-fill
                       (vlax-make-safearray vlax-vbDouble '(0 . 7))
                       (append (nth-2 0 1)
                               (polar pt (+ pi ang) dist)
                               (nth-2 4 5)
                               (polar pt ang dist)
                       )
                   )
               )
               (princ "\n Прямоугольник преобразован.")
           )
           (princ "\n Неверные данные ...")
    )
    (princ)
)

> AY

> Олег(jr.)
Эффектно работают программы. Может, Михаил'а они и устроят. Но вот, если надо восстановить и ортогональность и РАЗМЕРЫ сторон? Скажем, у меня есть сканированное изображение фасада, выполненного вручную в масштабе 1:200. Понятно, что никакой точности в этом изображении нет вообще. То, что на бумаге выглядит хорошо, на экране выглядит так, что плеваться хочется. Линии не ортогональны, размеры далеки от реальных, вообще нет ни одной горизонтальной или вертикальной линии, да плюс сами линии получились жирными. Я обвожу окно по серединам этих жирных линий. Но я знаю, что окно имеет размеры 1200х1500 мм. На экране в мвсштабе 1:200 размеры черт знает какие. После обводки получился непрямоугольный, неортогональный четырехугольник. По одной из этих программ я его выпрямил до ортогональности или спрямил с сохранением площади. Но размеры? Размеры все равно черт знает, какие, потому что четырехугольник на экране нарисован "на глазок". Кто-нибудь может рисовать в AutoCAD'е НЕ ТОЧНО? Я не могу. Вот и получается, что мне удобнее сразу нарисовать прямоугольник, который рисуется всегда ортогонально, с размерами 60х75 (1:200). Конечно, бывает, что размеры элементов чертежа неизвестны или несущественны, или выводиться будут в мелком масштабе, тогда да, нарисовал быстренько, абы как, и выпрямил. Может, это кого-то и устроит, но это - уход от точности построения. Можно, конечно, ввести в программу запросы на размеры прямоугольника, но тогда весь смысл пропадает. Ну, и в случае наклонных прямоугольников тоже не все однозначно. Это не критика самих программ, это просто соображения по их применению.

Рисовалка полилиний со всеми отрезками под прямым углом. Есть возможность автоматического замыкания полилинии на первую точку (для нечетных узлов). Например, если задал 3 точки и опцию Close, то программа отрисовывает прямоугольник.
Програма RB. Очень помогает при оцифровке.
http://geol-dh.ru/kai_stru.html

Смотрите я оцифровывю старый планшет и при оцифровке прямоугольника котороый может быть тоже не с углами 90 градусов, а к примеру 85-89(топограф такой был) когда я обвожу это "прямоугольник" я же не точно попадаю в точки соответственно делаю еще ошибку углы тоже меняются, так мне надо чтобы  углы становились равными по 90 градусов!
врде попытался объяснить
спасибо
с Уважением Михаил

а вторая программа(RCN) вот что выдает:
Error: no function definition: VLAX-CURVE-GETAREAundo Enter the number of
operations to undo or [Auto/Control/BEgin/End/Mark/Back] <1>: e
наверное я что то не так делаю, или тупо объясняю!!!

а можно поподробнее?
спасибо