这个图用cad怎么画？

mysycd · 发表于 2010-9-20 13:01:29

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

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

x

本帖最后由 mysycd 于 2010-9-20 13:11 编辑

在工作中遇到，为了求A长，在cad中折腾半天，没画成，最后没办法，用Inventor画成，转成了dwg格式文件。跟大家讨论下，这个图在cad中应该如何画？已知条件如下图
无标题.jpg

转换成的cad附件如下

图一.rar (18.27 KB, 下载次数: 8)

woaishuijia · 发表于 2010-9-20 16:46:57

画法很多,其中符合数学原理的精确画法目前只知道有三维圆锥画法(画法原理参见这个帖子号称“难倒一片CAD高手的直角三角形”可以用autocad画出来),见下图和DWG文件

2000圆锥.dwg (191.93 KB, 下载次数: 4)

2010-9-20 16:46 上传

点击文件名下载附件
圆锥画法,2000格式
其它画法比较典型的有约束(参数化做图)--仅限于2010以上版本,见下图和DWG文件

2010约束.dwg (114.63 KB, 下载次数: 2)

2010-9-20 16:46 上传

点击文件名下载附件
参数化做图,2010格式
二次开发编程法,下面的VBA代码

, h8 W( G+ y# F+ Y
Dim P1(2) As Double, P2(2) As Double, V As Variant- K T& T6 E O4 n
Dim L1 As AcadLine, L2 As AcadLine, L3 As AcadLine, L4 As AcadLine, C As AcadCircle0 b7 ?9 q5 ~+ Q# H& ^3 n0 v2 P+ f5 u
Dim M1 As Double, M2 As Double5 u( `) ?) a5 V
With ThisDrawing8 n6 R" ]$ D: I7 Z% Q" }+ t( p' G& V
P2(1) = 500
! L$ \2 y1 Y! G' o4 U+ C
Set L1 = .ModelSpace.AddLine(P1, P2)7 ?4 b# t9 |: X# G. z, n
P1(0) = 1000: P1(1) = 500( \. S a# z8 O" X: p
Set L2 = .ModelSpace.AddLine(P2, P1)& w8 ^$ e2 X8 z- d& L7 ?
P2(0) = 1000: P2(1) = 0
. W$ B/ c) d E' o- I8 [+ _
.ModelSpace.AddLine P1, P2
" H% j* n7 z8 y) }& f
P1(0) = 0: P1(1) = 0) A* z$ w0 E: A3 F
Set L3 = .ModelSpace.AddLine(P2, P1)0 h# s7 z' Z/ @
Set L4 = L3.Copy& |0 w$ ^, c) \( u P( v
L3.Copy
3 ?% t7 Z# U8 q0 i2 l4 J, U8 W& m
Set C = .ModelSpace.AddCircle(P1, 50)
4 g. f Y) Y9 N/ P9 X" a+ ^) C
M2 = 50
+ _6 g6 ~8 b9 U8 W5 f/ W
Do7 S# I; s4 [% e, H; L, ^9 r
P1(0) = (M1 + M2) / 2+ b* |4 ~& t8 o2 H: Z$ @
C.Center = P1( z1 ]: c* \" S q9 y
V = C.IntersectWith(L1, acExtendNone), e$ {: f5 o) v
L3.StartPoint = C.Center
) `5 v! \# S3 H7 G
L3.EndPoint = V
; C( G& s$ o( {, f q. y1 C
L4.StartPoint = L3.EndPoint: ?* U/ ^- B& x. W+ q
L4.EndPoint = .Utility.PolarPoint(L4.StartPoint, L3.Angle - .Utility.AngleToReal(90, acDegrees), L4.Length)$ u* L, D3 s1 ]# {7 w
L4.EndPoint = L4.IntersectWith(L2, acExtendBoth)
1 l4 O: D% d& b' R
If 1000 - L4.EndPoint(0) = L3.StartPoint(0) Or M1 = P1(0) Or M2 = P1(0) Then
# o' m/ z' r4 L4 H4 n3 _
Exit Do: h4 R, @' h( O- A, {9 \
ElseIf 1000 - L4.EndPoint(0) > L3.StartPoint(0) Then
! _3 P+ @3 n# r' w4 V: x4 n- E" W
M2 = P1(0)
/ m3 V$ x$ A" X0 E3 ^4 Y
Else
, Y u8 S! C* {
M1 = P1(0)2 ~8 [2 G+ U- ]& |& @, f
End If- n( w0 j5 R! r0 l T9 I& ^6 u
Loop' f) T5 w* p2 }! h8 |. t
C.Delete8 e N$ b; ?4 P" ]: J
L3.Offset -L4.Length
) t! D# v8 t! N( w0 J
L4.Offset -L3.Length
) L9 H3 U1 j/ @, X. b: }9 C% S
End With
8 }! w: b3 q3 v0 T: w# s+ Y n j

复制代码

轨迹法,见下图和DWG文件

2000轨迹.dwg (188.31 KB, 下载次数: 2)

li@ping · 发表于 2010-9-23 14:16:24

图中左下角小三角形中已知的条件为90度，算出另两个角度中的一个角的角度就能画出，另两个角度分别为25度和65度，不知对不对

xyzyshl · 发表于 2010-9-25 12:24:54

等会学习下有那么多种画法。

157787698 · 发表于 2010-9-25 19:49:46

是否可以利用割线定理来画呢

g4535 · 发表于 2010-10-11 10:30:52

貌似很高深啊，有点偏，正常画图用不到这些把？

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

通知

[讨论] 这个图用cad怎么画？

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

评分

浏览过的版块