圆弧标注！！11

WHW

问题已解决。 以下程序有BDYCASD提供，加载运行就行了！ (defun c:yh(/ en pt len_data old_hc l new_hc len_data)
(setq en (entsel "选弧: "))
(setq pt (getpoint "定点: "))
(command "dimangular" en pt)
(setq len_data (entget (entlast)))
(setq old_hc (assoc 1 len_data))
(command "lengthen" (car en) "")
(setq l (getvar "perimeter"))
(setq new_hc (cons 1 (rtos l 2 2)))
(setq len_data (subst new_hc old_hc len_data))
(entmod len_data)
)