品茗新秀 发表于 2014-2-26 18:44:27

求批量标注弧长

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

;==============================
;          弧长标注
;==============================
(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 发表于 2014-2-26 18:55:42

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

emk 发表于 2014-2-26 19:14:03

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

品茗新秀 发表于 2014-2-28 10:56:48

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

519995995 发表于 2014-3-19 12:59:04

帮顶,高手楼下

丁X的 发表于 2014-6-20 10:03:27

同求,这个特别犀利

200853006 发表于 2014-6-20 10:57:02

emk 发表于 2014-2-26 19:14 static/image/common/back.gif
下图是在某个群里看到的演示

这是那个工具箱的?
页: [1]
查看完整版本: 求批量标注弧长