这个图AUTOCAD怎么画啊,有点难度

029 · 发表于 2008-12-30 14:35:08

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

这个图AUTOCAD怎么画啊

[ 本帖最后由唐昕晨于 2008-12-30 18:00 编辑 ]

sww3843 · 发表于 2008-12-30 14:56:38

你这个不能叫"分享"吧?我觉得叫"求助"应该更准确些.

qingjh · 发表于 2008-12-30 16:40:27

，楼主晕了

龍杺起航 · 发表于 2008-12-30 16:49:12

好象没法画吧,我不会,还请赐教

hyh3632 · 发表于 2008-12-30 17:18:38

不会向高手学习下

ZJSXHWL · 发表于 2008-12-30 17:22:30

没有尺寸,没法画吧.

paul0103 · 发表于 2008-12-30 17:35:58

几何高手呢，快点出来算算大圆的尺寸！

sww3843 · 发表于 2008-12-30 18:23:03

1 画水平线AB,画R15,R20园,画两点(象限点G,H)园1,(t,t,t)画园2,平移r15园,以相同的方法完成3,4两园.如图1.
2 通过2,3,4的圆心点画一样条曲线CD,偏移20得园5,交CD于E,以E为圆心画R20园得园6,偏移15得园7,交AB于F,以F为圆心画R15园.如图2
3 以图1的方法画两点园,镜像园6,镜像线AB.整理,标注.如图3

mousefire · 发表于 2008-12-30 23:35:58

先把四个小圆的圆心连接起来的四边形弄出来嘛。。

woaishuijia · 发表于 2008-12-31 06:19:02

图形是轴对称的，弄出一侧的三角形就可以。

iassqqq · 发表于 2008-12-31 09:20:28

先画出红色的R35圆和左端在圆心上长5的直线
再画青色的直线以青色直线为直径画青色圆
做绿色标注根据标注尺寸改变直线长度
直到标注尺寸为40.00000000
画出图形

原理：3个R20圆心形成的圆与紫色大圆同心

jzdlhya · 发表于 2008-12-31 10:37:00

原帖由 iassqqq 于 2008-12-31 09:20 发表 http://www.3dportal.cn/discuz/images/common/back.gif
* X' r- [/ X* b% q  Z8 a+ S5 J先画出红色的R35圆和左端在圆心上长5的直线% @0 \4 N) W! F: F  m
再画青色的直线以青色直线为直径画青色圆
  r8 C, N! x5 ~. y做绿色标注根据标注尺寸改变直线长度4 q/ c- O- ~  h7 q6 e$ j) S
直到标注尺寸为40.000000007 Y1 R' d8 P4 A  L
画出图形" U4 w0 |. B0 L, A! G! M

" q# f8 r, O1 ]$ d原理：3个R20圆心形成的圆与紫色大圆同心

谢谢，学习了

:good :good

浪笑 · 发表于 2008-12-31 11:14:09

楼上都有好方法..学习了

zhhangtaao · 发表于 2008-12-31 11:46:55

大圆尺寸不给出能画出来吗厉害呵呵

weihua414 · 发表于 2008-12-31 12:50:26

你那图中的5这个尺寸它是怎么来的啊!

iassqqq · 发表于 2008-12-31 13:20:30

我画的应该比较清楚了对照图形
重点看图形对称轴即青色直线
青色圆与紫色大圆是同心圆
青色圆半径+20（R20）=紫色大圆半径
青色圆半径+15（R15）+X=紫色大圆半径
X=5

表达的不好

[ 本帖最后由 iassqqq 于 2008-12-31 13:31 编辑 ]

panda168 · 发表于 2008-12-31 14:39:35

贴个图看看,呵呵!
只是忘了保存作图痕迹了!

ltdbq · 发表于 2008-12-31 15:36:15

用VBA做了一下，请指正：

Sub A()" |% R" R" R% K( y, [/ P. Q! H
Dim P1(2) As Double- C5 w8 {# }& a5 y0 X% [6 |3 n6 S+ B
Dim C1 As AcadCircle, C2 As AcadCircle, C3 As AcadCircle, C4 As AcadCircle- N+ p6 N( k' }1 F! h5 {
Dim Cf1 As AcadCircle, Cf2 As AcadCircle
. x! g5 B$ {3 N& g* t A, [4 C: H
Dim L As AcadLine" b! y: D7 [4 w; F3 f# [
Dim M As Double, N As Double
" {5 J/ o) \6 S; U
Dim r As Double
( `; \1 t3 r5 p" `: ^) E
Dim V As Variant
4 M: ~2 u0 o6 w8 p. e
With ThisDrawing
4 f S- u4 A, T3 C0 T
Set C1 = .ModelSpace.AddCircle(P1, 20)2 L$ s* B: [$ y( P0 q( j
Set C2 = C1.Copy1 N9 C! |* Z8 e" E
Set C4 = C1.Copy
. ~5 T$ \9 B O# b% `* U$ M
Set C3 = .ModelSpace.AddCircle(P1, 15)
7 n: m7 N2 ]0 [; Q) y( S' c( K
Set Cf1 = .ModelSpace.AddCircle(P1, 40)9 u0 V. v+ h! U; g! }0 G5 c# b( O
Set Cf2 = Cf1.Copy. j- o h( w3 v( Y* P# c
Set L = .ModelSpace.AddLine(P1, P1)
+ V) e/ G3 b" ]) c/ ~
M = 21: N = 30* w+ `1 o O8 E" s7 q# o
Do2 ]' B* H! u; l' X k B: K
r = (M + N) / 2
6 |3 u. W$ p- x! D: @7 G: z% Q
Cf1.Radius = r
4 d# i* H7 v2 ]! q) |
P1(0) = -r: P1(1) = 0
0 {- l* R# z, p
C1.Center = P1
3 L+ g8 `7 R" }1 f `' B
Cf2.Center = P1. x- g6 t* t* |
P1(0) = r + 5
* j6 `% }4 E9 F7 H
C3.Center = P1) v" v) l3 P8 Z( t1 R
V = Cf1.IntersectWith(Cf2, acExtendNone)$ U8 W. Q4 F n% \6 o, n
P1(0) = V(0): P1(1) = V(1): P1(2) = V(2)
* Z6 ?" V" T! K& {
C2.Center = P1
' ?# Q( \& y5 H. K- }* S( `
L.StartPoint = C2.Center
7 M6 e5 t' R" `2 E9 P: z
L.EndPoint = C3.Center
: x% Z+ |* x6 r- O; |
If L.Length = 35 Or r = M Or r = N Then" v& A" N9 V* D+ D- w
Exit Do H' J7 R4 g" T2 \1 n- S
ElseIf L.Length < 35 Then
1 c+ V# }: E/ G% U% l3 N t. q
M = r4 z! G. R7 B! l- V. f
Else; G9 s( R" Q, R
N = r. J' I ^4 R) J. m' g4 q9 f8 J
End If0 k: \. |6 @, E+ O" x1 a
Loop+ D3 J! o6 e2 K8 c' u* `0 v
C2.Mirror C1.Center, C3.Center: I' z% E% S* S7 ?- s
C4.Radius = r + 20
: V5 ]& y# f/ ?2 ]5 b5 ?% q
Cf1.Delete
. q3 }. ?. W1 C& B- B
Cf2.Delete
" c5 f$ Q9 T" C0 L/ E
L.Delete9 A- r, S# z! F
End With" n, |6 |( t$ E/ b7 @. w
End Sub

复制代码

hyh3632 · 发表于 2008-12-31 16:30:54

有点看不太明白学习下

		自动登录	找回密码
密码			注册

通知

[讨论] 这个图AUTOCAD怎么画啊,有点难度

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分

回复 9# mousefire 的帖子

评分

回复 11# iassqqq 的帖子

回15#

评分

评分

浏览过的版块