这个图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
6 Y2 ?% b/ O# M先画出红色的R35圆和左端在圆心上长5的直线
. K, ], |) [+ m/ t2 }- |再画青色的直线以青色直线为直径画青色圆
' }" u5 r- b7 S: o做绿色标注根据标注尺寸改变直线长度2 t/ h8 a, R8 b) D
直到标注尺寸为40.00000000
Z/ o# |0 A) `- ]画出图形
+ m! ]5 B9 l' Q3 r
: _8 e$ g( b' w1 e3 J* f7 P原理：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()
( U' p$ `4 V' g; i/ l0 F
Dim P1(2) As Double
9 E4 Y. X3 B- f( ~5 a
Dim C1 As AcadCircle, C2 As AcadCircle, C3 As AcadCircle, C4 As AcadCircle7 i) b) w0 c; V6 Z# Z% z+ W( |
Dim Cf1 As AcadCircle, Cf2 As AcadCircle
M0 e* _; n8 C2 @6 B
Dim L As AcadLine" c2 g4 m% x" S3 Q$ ~$ `7 Q
Dim M As Double, N As Double: M; B! f5 z: R! |$ }. e
Dim r As Double
4 K: Q- l) K) _* F3 {* M
Dim V As Variant( {5 T9 ?% \0 G: Y/ L* |0 @3 B
With ThisDrawing2 Q+ ]: _7 b1 L1 R# L! W
Set C1 = .ModelSpace.AddCircle(P1, 20)3 Y$ m+ w4 d$ }) I9 Q/ Q
Set C2 = C1.Copy
) s* ~, n3 X$ a: }- D! ?3 O
Set C4 = C1.Copy1 v& e1 T8 H: \8 y
Set C3 = .ModelSpace.AddCircle(P1, 15)
+ f% ]/ c: O3 u6 G6 [6 I4 \/ f
Set Cf1 = .ModelSpace.AddCircle(P1, 40)- d, Y3 M! Q7 b3 z+ C( R
Set Cf2 = Cf1.Copy
3 `1 |* H; o# P. `7 n/ C9 Q
Set L = .ModelSpace.AddLine(P1, P1)1 q, r1 L7 Z0 }; N
M = 21: N = 30" E& y1 i9 A$ Y) b9 R
Do3 A+ f7 h Y0 T! K0 l8 H
r = (M + N) / 2
8 \& w7 i: V4 W
Cf1.Radius = r$ L" A2 ^" h6 `2 T3 v* W: K
P1(0) = -r: P1(1) = 0
7 S# n0 Y# F- z
C1.Center = P1
0 w5 e( l, b4 |3 g. E% n
Cf2.Center = P1; Z: N8 a# k( \4 f- O4 L0 f
P1(0) = r + 5
5 K; t1 {! Z& Y6 J
C3.Center = P1
/ m: R4 {# x6 n3 ?- m' O- q
V = Cf1.IntersectWith(Cf2, acExtendNone)* O2 A# q6 n5 ~/ t, S! w) z
P1(0) = V(0): P1(1) = V(1): P1(2) = V(2)! s* Z# s8 y5 H' S& ?" s8 M- E
C2.Center = P1/ c& Y& c' ^$ \5 }8 Z5 D
L.StartPoint = C2.Center( F+ f: f0 Q+ e$ l0 u
L.EndPoint = C3.Center
; t( j1 r, F! `
If L.Length = 35 Or r = M Or r = N Then
; q9 e3 h m- T8 R
Exit Do: _# ?7 R: I5 t, n, S
ElseIf L.Length < 35 Then
v& _# \9 p8 z* D$ e
M = r) n, R# `& q8 J9 [/ z( A
Else; _6 f* O3 @; i
N = r
' {/ W! A/ N/ u& J& U
End If
2 m0 t: h7 e2 ?, h) [
Loop* Z) o5 `1 j/ g4 x+ @
C2.Mirror C1.Center, C3.Center% j9 u! @0 @& ?% ?
C4.Radius = r + 20
, h4 T) F! v! I% E4 e5 Q$ h# A# c) \
Cf1.Delete
- \- Q" _ a5 S3 `/ n
Cf2.Delete% d* v6 Y2 t {. T l1 T2 ]5 ]$ \
L.Delete
* L( Y( C& c2 t
End With
+ U. M7 q0 l5 w/ d. U
End Sub

复制代码

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

有点看不太明白学习下

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

通知

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

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

评分

评分

回复 9# mousefire 的帖子

评分

回复 11# iassqqq 的帖子

回15#

评分

评分

浏览过的版块