求程序

jianmint

求标注弧长程序

ljttjl

我这有这个程序，联系：ljttjl @ tom.com

phoenixdjq

好像2006就有弧长标注命令了，我用2004

我从本论坛下载的

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

lichenxui

谢了下来学习学习