求批量标注弧长
从网上下载了个标注弧下,不能批量,还要指定标注点,哪位高手能不能批量标注弧长,不要指定尺寸文字点;==============================
; 弧长标注
;==============================
(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 19:14 static/image/common/back.gif
下图是在某个群里看到的演示
这是那个工具箱的?
页:
[1]