这个图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) p' [: A$ ~/ v5 U( \; x
先画出红色的R35圆和左端在圆心上长5的直线0 {/ ]9 g; R9 R0 a: ]* d
再画青色的直线以青色直线为直径画青色圆: z) E1 v+ T4 I! B) n
做绿色标注根据标注尺寸改变直线长度
. g# z) S# p5 W) x直到标注尺寸为40.00000000
4 [: h$ w" ^4 C% Q& q0 G. r画出图形8 k9 R7 R) ~$ O
4 E8 m8 ?$ o. m) s3 U; {
原理：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()
; f4 [* h' n) n( n% T0 R+ M: Q L
Dim P1(2) As Double
; d" N5 ]9 N: s9 \, K9 m; Z, B
Dim C1 As AcadCircle, C2 As AcadCircle, C3 As AcadCircle, C4 As AcadCircle
, F6 Y' k1 X* w; D
Dim Cf1 As AcadCircle, Cf2 As AcadCircle
4 ]5 V# \: D: X0 {
Dim L As AcadLine
3 y$ |* r0 |7 @/ Q
Dim M As Double, N As Double
6 P! U$ z I: v% ^$ q: S7 ?% ^. A
Dim r As Double
( u( {' I( \0 l% p% M+ j9 R4 i
Dim V As Variant4 y. D. h$ I: G, J4 b0 ?2 U
With ThisDrawing7 E+ f0 {# n! i; J, w
Set C1 = .ModelSpace.AddCircle(P1, 20) w- Z; D; O# F5 q L. E# B
Set C2 = C1.Copy$ u2 J- _2 h. v* }1 X) W5 t
Set C4 = C1.Copy
2 \: d. y0 _' Z6 S" w2 u9 W# H4 X
Set C3 = .ModelSpace.AddCircle(P1, 15)
! f; j# K9 X% X/ R4 T% S- N8 [
Set Cf1 = .ModelSpace.AddCircle(P1, 40)+ n+ u6 E2 D& C; i8 C2 O' q9 C( K
Set Cf2 = Cf1.Copy+ t7 j( g0 w% d
Set L = .ModelSpace.AddLine(P1, P1)
7 q3 Z. N3 r0 v' w! |2 [. j
M = 21: N = 30
# w( s) f& e' ?0 n$ q9 X, H7 M
Do- N4 U2 L: r- t1 a# P+ f
r = (M + N) / 2
# U7 S7 b. B, R8 k
Cf1.Radius = r* \# ^1 ]( g* x
P1(0) = -r: P1(1) = 0* U9 B6 t( k9 ~. f* o
C1.Center = P1% O, x) E$ `, T# y! x
Cf2.Center = P1
; t @. X; w9 I8 W$ z+ I
P1(0) = r + 5
& X) d- J$ b8 D+ c+ G0 b1 j/ n5 P
C3.Center = P1
) o% i+ B9 [7 M" T7 z9 e! J& }
V = Cf1.IntersectWith(Cf2, acExtendNone)0 h7 G& _# ]7 F1 ^5 V
P1(0) = V(0): P1(1) = V(1): P1(2) = V(2)0 T! }" o, K4 N, w& G
C2.Center = P1& w: k c$ H' ~* f" p" }4 l
L.StartPoint = C2.Center
: B* q. e3 D) x+ w9 ^
L.EndPoint = C3.Center
}3 A0 ~& f, v( V: Z
If L.Length = 35 Or r = M Or r = N Then
+ A* P, c. }3 w
Exit Do! `. K) G; S5 v) L0 _
ElseIf L.Length < 35 Then
0 b1 T( {7 E! y; w G) f% _9 p+ y
M = r
9 E/ m( y5 b9 R- ~$ G1 o
Else6 U, \' R |: S7 _; c
N = r
/ n1 ]" e' Z7 A6 _
End If0 M! W* d" F+ Z/ V/ l4 F4 l
Loop2 w @3 m* K( V: s; b
C2.Mirror C1.Center, C3.Center8 B. J! q5 N9 L3 C
C4.Radius = r + 20 K" M( U1 |0 }7 u ^0 h
Cf1.Delete
1 c G! o7 ~$ p
Cf2.Delete3 d* g& M1 l5 ~, T2 ^
L.Delete
1 H4 ?- L# j$ C
End With7 p- L1 K# S. ]4 q
End Sub

复制代码

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

有点看不太明白学习下

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

通知

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

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

评分

评分

回复 9# mousefire 的帖子

评分

回复 11# iassqqq 的帖子

回15#

评分

评分

浏览过的版块