求批量标注弧长

品茗新秀

从网上下载了个标注弧下，不能批量，还要指定标注点，哪位高手能不能批量标注弧长，不要指定尺寸文字点

;==============================
;          弧长标注
;==============================
(defun C:hu (/ obj sel el e r ang angs ange larc pnt multi)
  (setvar "CMDECHO" 0)
  (setq multi (getvar 'dimlfac));;;add 2002.5.15 can remove
  (setq obj (entsel "\nSelect ARC:<Exit> "))
  (setq sel (car obj))
  
  (setq pnt (getpoint "point"))
   
  (terpri)
  (if (/= sel nil)
    (progn
      (setq el (entget sel))
      
      (setq e (assoc 0 el))
      (if (= "ARC" (cdr e))
(progn
   (setq r (assoc 40 el))
   (setq r (cdr r))
   (setq angs (assoc 50 el))
   (setq angs (cdr angs))
   (setq ange (assoc 51 el))
   (setq ange (cdr ange))
   (setq ang (- ange angs))
   (if (< ang 0)
     (setq ang (- (* 2 pi) (abs ang)))
   )
   (setq larc (* r ang))
   (setq larc (* larc multi));;;add 2002.2.20 can remove
                                   ;;;add muti as multiple
   ;;;(princ "Angle = ")
   ;;;(prin1 (* (/ ang pi) 180))
   ;;;(princ " , Radius = ")
   ;;;(prin1 r)
   ;;;(princ "\nLength of ARC is : ")
   ;;;(prin1 larc)
   
)
(princ "Object is not a ARC !")
      )
    )
  )
  (setq larc  (rtos larc 2 1) )
(command "dimangular"  obj  "t" larc pnt )
  (princ)
)

emk

文字点角度可以取弧标注的两个基点取中与圆心的角度，偏移距离取半径加（或减）标注文字高度的倍数

emk

下图是在某个群里看到的演示

品茗新秀

自已顶一顶，争取顶出高手来

519995995

帮顶,  高手楼下

丁X的

同求，这个特别犀利

200853006

emk 发表于 2014-2-26 19:14
下图是在某个群里看到的演示

这是那个工具箱的？