编写一个AutoLISP程序,从p1到p2点画一条直线.直线p1p2与正x轴夹角为A,p1点与p2点间的距离L,在p1

(defun c:drl ( / cm os p1 p2 l a )
(setq cm (getvar "cmdehco"))
(setq os (getvar "osmode"))
(setq p1 (getpoint "\n请选择基点:"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq l (getdist p1 "\n请输入长度:"))
(setq a (getangle p1 "\n请输入角度:"))
(setq p2 (polar p1 a l))
(command "_.Line" p1 p2 "" "_.Circle" p1 (/ l 4.0) "_.Circle" p2 (/ l 4.0))
(command "_.Circle" (polar p1 a (/ l 2.0)) (/ l 4.0))
(command "_.Osmode" os "_.Cmdecho" cm)
(princ)
)