这个图用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代码

( B! ~- g Y; u; F2 \- Z
Dim P1(2) As Double, P2(2) As Double, V As Variant9 `2 H1 _# S7 F" V) O3 v8 ^
Dim L1 As AcadLine, L2 As AcadLine, L3 As AcadLine, L4 As AcadLine, C As AcadCircle- B' G" G" H4 D0 ?4 I
Dim M1 As Double, M2 As Double
6 d" t" E2 U8 q0 n! b: Z0 Q
With ThisDrawing
7 j' |+ U, @' K$ |( ?, U Q
P2(1) = 5002 Y, L8 v! j) x4 j
Set L1 = .ModelSpace.AddLine(P1, P2)
. U; G+ ]7 s$ |
P1(0) = 1000: P1(1) = 500
( g, T) j0 V! ~1 a
Set L2 = .ModelSpace.AddLine(P2, P1)7 U4 r2 b( s: }6 F, i
P2(0) = 1000: P2(1) = 08 Y/ Y, j0 v6 z! C# i
.ModelSpace.AddLine P1, P27 r+ @0 j, J [2 y4 H C
P1(0) = 0: P1(1) = 0
' V. ?, k' H3 P
Set L3 = .ModelSpace.AddLine(P2, P1)% q0 O+ P) R6 D' S
Set L4 = L3.Copy7 h9 j B0 Q! b' q) q
L3.Copy
- w Q- J- E! O: T4 L
Set C = .ModelSpace.AddCircle(P1, 50)
+ R& v" L/ u8 b
M2 = 50: O: Q! r4 w8 @3 e# ?
Do5 e4 M2 }: {6 U( a
P1(0) = (M1 + M2) / 2' X, [" d+ k5 `6 d0 q
C.Center = P1
0 g2 P$ N5 h! }7 q6 Z/ ]
V = C.IntersectWith(L1, acExtendNone)
/ ?5 j" f4 R1 [4 U$ U3 H
L3.StartPoint = C.Center
4 {% u2 e/ H; w+ l4 Q
L3.EndPoint = V/ X0 `% \( Q, ^7 @
L4.StartPoint = L3.EndPoint
3 N( L+ j: B; \: k1 d
L4.EndPoint = .Utility.PolarPoint(L4.StartPoint, L3.Angle - .Utility.AngleToReal(90, acDegrees), L4.Length)4 G( \' n# B8 q2 _* E& W
L4.EndPoint = L4.IntersectWith(L2, acExtendBoth)9 M1 \( s% H1 G* ^- q
If 1000 - L4.EndPoint(0) = L3.StartPoint(0) Or M1 = P1(0) Or M2 = P1(0) Then
; Q% M2 l! b/ M, W/ Q
Exit Do
' U; s( Z" R l5 @3 @
ElseIf 1000 - L4.EndPoint(0) > L3.StartPoint(0) Then4 T: ?, k" K( U1 g( _+ b. ]4 U
M2 = P1(0)
. E1 c: b) O6 j2 k+ a( W8 X
Else% R1 h9 N8 S" e9 R
M1 = P1(0)
' [. _ P9 o0 F: ]) h! e0 x/ J
End If3 u! j4 ~# s1 A: ]5 w+ L$ t
Loop5 K8 W& L1 l" A" h7 d! S- O A, O
C.Delete
; B+ C: S- s; P
L3.Offset -L4.Length
, P& g `- p! p, ~/ I- x. H
L4.Offset -L3.Length
# i" i* L& m" G% s
End With( P6 N+ `8 l* r

复制代码

轨迹法,见下图和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怎么画？

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

评分

浏览过的版块