[求助]：[求助]：如何建立坐标系

原地踏步

一个图任意角度放于任意位置，在图上点取两点，分别输入新坐标（该值在图形旋转、移动到适当位置后，在WCS中是正确的），请问：如何用LISP建立一个新的坐标系，使不旋转、移动图形，而测到(或经过一定换算)与输入值相吻合的坐标值（包括图中其它所有点）？
我自己编了一个程序，但根本不对。求哪位高手指点一下。
其中pto1、pto2为现在图中两点，ptn1、ptn2为图形旋转、移动后的坐标值。
(defun c:cu ()
  (setq pto1 (getpoint "\nFirst point: "))
  (setq nx1 (getreal "\nNew x: "))
  (setq ny1 (getreal "\nNew y: "))
  (setq ptn1 (list nx1 ny1 0.0))
  (setq pto2 (getpoint "\nSecond point: "))
  (setq nx2 (getreal "\nNew x: "))
  (setq ny2 (getreal "\nNew y: "))
  (setq ptn2 (list nx2 ny2))
  (setq angold (angle pto1 pto2))
  (setq angnew (angle ptn1 ptn2))
  (setq ang (/ (* (- angnew angold) 180.0) pi))
  (setq dst (sqrt (+ (* nx1 nx1) (* ny1 ny1))))
  (setq ptn0 (polar ptn1 (- angnew angold) dst))
  (setvar "osmode" 0)
;  (command "point" ptn0)
  (command "_.UCS" "_Z" ang)
  (command "_.UCS" "_ORIGIN" ptn0)
)