高仿ALIGN命令

CAD中平齐物体的实现是通过align命令来实现的。
但在CAD编程中有时候需要对这个命令自定义，而且在某些情况下不适合用命令形式。
所以我编写了一个lisp程序，用户也可以根据这个程序定义更高级的平齐。
下面是实现的代码。