圆弧的标注

jfqingxuexi

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

lingran008

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

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

jayballmc

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

唐昕晨

高版本直接有弧长标注命令。
0 ^3 a; A( B2 r  s0 O& I低版本的话得自己增加

rongjian

弧长标注方法：
1.点标注工具栏上"弧长"按钮；
& h3 ^; q* z  T" C' U$ K* y! B, x2.执行菜单"标注"→"弧长"命令；
3.输入命令"DIMARC"
( o3 s6 w# ?; K/ _) J3 w3 N
3 }! e* X& p9 \- N0 y! V5 c7 x2 \


. a. f$ A  \7 T1 x6 @5 N+ X3 J' b楼主还可以看一下贴子：
( l7 V3 s: \. N1 M1 V标注圆弧的长度



1 V4 V1 f% x0 |5 P( v[ 本帖最后由 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
& o7 a, P' Q1 D4 z( @各位：
% u$ r5 |2 o' ^2 v. E/ M- r   Autocad种如何标注圆弧的弧长？谢谢

! t( i6 {$ ]; r6 f0 a* G写个lsp的dd
- i# `. x/ V+ K3 c

(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"))
- d, w; Q7 t/ ^% h' x: u (setq os (getvar "osmode"))
! ^% v% g2 Z& y; G (setvar "osmode" 0)
(command "ucs" "")
/ C( A6 Z. G! m' i# ?3 [3 E& _2 i% e: ]6 u (setq ss(ssget))
% k7 Q8 R9 I$ D( U0 R) i5 ] (setq i 0 l (sslength ss))
6 ]9 h& C; y* g6 b) I (while (< i l)
. g3 Q3 N/ Y# }% @' Y3 p. d  (setq ent(entget (ssname ss i)))
  (setq i (+ 1 i))
  (cond
# V9 i6 t5 V, D2 p   ((= "ARC" (cdr(assoc 0 ent)))
) p6 H, Y% \: n6 b: z8 T& [    (setq pt(cdr (assoc 10 ent)))
    (setq r(cdr (assoc 40 ent)))
7 G) Y+ m1 N6 z. X    (setq an1(cdr (assoc 50 ent)))
    (setq an2(cdr (assoc 51 ent)))
4 |9 |" N! \) `5 G# k. Q& e7 q    (setq pt1(polar pt an1 r) pt2(polar pt an2 r))
, [- B$ k3 t' {% z    (command "layer" "s" "dim" ""
      "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))))
8 r3 E: k  x) I; X2 y    (if(< an2 an1) (setq an2(+ pi pi an2)))
' I1 A' M3 j4 }1 t  o    (setq aa(* 0.5 (+ an1 an2)) ann(- an2 an1))
7 e' \' `0 Z# Q9 Z" Y- q    (setq pptt(polar pt aa (* 0.5 r)))
    ;(command "dim1" "angular" pt1 pt2 pptt "" pptt)
, q5 Y1 a) R. }- u* q    (setq ann (angtos ann 1 1) f1(atoi ann))
    (cond
     ((>= 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)))
. ]+ R- r( ~$ z+ K" R    )
    (command "layer" "s" "tt" "" "")
+ }7 G) c4 C$ Q8 h% S; y    (command "text" "m" pptt (* fac 3.5) 0.0 (strcat (itoa f1) "%%d" str2 "'"))
9 v+ v6 s  ?( t1 ~) K* t8 V    (setq ptt (polar pt aa (+ (* 3.7 fac) r)))
    (cond
     ((and (>= aa 0.01) (<= aa (* 0.5 pi))) (setq ang (- aa (* 0.5 pi))))
     ((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))))
" N) O3 X8 M4 g  h    )
0 @9 o, z+ ^( s# n    (command "layer" "s" "tt" "")
9 @0 H6 s6 \8 z1 a1 L- e    ;(command "text" "m" ptt (* fac 3.5) (* 57.29578 ang) (strcat "%%o" (rtos (* r (abs (- an1 an2))) 2 0)))
! G* ^4 D- [. ?/ B    (command "text" "m" ptt (* fac 3.5) (* 57.29578 ang) (rtos (* r (abs (- an1 an2))) 2 0))
4 f1 ~8 N+ K; r6 P/ n0 Z, Z; H    (setq pt1(polar ptt ang (* 3 fac)))
: X' [+ a" s  r4 O/ e    (setq pt2(polar ptt (+ ang pi) (* 3 fac)))
" S& q% C% r; Z& i' x0 t" S$ g    (command "layer" "s" "tt" "" "")
    (command "arc" (polar pt1 (+ ang (* 0.5 pi)) (* fac 2.5))
# V1 ~; W) b  k7 \; N# Y5 c         (polar ptt (+ ang (* 0.5 pi)) (* fac 3.2))
         (polar pt2 (+ ang (* 0.5 pi)) (* fac 2.5))
    )
$ j5 F  A2 W: |4 p9 \   )
   ((= "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))
  _& T) o6 h+ W+ t3 e    (setq ang(angle pt1 pt2))
    (setq pt(list (* 0.5 (+ (car pt1) (car pt2))) (* 0.5 (+ (cadr pt1) (cadr pt2))) 0))
. u) {* F4 p* E8 c/ x  }# B. d5 Z    (cond
     ((<= ang (* 0.5 pi)) (setq an1(+ ang (* 0.5 pi)) an2 ang))
* E+ _6 I& f+ ]( \( O3 }" P6 E, b     (t (setq an1(- ang (* 0.5 pi)) an2(- ang pi)))
# ?2 J+ ~7 g9 r- G! d6 @/ X$ z    )
7 J; d" V: \3 W& v  T, u$ O+ N8 p    (command "layer" "s" "0" "")
    (command "line" (polar pt1 (+ ang (* 0.5 pi)) (* fac 1.5))
         (polar pt1 (- ang (* 0.5 pi)) (* fac 1.5))
         ""
; U7 }" Z( V1 k, v      "line" (polar pt2 (+ ang (* 0.5 pi)) (* fac 1.5))
( z# S7 h$ H7 W3 L: ~         (polar pt2 (- ang (* 0.5 pi)) (* fac 1.5))
         ""
3 S. j8 ]: l; C$ d8 T# x$ l    )
    (command "layer" "s" "tt" "")
4 P2 C2 b; F+ T: V    (setq dis (distance pt1 pt2))
, G' |$ i/ v0 D7 V7 Q. R    (command "text" "m" (polar pt an1 (* fac 3.8)) (* fac 3.5) (* 57.29578 an2) (rtos dis 2 0))
) U: `3 }) }/ b2 c& Q% ]: l2 c   )
  )
)
/ a& ~: o4 W+ ] (setvar "osmode" os)
(setvar  "clayer" cla)
)

cqwstp

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