圆弧的标注

jfqingxuexi

各位：
   Autocad种如何标注圆弧的弧长？谢谢

lingran008

在菜单栏中选择：标注——弧长，再选择你要标注的圆弧，OK

[ 本帖最后由 lingran008 于 2009-5-30 11:48 编辑 ]

jayballmc

低版本的没有弧长标注吗？呵呵 可不可以这样，选择圆弧，特性查看弧长，使用dan标注圆弧角度，修改文字为特性里查看的数值，确定，哈哈 这个绝吧
再或者用高点版本，哦论坛有弧长插件你找找

唐昕晨

高版本直接有弧长标注命令。
低版本的话得自己增加

rongjian

弧长标注方法：
0 R! G& g* g; p  x/ x: c1.点标注工具栏上"弧长"按钮；
2.执行菜单"标注"→"弧长"命令；
3.输入命令"DIMARC"

# e3 z' j9 }, o7 ?* H$ j


楼主还可以看一下贴子：
标注圆弧的长度



[ 本帖最后由 rongjian 于 2009-5-30 15:45 编辑 ]

zzp2008

应该是圆弧的弧长吧

zzp2008

该标注弧长的命令不能标注样条曲线的

tty0116

3楼的方法不错，好用

wufei2009

应该像5楼那样标注吧

huangliangan

我非常赞成2楼的观点

星空一号

我以前用2004咯,也是没这项功能.

zhoubozhoubo

三楼的不错

huchulian

太好了，你真好啊，我很需要啊

pksonic009

2004没有这个功能的

anglelcg

谢谢，学习了

gzg518

原帖由 jfqingxuexi 于 2009-5-30 11:34 发表 http://www.3dportal.cn/discuz/images/common/back.gif
各位：
   Autocad种如何标注圆弧的弧长？谢谢

写个lsp的dd
' o3 E5 E: G) H6 h5 e6 B0 e

/ |5 l5 ^9 ?2 i. s3 c- v(defun c:pipe_m(/ cla fac os i l ent pt r an1 an2 pptt ang dis)
' ?% F4 W% [  \/ E. o$ S (setq cla (getvar "clayer"))
9 W, k9 l9 M5 W& K (setq fac (getvar "dimscale"))
(setq os (getvar "osmode"))
4 _- T4 \  \  d% o (setvar "osmode" 0)
  b8 J# v( \. V' T (command "ucs" "")
(setq ss(ssget))
" t* P+ ^$ r1 L* i/ w (setq i 0 l (sslength ss))
(while (< i l)
  (setq ent(entget (ssname ss i)))
  (setq i (+ 1 i))
( ?3 q/ {6 l4 a4 \5 F  (cond
   ((= "ARC" (cdr(assoc 0 ent)))
4 n3 _7 h# S6 U; J; H    (setq pt(cdr (assoc 10 ent)))
# ~7 q- ]9 G/ M  L  F( n    (setq r(cdr (assoc 40 ent)))
9 R( K9 h/ C, R    (setq an1(cdr (assoc 50 ent)))
    (setq an2(cdr (assoc 51 ent)))
/ X. E2 t5 m; l! b, A    (setq pt1(polar pt an1 r) pt2(polar pt an2 r))
. K7 d2 q9 J6 @    (command "layer" "s" "dim" ""
( @. r- d% O) a/ v      "line" pt pt1 ""
      "line" pt pt2 ""
    )
    (setq pt1(polar pt an1 (* 0.7 r)) pt2(polar pt an2 (* 0.7 r)))
    ;(if(< an2 an1) (setq an1(- an1 (* 2 pi))))
    (if(< an2 an1) (setq an2(+ pi pi an2)))
+ `* p: I' s2 [: i5 e    (setq aa(* 0.5 (+ an1 an2)) ann(- an2 an1))
1 n9 G; |7 `5 e" V4 b1 U7 Y    (setq pptt(polar pt aa (* 0.5 r)))
    ;(command "dim1" "angular" pt1 pt2 pptt "" pptt)
, ~! {8 H, y  O- L6 h; J0 v    (setq ann (angtos ann 1 1) f1(atoi ann))
" b: m& @) P% @' i. I2 ~    (cond
4 ]. _1 \4 H# j) f! k9 ~' R2 D     ((>= f1 100) (setq str2(substr ann 5 2)))
% z9 D6 X( T0 @     ((>= f1 10)  (setq str2(substr ann 4 2)))
, n" j% N5 L! t5 r/ H& S     ((>= f1 1)   (setq str2(substr ann 3 2)))
     (t  (setq str2 (substr ann 2 2)))
    )
    (command "layer" "s" "tt" "" "")
" |) M& G& ^( F' M* a    (command "text" "m" pptt (* fac 3.5) 0.0 (strcat (itoa f1) "%%d" str2 "'"))
3 F. C' P8 c' j) `8 x1 J" u+ R( |; e    (setq ptt (polar pt aa (+ (* 3.7 fac) r)))
6 O2 \2 |6 y+ G0 |$ d) L    (cond
: ]! Y! `; `, b7 R( V% A     ((and (>= aa 0.01) (<= aa (* 0.5 pi))) (setq ang (- aa (* 0.5 pi))))
3 o1 G  }' }; u! l4 R     ((and (>= aa (* 0.5 pi)) (<= aa pi)) (setq ang (- aa (* 0.5 pi))))
     ((and (> aa pi) (<= aa (* 1.5 pi))) (setq ang (- aa (* 1.5 pi))))
     ((> aa (* 1.5 pi)) (setq ang (- aa (* 1.5 pi))))
    )
& Z& |& c3 l" v- k$ w  M7 k+ I' w8 n    (command "layer" "s" "tt" "")
0 l6 o3 U. ]/ Y8 C8 ^" B: ^! L    ;(command "text" "m" ptt (* fac 3.5) (* 57.29578 ang) (strcat "%%o" (rtos (* r (abs (- an1 an2))) 2 0)))
    (command "text" "m" ptt (* fac 3.5) (* 57.29578 ang) (rtos (* r (abs (- an1 an2))) 2 0))
    (setq pt1(polar ptt ang (* 3 fac)))
2 f) x2 _% n/ c7 }    (setq pt2(polar ptt (+ ang pi) (* 3 fac)))
    (command "layer" "s" "tt" "" "")
    (command "arc" (polar pt1 (+ ang (* 0.5 pi)) (* fac 2.5))
% s/ a. f' l8 H         (polar ptt (+ ang (* 0.5 pi)) (* fac 3.2))
         (polar pt2 (+ ang (* 0.5 pi)) (* fac 2.5))
' V. d& |4 h4 v* p    )
0 }+ f9 G1 r0 U   )
   ((= "LINE" (cdr(assoc 0 ent)))
    (setq pt1(cdr (assoc 10 ent)))
    (setq pt2(cdr (assoc 11 ent)))
    (if (> (nth 1 pt1) (nth 1 pt2)) (setq pt pt1 pt1 pt2 pt2 pt))
1 l  m5 ?9 K/ P1 x4 `    (setq ang(angle pt1 pt2))
    (setq pt(list (* 0.5 (+ (car pt1) (car pt2))) (* 0.5 (+ (cadr pt1) (cadr pt2))) 0))
. I8 i/ z! d+ v" c    (cond
1 O1 j$ N3 a8 m- ~     ((<= ang (* 0.5 pi)) (setq an1(+ ang (* 0.5 pi)) an2 ang))
- Q0 y0 B( v7 f/ v9 s# X     (t (setq an1(- ang (* 0.5 pi)) an2(- ang pi)))
) ]. }8 O+ X5 c0 l( U7 p8 [- q    )
* ?! }+ y. C0 u9 c- ]6 {8 O    (command "layer" "s" "0" "")
    (command "line" (polar pt1 (+ ang (* 0.5 pi)) (* fac 1.5))
         (polar pt1 (- ang (* 0.5 pi)) (* fac 1.5))
2 g9 I! P" Y$ g; W, v2 T' i         ""
* C& i' t* [$ g$ w      "line" (polar pt2 (+ ang (* 0.5 pi)) (* fac 1.5))
- S+ T  {* Z5 S3 ], @& \         (polar pt2 (- ang (* 0.5 pi)) (* fac 1.5))
         ""
; V5 @% {8 {2 e% }! ^6 m    )
1 {3 D% W$ L& I! \+ d7 m2 ]    (command "layer" "s" "tt" "")
    (setq dis (distance pt1 pt2))
    (command "text" "m" (polar pt an1 (* fac 3.8)) (* fac 3.5) (* 57.29578 an2) (rtos dis 2 0))
   )
1 K+ u* ~- J* |* e  )
)
- v* g" Q9 Z, ?5 c. U5 h (setvar "osmode" os)
/ t* G6 Y3 r; M) S (setvar  "clayer" cla)
. \) ]: V/ z8 _4 I; ^8 p* O)

cqwstp

谢谢上面各位的解答，我以前一直用CAXA绘制机械图，没有在CAD里标过注过园弧，今天又学了一招