关于轴的绘制程序

gzy

我的轴的运行结果如下：
不知道为什么，大直径段与小直径段无法圆角过度，程序运行时总是判断 “10<5”，所以无法进入圆角部分。而最气人的是小直径与大直径时它又能顺利地判断”10>5“，所以能够实现，因此图出来就是上面那个德行。
那位大哥能给点意见啊？

mccad

来段出问题的程序代码吧，你这样说大家都不会明白的。

gzy

If TextBox6.Enabled = True Then
    If l3 < TextBox7.Text Then  '只提供圆角或倒角
        If ComboBox1.Enabled = True Then
            MsgBox "结束直径小于下段开始直径，此段右端无法形成倒角", vbOKOnly, "数据冲突"
            CheckBox4.Value = 0
          If Label5.Caption = "倒角距离" Then
            rk = TextBox4.Text
            zp4(0) = zp3(0) + rk
            zp4(1) = zp3(1) + rk
            zp4(2) = zp3(2)
            Set linelast1 = ThisDrawing.ModelSpace.AddLine(zp3, zp4)
           ElseIf Label5.Caption = "圆角半径" Then
            rk = TextBox4.Text
            zp4(0) = zp3(0) + rk
            zp4(1) = zp3(1) + rk
            zp4(2) = zp3(2)
            zpc1(0) = zp3(0)
            zpc1(1) = zp3(1) + rk
            zpc1(2) = zp3(2)
            starangle = -1.5704
            endangle = 0
            Set linelast1 = ThisDrawing.ModelSpace.AddArc(zpc1, rk, starangle, endangle)
          End If
        End If
      ElseIf ComboBox1.Enabled = False Then
                    r2 = 0
                    zp4(0) = zp3(0) + r2
                    zp4(1) = zp3(1) + r2
                    zp4(2) = zp3(2)  '23线要修改
                    Set linelast1 = ThisDrawing.ModelSpace.AddLine(zp3, zp4)
    End If
ElseIf ComboBox1.Enabled = True Then
        If Label5.Caption = "倒角距离" Then
            rk = TextBox4.Text
            zp4(0) = zp3(0) + rk
            zp4(1) = zp3(1) + rk
            zp4(2) = zp3(2)
            Set linelast1 = ThisDrawing.ModelSpace.AddLine(zp3, zp4)
           ElseIf Label5.Caption = "圆角半径" Then
            rk = TextBox4.Text
            CheckBox4.Value = 0
            zp4(0) = zp3(0) + rk
            zp4(1) = zp3(1) + rk
            zp4(2) = zp3(2)
            zpc1(0) = zp3(0)
            zpc1(1) = zp3(1) + rk
            zpc1(2) = zp3(2)
            Set linelast1 = ThisDrawing.ModelSpace.AddArc(zpc1, rk, -1.5704, 0)
        End If
ElseIf ComboBox1.Enabled = False Then
                    rk = 0
                    zp4(0) = zp3(0) + rk
                    zp4(1) = zp3(1) + rk
                    zp4(2) = zp3(2)  '23线要修改
                    Set linelast1 = ThisDrawing.ModelSpace.AddLine(zp3, zp4)
End If

在代码第2行设置断点会发现即使不符合条件程序（l3=10,textbox7.text=5)也会继续往下走。如果你们觉得还不大明白我将上传此程序所有！

gzy

mccad大哥，帮忙看一下嘛，如有问题，我会上传程序全部！

mccad

如果程序保密，请E给我：mccad@mjtd.com

gzy

老大，已经发过来了，帮忙看一下。小弟万分感激！

mccad

在绘制轴时，其实本身已经知道所有的数据了，只是要把它画出来而已。所以可以采取这种方式：
每一段都有左端右端，而这两端不是自身可能有倒角就是就是与下一段有倒角或圆角过渡，所以编程时可以直接将它分为左端和右端样式，而不必做成左端倒角、右端倒角和与下段的连接形式。
按照这个思路写应该会简化很多，使用者也会更加容易操作。界面也简单化了。
这样每一段都可以单独出来，只是连接处要保留到下段数据出来后去判断再画。

gzy

大哥你的意思是说整个轴的数据要一下全部知道吗？然后每段分成两段来画。那样确实是方便很多了，不过我是想象电子图版那样一段一段的画，那样会体现得更专业一些。对了，本话题顶部的程序的那个判断部分到底是怎么回事啊？为什么会有那种情况呢？

mccad

你先把你的绘制思路说一下。或者你的编程思路。

gzy

我的思路是想一段一段的画，根据条件的判断的决定画图，如下图，我首先认为每一段都如上面小图那样是一个矩形演变来的，根据顺序1234来画，关键是第四点的确定，因为只有这样才能让下一段的开始点zp0容易确定,如果能象下图的下面部分那个轴就可以了。
图片信息在下楼