求一段代码，把角度标注用注释的方式表示

wgij007

求一段代码，把角度标注用注释的方式表示,谢谢!

start4444

(defun c:tt5 (/ ang p)
        (command "DIMANGULAR" pause pause pause)
        (setq p (getvar"lastpoint") ang (entlast))
        (command "LEADER" "non" (inters (cdr (assoc 15 (entget ang))) (cdr (assoc 10 (entget ang))) (cdr (assoc 13 (entget ang))) (cdr (assoc 14 (entget ang))) nil) "non" p ""  (strcat (rtos (* (cdr (assoc 42 (entget ang))) (/ 180 pi)) 2 2) "°") "" "ERASE" ang "")
        (princ)
)

wgij007

start4444 发表于 2020-1-2 09:42
(defun c:tt5 (/ ang p)
        (command "DIMANGULAR" pause pause pause)
        (setq p (getvar"lastpoint") ang  ...

感谢