[LISP函数]：请教什么变量记录角度？

00lg

小弟找到一个可以标注长度的LISP，想把它改成可以给弧标注角度的，但是不知道什么变量是记录角度的？或者大侠们有更好的方法？下面是它的代码，我想在getvar "perimeter"这里把它改为getvar "angle"但是却不行。


(defun c:lq()
(setvar "cmdecho" 0)
(setq en (entsel "\n Select the object to measure LENGTH: "))
(while en
(setq en (car en))
(command "lengthen" en "")
(setq dd (getvar "perimeter"))
(princ (strcat "\n Length=" (rtos dd 2)))
(setq pt (getpoint "\n Text Start point: "))
(setq old_hh (getvar "textsize"))
(setq str_hh (strcat "\n High <" (rtos old_hh 2) ">: "))
(setq hh (getdist pt str_hh))
(if (null hh) (setq hh old_hh))
(command "text" pt hh 0 (strcat "L=" (rtos dd 2 2)))
(setq en (entsel "\n Select the object to measure LENGTH: "))
)
(prin1)
)

snsj

弧线角度标注本来就有命令呀

00lg

我当然知道有，但是我不希望标成那样的效果，我想在弧上写上“a=XXX”。