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

[求助]弧长的标注

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

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

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

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

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

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

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

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

<P>2楼的大虾好。谢谢，我的电邮是<A href="mailto:westwolf1215@sohu.com" target="_blank" >westwolf1215@sohu.com</A></P>
<P>或<A href="mailto:ljizhu@haida.cn" target="_blank" >ljizhu@haida.cn</A></P>
<P>&nbsp;</P>
<P>&nbsp;</P>
<P>&nbsp;</P>

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

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

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

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

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

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

天正有这个功能。

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

<P>;==============================<BR>;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 弧长标注<BR>;==============================<BR>(defun C:hu (/ obj sel el e r ang angs ange larc pnt multi)<BR>&nbsp; (setvar "CMDECHO" 0)<BR>&nbsp; (setq multi (getvar "dimlfac"));;;add 2002.5.15 can remove<BR>&nbsp; (setq obj (entsel "\nSelect ARC:&lt;Exit&gt; "))<BR>&nbsp; (setq sel (car obj))<BR>&nbsp; <BR>&nbsp; (setq pnt (getpoint "point"))<BR>&nbsp;&nbsp; <BR>&nbsp; (terpri)<BR>&nbsp; (if (/= sel nil)<BR>&nbsp;&nbsp;&nbsp; (progn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq el (entget sel))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq e (assoc 0 el))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (= "ARC" (cdr e))<BR>&nbsp;(progn<BR>&nbsp;&nbsp; (setq r (assoc 40 el))<BR>&nbsp;&nbsp; (setq r (cdr r))<BR>&nbsp;&nbsp; (setq angs (assoc 50 el))<BR>&nbsp;&nbsp; (setq angs (cdr angs))<BR>&nbsp;&nbsp; (setq ange (assoc 51 el))<BR>&nbsp;&nbsp; (setq ange (cdr ange))<BR>&nbsp;&nbsp; (setq ang (- ange angs))<BR>&nbsp;&nbsp; (if (&lt; ang 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (setq ang (- (* 2 pi) (abs ang)))<BR>&nbsp;&nbsp; )<BR>&nbsp;&nbsp; (setq larc (* r ang))<BR>&nbsp;&nbsp; (setq larc (* larc multi));;;add 2002.2.20 can remove<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;;;add muti as multiple<BR>&nbsp;&nbsp; ;;;(princ "Angle = ")<BR>&nbsp;&nbsp; ;;;(prin1 (* (/ ang pi) 180))<BR>&nbsp;&nbsp; ;;;(princ " , Radius = ")<BR>&nbsp;&nbsp; ;;;(prin1 r)<BR>&nbsp;&nbsp; ;;;(princ "\nLength of ARC is : ")<BR>&nbsp;&nbsp; ;;;(prin1 larc)</P>
<P>&nbsp;&nbsp; <BR>&nbsp;)<BR>&nbsp;(princ "Object is not a ARC !")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )</P>
页: [1] 2
查看完整版本: [求助]弧长的标注