这个图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
+ e: I% Y* f1 C" o先画出红色的R35圆和左端在圆心上长5的直线
2 D1 p6 e/ i6 M: O- ~3 i再画青色的直线以青色直线为直径画青色圆8 Z8 |0 t' ]. c& V) {" W
做绿色标注根据标注尺寸改变直线长度
! s" W- }6 u, ^. K直到标注尺寸为40.00000000
+ k; B! _1 \1 `5 {- [5 @3 C画出图形
4 k& f0 H4 C9 T( k5 N" ?! C4 D( S# {, B/ a* w0 ^
原理：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()
7 G7 X# y7 R [% V( l$ J
Dim P1(2) As Double! ~% c+ O" g4 Q0 I
Dim C1 As AcadCircle, C2 As AcadCircle, C3 As AcadCircle, C4 As AcadCircle2 ^- b2 P; c; Q/ `+ q- r0 @" z
Dim Cf1 As AcadCircle, Cf2 As AcadCircle1 r& a- {; A8 y! m
Dim L As AcadLine
4 u3 L* r4 C- z* \- S9 U
Dim M As Double, N As Double
1 C3 _" o$ \% y& _. n& H- f
Dim r As Double6 [& t# k2 g* G- ~$ u' J2 e
Dim V As Variant' A u- |/ ], N
With ThisDrawing- T4 M% s, ?6 _( L# \
Set C1 = .ModelSpace.AddCircle(P1, 20)
1 J5 U; S: |: T' l
Set C2 = C1.Copy
, e3 m3 v3 m( J: q) B: X4 O0 F
Set C4 = C1.Copy
, |$ o% T8 @8 V6 a! F
Set C3 = .ModelSpace.AddCircle(P1, 15)
5 a5 @/ x5 O2 L- s$ k3 Z8 q
Set Cf1 = .ModelSpace.AddCircle(P1, 40)) Q8 U3 w6 n! R/ m
Set Cf2 = Cf1.Copy
; \! H# @7 W8 ?
Set L = .ModelSpace.AddLine(P1, P1)' p" {& j4 u6 f0 ], g0 e. s* F4 f
M = 21: N = 30# c ~/ O0 V/ `6 H
Do1 w* Z' v {. `. W
r = (M + N) / 2
; u8 R; f5 Y7 E Q5 ]5 W+ L
Cf1.Radius = r i+ ~; y2 e2 W8 u7 z1 x
P1(0) = -r: P1(1) = 0
& Y4 d0 D1 U" `' D$ |' ?; A- E
C1.Center = P1& _4 y$ N* d; `# {2 R* D1 x! ?; n% e
Cf2.Center = P1+ m. H h( M/ ]0 J8 ~/ o
P1(0) = r + 5! X6 o3 j1 L' O# K
C3.Center = P1
: B" j1 {3 R0 ?" D- A
V = Cf1.IntersectWith(Cf2, acExtendNone)' e2 Z- \6 K2 | z f+ q
P1(0) = V(0): P1(1) = V(1): P1(2) = V(2)( s1 B3 b9 H, n1 {7 Q- x% w
C2.Center = P1
; Y+ D! g$ A+ G: F. I
L.StartPoint = C2.Center
; R$ f9 d2 C* w5 x
L.EndPoint = C3.Center
/ D% b- u" e+ y" E
If L.Length = 35 Or r = M Or r = N Then
, J' B/ e# z! U) d- K) n
Exit Do
P# x. o( u* M( S* @( d
ElseIf L.Length < 35 Then, T: O' g) @! i+ R. W- m6 R) c
M = r* [* Z& [: s$ y; t4 e
Else) R+ E1 y" r( K; O3 T- r+ o
N = r
# J% o' n, v0 \* m7 \. M6 C
End If
4 X" q. _+ T4 L, y4 v; t
Loop0 {+ o) I. L" u2 n
C2.Mirror C1.Center, C3.Center6 u8 o6 b6 C( l
C4.Radius = r + 20
+ p" V9 E$ \% {8 @& G
Cf1.Delete3 ]1 G7 ~. Q K* z) Z; @
Cf2.Delete
) d0 a6 T) ], |0 }' U
L.Delete; ? V) A: G8 m! m( J
End With
0 j2 A7 o/ r* N o( B' l! j
End Sub

复制代码

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

有点看不太明白学习下

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

通知

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

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

评分

评分

回复 9# mousefire 的帖子

评分

回复 11# iassqqq 的帖子

回15#

评分

评分

浏览过的版块