[求助]标注问题？

rongrong

请教：如何标注圆弧的长度？谢谢！

phoenixdjq

给你一个从网上下载的程序

(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)
  )

andyxie249

"标注"工具栏第三个

rongrong

谢谢指点！