VBA Solidworks

Question

我试图在vba中制作一个程序，在solidworks中构造一个轴，这必须通过输入它在用户表单中暴露的力来完成。我的公式工作得很好，但我希望它把所有的值集合成一个整数，因为制造一个直径为35,65毫米的车轴是愚蠢的。

我知道我可以用“圆形(直径，0)”来做这个，但是我不想让它变小，因为这会使它变弱。

简略:在VBA中，如何将一个数字集合成一个整数？

例如: 7,3 => 8

任何输入都将不胜感激！

谢谢

抢夺

Answer 1

VBA的True在数学上等于-1，而False等于0，所以这应该适合你。

Dim axl as double
axl = 36.5
axl = int(axl) - (int(axl) <> axl)
debug.print axl

假设在一个物理世界中，轴的直径不可能有负的维度。IOW，当axl为正数时，这个公式从零开始，当axl为负值时，公式向零方向旋转。

最后一个警告:按照提供的方式使用，不要将Int(axl)更改为CInt(axl)。CInt将值舍入最接近的整数，如Round(axl, 0)，而Int去掉任何小数部分。