请教高手指导，下面的情况给程序该如何写

gprspda

已知一个角的顶点，角度大小，和它的一条邻边，能否通过程序来把这个角做出来？如果可以的话，请高手给个程序。如果不能的话，请高手指教还需哪些条件，谢谢！

dcj_gis2006

1. (defun C:DrawAngle()
   
2.   (setvar "cmdecho" 0)
   
3.   (setq vertex (getpoint "\n 指定顶点A:"))
   
4.   (setq degree (getreal "\n 输入角度值"))
   
5.   (setq radian (* (/ degree 180) pi))
   
6.   (setq edge (getreal "\n 临边长度:"))
   
7.   (setq pb (polar vertex 0 edge))
   
8.   (setq pc (polar pb (/ pi 2) (* edge (/ (sin radian) (cos radian)))))
   
9.   (command "pline" vertex pb pc "C")
   
10.   (prin1)
    
11. )

(defun C:DrawAngle()<br />   (setvar "cmdecho" 0)<br />   (setq vertex (getpoint "\n 指定顶点A:"))<br />   (setq degree (getreal "\n 输入角度值"))<br />   (setq radian (* (/ degree 180) pi))<br />   (setq edge (getreal "\n 临边长度:"))<br />   (setq pb (polar vertex 0 edge))<br />   (setq pc (polar pb (/ pi 2) (* edge (/ (sin radian) (cos radian)))))<br />   (command "pline" vertex pb pc "C")<br />   (prin1)<br /> )

命令: drawangle
指定顶点A:
输入角度值25
临边长度:20