[求助]弧长的标注

welkin · 发表于 2005-10-12 16:00:00

诸位大虾，有知道在CAD中标注弧长，以及曲线的办法么？计算的不要，偶会！最好是象标注线段距离那样简单就好

技术与艺术 · 发表于 2005-10-13 07:29:00

可惜哦　　ＣＡＤ中没有　　单位电脑里好象有个资料可以自己做一个标注弧长的按钮　我翻出来发给你

士哆啤梨 · 发表于 2005-10-13 09:18:00

最简单的方法是先把圆弧的角度标出，然后再改为长度。

liyuwen · 发表于 2005-10-13 09:28:00

如果“要象标注线段距离那样简单”，可能需要进行一些编程工作。

welkin · 发表于 2005-10-13 11:17:00

2楼的大虾好。谢谢，我的电邮是westwolf1215@sohu.com

或ljizhu@haida.cn

技术与艺术 · 发表于 2005-10-13 21:37:00

lfcrrr2001 · 发表于 2005-10-14 10:58:00

3楼的，，你那是咋弄的，，，看不懂，

zhf3711 · 发表于 2005-10-14 21:22:00

三楼的哪个图就是用角度标注好了以后，把角度改成你所表示的长度了。

my1848 · 发表于 2005-10-16 00:13:00

天正有这个功能。

rq21373 · 发表于 2005-10-18 23:43:00

;==============================
;          弧长标注
;==============================
(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 !")
)

账号		自动登录	找回密码
密码			注册

[求助]弧长的标注

相关帖子

本帖子中包含更多资源

本帖子中包含更多资源