DaveW 发表于 2007-7-17 22:20:07

尝试使用返回角度值的舍入。
MyValue=MyReadnedAngle
MyValue=舍入（MyValie，3）将使您为3小数。相应地调整您的大小写。

DaveW 发表于 2007-7-17 23:29:59

这无疑是一个舍入问题，虽然下面的方法可行，但我更愿意先将角度设置为-0.00001到0.000001，134.99999到135.0001，179.00001至180.00001，224.99999至225.000001＜br＞调试。打印数据语言＜br＞结束选择

Humbertogo 发表于 2007-7-18 10:39:29

我用这两个来测试这个理论。我更喜欢圆形。
retAngle = Round(retAngle, 0)
retAngle = retAngle \ 1

第一个舍入没有小数位，(咄)
但是第二个我使用了整数除法，它会在除法中去掉小数位

Humbertogo 发表于 2007-7-19 03:54:57



                retAngle = ThisDrawing.Utility.AngleFromXAxis(PolySp, PolyEp)
                retAngle = RtoD(retAngle)
                intretangle = CInt(retAngle)
            'uses the Mod operator to divide two numbers and return only the remainder.
               intretangle = intretangle Mod 90
页: 1 [2]
查看完整版本: 选择案例角度