关于轴的绘制程序

gzy

mccad

难道你在画当前轴段时还不知下一段轴段的直径吗？
我想这个简单的程序只是用于输入已经设想好的轴，而不是本设计轴。该只是个简化绘图的工具。

gzy

哦，你的意思我清楚，但我想更智能一点。我想一个外行去操作也要能画出来。
如果按已知尺寸去画那数据是一定合理的，我的程序现在已经能做到这一点了。但总觉得还不够完美。

mccad

问题是我接到你的程序时我就一点都不懂得怎样操作输入数据，你把下一段的起始直径放到上一段中输入这一点就不合理，我试过很多次才明白。

gzy

因为我觉得只有知道了下一段的开始直径，才能方便判断能否与下一段圆角或倒角过度。才能方便的确定上述第4点，这样下段的ZP0也就更容易确定。

在输入当前直径（比如第一段）的时候已经输入下一段（第二段）的直径了，所以当点击下一段进入第二段直径输入时，第二段的开始直径就要与刚才进行第一步操作时的“下一段开始直径”相等，这样做只是为了不让用户错误操作。

gzy

大哥，其实我最想知道是为什么那个判断条件会出错，麻烦你再帮忙看看。

mccad

你给我的程序不是你的最后版本，我用你的程序制出来的图是这样的：

gzy

我明天再全面更新后发给你吧，真是不好意思了，一根轴而已，要麻烦大哥搞这么多趟。

gzy

大哥，我的问题已经解决。问题如下
  If l3 < TextBox7.Text Then  
应该写成 if l3>val(textbox7.text) then
因为字符是不能比较大小的，不过我就怎么都不明白，为什么
A=l3+textbox.text却能计算出来？按道理应该提示数据类型不匹配啊，比如L3=10
textbox.text="10"，计算结果却是A=15。是什么原因啊？
    为答谢你对此程序的帮助和指导， 程序一旦作好，马上上传。

zeng29

+ 运算符也可以用来做字符串的串接操作。不过，最好还是使用 & 运算符来做字符串的串接操作。如果 + 运算符两边的表达式中混着字符串及数值的话，其结果会是数值的求和。如果都是字符串作“相加”，则返回串接起来的字符串。

Dim MyNumber, Var1, Var2
MyNumber = 2 + 2   ' 返回 4。
MyNumber = 4257.04 + 98112   ' 返回 102369.04。

Var1 = "34": Var2 = 6   ' 初始化混合变量的值。
MyNumber = Var1 + Var2   ' 返回 40。(运行时自动将字符串变量转换成数值型运算)

Var1 = "34": Var2 = "6"   ' 用字符串初始化混合变量的值。
MyNumber = Var1 + Var2   ' 返回 "346"（字符串被串接起来）。