这个图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* \7 ~: J7 E1 R4 ?/ t
先画出红色的R35圆和左端在圆心上长5的直线
2 [* u) C! h* G2 p# R再画青色的直线以青色直线为直径画青色圆6 |1 m0 H" ~5 W* y
做绿色标注根据标注尺寸改变直线长度
5 f/ X* ]; y4 O$ q7 w直到标注尺寸为40.00000000* `# F9 B! j6 }! k- Z
画出图形$ O& a: H- C. j4 x- f( Z

3 K% [7 r1 @/ [8 Y原理：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()
* i1 R* W) ^1 U
Dim P1(2) As Double
9 d/ J7 E7 m. }: p
Dim C1 As AcadCircle, C2 As AcadCircle, C3 As AcadCircle, C4 As AcadCircle8 G! Z! Z1 _ M
Dim Cf1 As AcadCircle, Cf2 As AcadCircle: }% I* ?( D5 ]$ M& Y( U
Dim L As AcadLine
' S9 ^# P. M' L# z/ P4 x
Dim M As Double, N As Double
; c3 `1 E& k. ]: c" o8 S
Dim r As Double
9 @: [6 G9 M% Q. {" `" o
Dim V As Variant
/ a7 D/ a0 T; i% `( j0 u! o" H1 l
With ThisDrawing& r3 o, C1 U8 U/ K1 E: K6 R2 U
Set C1 = .ModelSpace.AddCircle(P1, 20)
3 |! @1 Z9 v4 r, \' Z7 z
Set C2 = C1.Copy
, L" }+ C8 N! w- \6 }
Set C4 = C1.Copy
! V: z/ U" {1 w+ {0 `2 I8 U
Set C3 = .ModelSpace.AddCircle(P1, 15)5 ~3 Q8 r$ [4 C7 V9 D
Set Cf1 = .ModelSpace.AddCircle(P1, 40)' R1 g* d, _9 M; A7 X
Set Cf2 = Cf1.Copy
. |" R: `3 P! H7 G: ?! F/ M
Set L = .ModelSpace.AddLine(P1, P1); K- Z0 l- I; U a, A
M = 21: N = 30- a6 l4 U9 d8 q- j$ W# p I/ @
Do* i8 b8 w: c( ?! v* u0 o
r = (M + N) / 2
7 F- q7 x! W( |, H" f
Cf1.Radius = r4 c1 N( ]$ f5 y1 E& u
P1(0) = -r: P1(1) = 0
, _7 \1 w3 D/ J+ }
C1.Center = P1
+ c0 B% I+ j' x: g; Q8 p# y. a
Cf2.Center = P1
+ H A; G* ?5 F. z+ H
P1(0) = r + 5, Q+ ^( w* m# j, t& j5 p6 a- W
C3.Center = P1) h% u$ [$ K2 b! Z6 [! ]$ }( q; M, a8 E
V = Cf1.IntersectWith(Cf2, acExtendNone)/ \) ]' A* L; o+ U
P1(0) = V(0): P1(1) = V(1): P1(2) = V(2)
& `' W" u) u% |' _- w8 o
C2.Center = P1* v4 m7 g, {8 t( B
L.StartPoint = C2.Center
! P7 I. Y' G! T. B
L.EndPoint = C3.Center
8 T6 @6 ?6 q4 s* K! p, r- d
If L.Length = 35 Or r = M Or r = N Then0 Y2 g9 U# X* q3 X! I) X0 K
Exit Do* ]# j0 \- N! h) M3 |
ElseIf L.Length < 35 Then
6 k; `# s$ ~+ \9 L% `; x
M = r
" W/ y# [1 D4 o
Else0 n E1 v- H, o( M' x+ j
N = r: q1 O( B9 C. k
End If$ P7 j6 I; v* I
Loop
! \+ A% k1 I" ~+ E
C2.Mirror C1.Center, C3.Center
# m: u8 N3 t; F) M
C4.Radius = r + 20 H3 a3 Y: \( p2 a+ I' ^4 K3 G
Cf1.Delete4 P2 u4 q" I: |" E2 F0 H
Cf2.Delete, C* W2 [" E0 E7 q- g$ j; }9 z
L.Delete4 \% }- Q9 C ]1 m% u4 e
End With
: T' E/ s; ?) Z" g$ h3 a; ~- w
End Sub

复制代码

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

有点看不太明白学习下

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

通知

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

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

评分

评分

回复 9# mousefire 的帖子

评分

回复 11# iassqqq 的帖子

回15#

评分

评分