Выравнивание отрезков. Lisp.Visual lisp

При создании чертежа с выключенной опцией "Ortho" возможна ситуация, при которой проектировщик может ошибочно начертить линии не абсолютно вертикально или горизонтально, а с небольшой погрешностью, т.е. координаты X, Y начала и конца отрезка отличаются в десятых, или в сотых долях единиц. Диалоговое окно программы должно позволять задать допустимое значение отклонения по каждой оси, менее которого, отрезок будет считаться не строго горизонтальным, либо вертикальным. Такие отрезки, найденные программой в чертеже должны подвергаться выравниванию. При этом, координата начальной точки по оси выравнивания записывается в соответствующую координату конечной точки. Отрезками считаются как линии, так и сегменты полилиний. Программа должна отображать в диалоговом окне сводную информацию об общем количестве найденных отрезков обоих типов, а также о количестве отрезков обоих типов, которые подвергнутся коррекции. Программа не должна модифицировать полилинии с числом вершин более двух.