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: "))
(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 (
   
)
(princ "Object is not a ARC !")
      )
页: [1]
查看完整版本: [求助]弧长的标注