此图如何画

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
7 R+ P* e: [" \+ o% R* P  N$ ?' }421245+ }, W6 p4 u" x' v5 K, _. P

6 h$ p  ]# R7 ~% L. [" kSub A(). j) s8 x& b* J, y7 s4 @4 C# [) n. @
Dim Alpha As Double, Alpha1 As Double, Alpha2 As Double/ p; b+ q. V$ l& r
Dim Pl As AcadLWPolyline, P(5) As Double
# h% r9 K; `0 _3 a# D. }$ b '用迭代运算寻找正确的角度Alpha1 ]$ H$ j5 Y$ D
Alpha2 = 1.5707963267949  O& _( }1 U3 h# `
...

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

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 的帖子

浏览过的版块