(defun c:rs()
(setvar "cmdecho" 0)
(setvar "dimzin" 0)
(setq rwy1 (getpoint "\n 输入第1个线段端点"))
(setq rwy2 (getpoint "\n 输入第2个线段端点"))
(setq ang1 (angle rwy1 rwy2)) ;提取线段方向
(setq ang2 (angle rwy2 rwy1)) ;提取线段反方向
(setq rs_p1 (polar rwy1 (+ ang1 (/ (* 90 pi) 180)) 0.03 ))
(setq rs_p2 (polar rwy2 ang1 0.03 ))
(command "LINE" rs_p1 rs_p2 "")
)
我觉得我这函数是没有问题的，但是执行本程序后画出来的线段与原线段重合，望大神解答。

捕捉影响，最后一句改成(command "line" "non" rs_p1 "non" rs_p2 "")看看