Пересчет из одной плановой системы в другую

[Донецков]

Конечно в автокаде все это можно сделать и командой "Выравнить", но когда есть набор данных, с которым нужно оперативно работать (причем в чистом автокаде, без возможностей Map/Civil), то в одной системе СК, то в другой, причем с не равным масштабным коэффициентом (из-за это не получается использовать стандартную возможность создания и исппользования ПСК), может кому пригодится лисп программа, на которую когда-то наткнулся в сети (см. вложение).
Одно неудобно, коэффициенты для своему случая нужно расчитывать в любой стороненней программе...
Может кто уже встречал реализацию под автокад утилиты, которая бы выводила в текстовом виде коэффициенты аффинного (точнее, конформного) преобразования, если указать 2 пары точек,
Фактически нужна информация, которую использует команда "Выровнять" когда совмещает данные по 2 парам точек, только интересен не сам результат, а коэффициенты возможного пересчета...
И как идеал, если совместить обе эти возможности, т.е. сначала вычислить К, которые бы заносились в соответствующую форму, и выполнялась бы команды Выровнять, только с возможностью обратного пересчета в дальнейшем...