此图如何画

wang2003 · 发表于 2007-5-12 22:48:35

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

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

x

如下图：
知道粗线总长为600，曲线部分直径50，两直线与曲线相切，此图如何画？

aviq · 发表于 2007-5-13 08:43:48

用到初等几何可算,不过图形怎么画还真想不出方法.

laplaplap · 发表于 2007-5-13 10:05:46

用MDT搞参数式三分钟完成

wang2003 · 发表于 2007-5-13 10:15:07

楼上的朋友：你把题意看清楚，是总长600啊。
怎么会象你想的那么简单呢？

laplaplap · 发表于 2007-5-13 12:02:16

再做一个用MDT搞参数式二分钟完成

woaishuijia · 发表于 2007-5-14 11:08:14

Sub A()
Dim Alpha As Double, Alpha1 As Double, Alpha2 As Double
Dim Pl As AcadLWPolyline, P(5) As Double
'用迭代运算寻找正确的角度Alpha
Alpha2 = 1.5707963267949
Do
      Alpha = (Alpha1 + Alpha2) / 2
      If Alpha = Alpha1 Or Alpha = Alpha2 Then
         If Abs(Tan(Alpha1) * 25 + (3.14159265358979 - Alpha1) * 25 - 300) < _
            Abs(Tan(Alpha2) * 25 + (3.14159265358979 - Alpha2) * 25 - 300) Then
            Alpha = Alpha1
         Else
            Alpha = Alpha2
         End If
         Exit Do
      ElseIf Tan(Alpha) * 25 + (3.14159265358979 - Alpha) * 25 = 300 Then
         Exit Do
      ElseIf Tan(Alpha) * 25 + (3.14159265358979 - Alpha) * 25 < 300 Then
         Alpha1 = Alpha
      Else
         Alpha2 = Alpha
      End If
Loop
'画多段线
P(1) = 25 / Cos(Alpha) '顶点1纵坐标
P(2) = 25 * Sin(Alpha) '顶点2横坐标
P(3) = 25 * Cos(Alpha) '顶点2纵坐标
P(4) = -P(2) '顶点3与顶点2对称
P(5) = P(3)
Set Pl = ThisDrawing.ModelSpace.AddLightWeightPolyline(P) '画多段线
Pl.Closed = True '多段线闭合
Pl.SetBulge 1, -(P(3) + 25) / P(2) '第2段改为圆弧
End Sub

[ 本帖最后由 woaishuijia 于 2007-5-14 20:51 编辑 ]

wang2003 · 发表于 2007-5-14 13:02:06

原帖由 woaishuijia 于 2007-5-14 11:08 发表 http://www.3dportal.cn/discuz/images/common/back.gif! r6 t* I$ e3 K( n
421245
8 a0 g: q" i# J. l" Q- r) A. N; r5 M" p, H, U) b) f( z+ c6 `$ ?
Sub A()
4 b7 Q/ X, W7 m2 S! q% e8 W Dim Alpha As Double, Alpha1 As Double, Alpha2 As Double
% E1 n6 f" i& @6 C: q- [ Dim Pl As AcadLWPolyline, P(5) As Double
4 o1 P& E+ C3 u7 l) | '用迭代运算寻找正确的角度Alpha# {' u/ O' y0 g) A
Alpha2 = 1.5707963267949
& P3 Y& ]. q( Y0 q( C$ n# @% P ...

佩服、佩服，俺这水平只能看出是那是模块代码了，今后一定要努力了。

woaishuijia · 发表于 2007-5-14 20:53:17

谢谢！是我疏忽了，已改正。

lsx9131 · 发表于 2007-5-14 21:16:11

看来用MDT画图真不错，该学习了。

yefengblue · 发表于 2007-5-16 09:20:33

真要好好学习了,实在不知道还有怎么复杂的问题.和怎么好的解决方法

lijuncad · 发表于 2007-5-18 20:06:21

云里雾里的。哎~~~

;)

beitangsky · 发表于 2007-5-18 20:21:14

MDT是什么？CAD里的功能吗？

scliukejun · 发表于 2007-5-18 21:37:48

http://www.3dportal.cn/discuz/viewthread.php?tid=250487
使用渐开线公式，绘制角度0-(300/25)弧度，基圆R=25;
作未点对圆的切线，旋转使切线水平,过圆心作竖线交于曲线上一点，此点就是所求水滴尖点。我在网吧，不方便实际操作。当然我只是用上述链接中的通用工具代替楼上的定制编程了。

scliukejun · 发表于 2007-5-22 13:56:42

狂挺，做了个动画，演示一下，

ttmaomao · 发表于 2007-5-22 16:36:18

都很牛哦，佩服佩服

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

通知

[讨论] 此图如何画

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

评分

回复 #8 zengjl 的帖子

回复 #10 lsx9131 的帖子

浏览过的版块