此图如何画

wang2003

如下图：
知道粗线总长为600，曲线部分直径50，两直线与曲线相切，此图如何画？
  h  w) `+ W2 _) I: j5 ^# o  J
: Q8 [& T& h4 V0 `0 G  z/ |

aviq

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

laplaplap

用MDT搞参数式三分钟完成

wang2003

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

laplaplap

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

woaishuijia

- U# T, D$ D. P
Sub A()
    Dim Alpha As Double, Alpha1 As Double, Alpha2 As Double
1 [# ^6 h) d3 o+ P8 q    Dim Pl As AcadLWPolyline, P(5) As Double
, }0 l- H7 ^, Y% R    '用迭代运算寻找正确的角度Alpha
5 ?' S: w" Z3 F  @    Alpha2 = 1.5707963267949
    Do
        Alpha = (Alpha1 + Alpha2) / 2
  ^% V- z, D; X' F9 h) P/ h        If Alpha = Alpha1 Or Alpha = Alpha2 Then
            If Abs(Tan(Alpha1) * 25 + (3.14159265358979 - Alpha1) * 25 - 300) < _
) R+ a* L) k9 k# Z3 T. u5 }               Abs(Tan(Alpha2) * 25 + (3.14159265358979 - Alpha2) * 25 - 300) Then
; g' W7 ?1 v+ R- _                Alpha = Alpha1
            Else
                Alpha = Alpha2
            End If
( T# f4 ?0 k, t, L5 C* W            Exit Do
: g; \2 Y" L: N4 |* c5 u        ElseIf Tan(Alpha) * 25 + (3.14159265358979 - Alpha) * 25 = 300 Then
& o0 P  x  j" h1 ]7 b& D            Exit Do
9 ?4 f! g8 {6 j4 o* T        ElseIf Tan(Alpha) * 25 + (3.14159265358979 - Alpha) * 25 < 300 Then
8 r0 {  N: |) Z* ?9 `+ H% G) D            Alpha1 = Alpha
# _$ F% n. }% |3 t- o        Else
  ~9 h- ?) G+ e. Y3 l# c  }( m            Alpha2 = Alpha
        End If
6 _2 H  I5 \# E& C6 n! }( x8 N9 a    Loop
    '画多段线
7 r; m& \( G, [+ _) w    P(1) = 25 / Cos(Alpha) '顶点1纵坐标
/ K, Y/ `+ g# I$ q    P(2) = 25 * Sin(Alpha) '顶点2横坐标
    P(3) = 25 * Cos(Alpha) '顶点2纵坐标
    P(4) = -P(2) '顶点3与顶点2对称
8 k$ a' @4 n4 u7 h! m    P(5) = P(3)
    Set Pl = ThisDrawing.ModelSpace.AddLightWeightPolyline(P) '画多段线
    Pl.Closed = True '多段线闭合
  j( J  @  h% T( x( k- |    Pl.SetBulge 1, -(P(3) + 25) / P(2) '第2段改为圆弧
End Sub

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

wang2003

原帖由 woaishuijia 于 2007-5-14 11:08 发表 http://www.3dportal.cn/discuz/images/common/back.gif
, y7 b5 D9 |0 a421245
1 s: I) J) W3 t+ J: }
, c, |8 X( V) n+ TSub A()
& I% \4 e2 m$ Y% J( \# }    Dim Alpha As Double, Alpha1 As Double, Alpha2 As Double
    Dim Pl As AcadLWPolyline, P(5) As Double
    '用迭代运算寻找正确的角度Alpha
    Alpha2 = 1.5707963267949
) i6 m: }6 S% z+ U0 A! ]* }/ }    ...

5 o; s% ~8 I7 |8 ^. c1 G+ |, B

& c4 s" H* X: V$ ]) q; L8 ^0 @% O; X: v佩服、佩服，俺这水平只能看出是那是模块代码了，今后一定要努力了。

woaishuijia

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

lsx9131

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

yefengblue

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

lijuncad

云里雾里的。哎~~~ ;)

beitangsky

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

scliukejun

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

scliukejun

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

ttmaomao

都很牛哦，佩服佩服