圆弧的标注

jfqingxuexi

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

lingran008

在菜单栏中选择：标注——弧长，再选择你要标注的圆弧，OK
9 _1 C7 `3 r! f3 b9 ~! L
4 B- i& a& ~, g/ ^& v6 P/ H[ 本帖最后由 lingran008 于 2009-5-30 11:48 编辑 ]

jayballmc

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

唐昕晨

高版本直接有弧长标注命令。
% C3 t# U% ?  r1 N低版本的话得自己增加

rongjian

弧长标注方法：
6 _5 I8 f) I) k* l5 o% E) y7 E8 `1.点标注工具栏上"弧长"按钮；
2.执行菜单"标注"→"弧长"命令；
3.输入命令"DIMARC"




0 d6 Y, q" R7 o: n: T楼主还可以看一下贴子：
5 o: {- O$ ], `& M标注圆弧的长度
& U, |* B: [, f% }" c  h& ]1 p" M# K& {


2 M: _/ l* N6 g. M[ 本帖最后由 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
各位：
6 J) I; S; [4 `* y   Autocad种如何标注圆弧的弧长？谢谢

" ^3 f8 R7 H9 Q9 {写个lsp的dd

6 @' y& k3 G' R  R8 n7 Y7 W
7 y6 K# S6 y; P- P. U! ](defun c:pipe_m(/ cla fac os i l ent pt r an1 an2 pptt ang dis)
(setq cla (getvar "clayer"))
(setq fac (getvar "dimscale"))
3 U( Z( k9 m0 a8 b& v4 T- ~8 ] (setq os (getvar "osmode"))
& n- ?1 [- u+ c! ?( N1 P (setvar "osmode" 0)
: R! n/ I& z& q# f$ H (command "ucs" "")
(setq ss(ssget))
6 ~( P: j2 \- }: @$ Q, G+ g (setq i 0 l (sslength ss))
(while (< i l)
  (setq ent(entget (ssname ss i)))
+ E9 ?, ~. |0 Y/ O  (setq i (+ 1 i))
1 u' b: b1 q: `/ O  (cond
% B6 \" ?' Q: _% J   ((= "ARC" (cdr(assoc 0 ent)))
    (setq pt(cdr (assoc 10 ent)))
    (setq r(cdr (assoc 40 ent)))
% ]& D& I2 X) [! y% @$ w! J' a$ K    (setq an1(cdr (assoc 50 ent)))
. G: l, Q/ G9 L7 s- a1 b9 P    (setq an2(cdr (assoc 51 ent)))
    (setq pt1(polar pt an1 r) pt2(polar pt an2 r))
2 @9 Z' s6 Q( N) f2 e1 |' J! ?    (command "layer" "s" "dim" ""
! b/ X5 d  ^, {0 R, o! J      "line" pt pt1 ""
      "line" pt pt2 ""
1 `7 `% Q) K% D1 I    )
1 O$ v, G" g2 m) \    (setq pt1(polar pt an1 (* 0.7 r)) pt2(polar pt an2 (* 0.7 r)))
5 b' F: C4 Q0 E3 L7 a    ;(if(< an2 an1) (setq an1(- an1 (* 2 pi))))
- S% T: M: j' Z# |+ \9 b    (if(< an2 an1) (setq an2(+ pi pi an2)))
$ y1 i7 h3 E- q/ R    (setq aa(* 0.5 (+ an1 an2)) ann(- an2 an1))
    (setq pptt(polar pt aa (* 0.5 r)))
% c; m) x8 M: T+ x    ;(command "dim1" "angular" pt1 pt2 pptt "" pptt)
    (setq ann (angtos ann 1 1) f1(atoi ann))
# x0 b( n$ Q/ C' s2 g" A  N    (cond
5 p7 z! i2 n0 A; s. I# o3 {* ^6 j     ((>= f1 100) (setq str2(substr ann 5 2)))
     ((>= f1 10)  (setq str2(substr ann 4 2)))
     ((>= f1 1)   (setq str2(substr ann 3 2)))
     (t  (setq str2 (substr ann 2 2)))
3 Y$ y# |5 |) P9 |    )
    (command "layer" "s" "tt" "" "")
    (command "text" "m" pptt (* fac 3.5) 0.0 (strcat (itoa f1) "%%d" str2 "'"))
    (setq ptt (polar pt aa (+ (* 3.7 fac) r)))
8 M0 V1 R! r5 V! e3 x    (cond
     ((and (>= aa 0.01) (<= aa (* 0.5 pi))) (setq ang (- aa (* 0.5 pi))))
" j; ]9 J# J0 j/ q) k     ((and (>= aa (* 0.5 pi)) (<= aa pi)) (setq ang (- aa (* 0.5 pi))))
$ h6 [' g( e7 s. N- x, \0 C" Q     ((and (> aa pi) (<= aa (* 1.5 pi))) (setq ang (- aa (* 1.5 pi))))
, [+ D( |% n" I' I, u# s8 B) }; t     ((> aa (* 1.5 pi)) (setq ang (- aa (* 1.5 pi))))
    )
    (command "layer" "s" "tt" "")
    ;(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)))
    (setq pt2(polar ptt (+ ang pi) (* 3 fac)))
, \7 t( V: \3 @9 o! v9 {6 p    (command "layer" "s" "tt" "" "")
; I; M- V3 X9 S6 b& Q5 q2 e    (command "arc" (polar pt1 (+ ang (* 0.5 pi)) (* fac 2.5))
8 x- g: k1 V! }( `7 R+ T4 H7 K         (polar ptt (+ ang (* 0.5 pi)) (* fac 3.2))
# [: B& C) c; v1 H         (polar pt2 (+ ang (* 0.5 pi)) (* fac 2.5))
' A$ G7 Z% M% w; [    )
( \/ f% j1 [2 X: s- N   )
; q& a) h3 P/ l7 t8 M& }! c& _   ((= "LINE" (cdr(assoc 0 ent)))
    (setq pt1(cdr (assoc 10 ent)))
    (setq pt2(cdr (assoc 11 ent)))
# [% ^/ ~% m4 o; V& g    (if (> (nth 1 pt1) (nth 1 pt2)) (setq pt pt1 pt1 pt2 pt2 pt))
    (setq ang(angle pt1 pt2))
4 @1 [: k, D: Z3 m) z3 W    (setq pt(list (* 0.5 (+ (car pt1) (car pt2))) (* 0.5 (+ (cadr pt1) (cadr pt2))) 0))
; b! _5 S( c4 K, ^    (cond
+ R5 |* ^1 w9 K! ^' [     ((<= ang (* 0.5 pi)) (setq an1(+ ang (* 0.5 pi)) an2 ang))
     (t (setq an1(- ang (* 0.5 pi)) an2(- ang pi)))
* y: ^2 b9 p* i9 p3 Z/ {% Y* n4 h+ I. t    )
    (command "layer" "s" "0" "")
  r6 v+ k; w6 {' g1 L; F    (command "line" (polar pt1 (+ ang (* 0.5 pi)) (* fac 1.5))
         (polar pt1 (- ang (* 0.5 pi)) (* fac 1.5))
' l8 n+ Q$ o5 \  Z' ~; \+ r         ""
      "line" (polar pt2 (+ ang (* 0.5 pi)) (* fac 1.5))
         (polar pt2 (- ang (* 0.5 pi)) (* fac 1.5))
, p& Y0 v  h; T5 Z3 ^8 Y/ P7 i         ""
    )
4 j: I. a1 X- D  A    (command "layer" "s" "tt" "")
* u' e1 |- S( w% X7 S1 v    (setq dis (distance pt1 pt2))
1 A" P; q& q" ~7 {- q    (command "text" "m" (polar pt an1 (* fac 3.8)) (* fac 3.5) (* 57.29578 an2) (rtos dis 2 0))
   )
( F0 W, Y: f8 s% I- S" ~$ m  )
)
1 k2 K) x3 Y6 w/ i# p: q (setvar "osmode" os)
+ i. f8 K' ^2 t6 Q4 u) f (setvar  "clayer" cla)
, ^" B3 B+ o. E2 t)

cqwstp

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