(defun c:tt()
  (setq a (entsel "\n 选择要修改的物件:"))
  (setq pt1 (getpoint "\n 输入修改前第一点:"))
  (setq pt2 (getpoint "\n 输入修改前第二点:"))
  (setq pt3 (getpoint "\n 输入修改后第一点:"))
  (setq pt4 (getpoint "\n 输入修改后第二点:"))
  (command "move" a "" pt1 pt3)
  ;(setq ang1 (abs (angle pt4 pt3)))
  ;(setq ang2 (- ang1 (/ pi 2)))
  ;(setq ang (/ (* ang2 180) pi))
  (setq ang1 (angle pt1 pt2))
  (setq ang2 (angle pt3 pt4))
  (setq ang (/ (* (- ang1 ang2) -180) pi))
  (command "rotate" a "" pt3 ang)
  )