求相对线 绘制角度生成下面效果

10144189

(defun c:tt ()
  (setq        ss  (entsel "\n请选择基准线：")
        pt  (getpoint "\n请选择基准点：")
        ang (getreal "\n请输入旋转角度：")
        pt1 (cdr (assoc 10 (entget (car ss))))
        pt2 (cdr (assoc 11 (entget (car ss))))
  )
  (command "line" pt1 pt2 "")
  (command "ROTATE" (entlast) "" pt ang)
);end defun




新手下面的代码修剪代码不会写了，有大神帮修改下吗

统一网名