狼牙月 发表于 2007-7-17 22:20:07

尝试使用返回角度值的舍入
MyValue=MyReturnedAngle（MyValue=Round）（MyValie，3）将把您设为3位小数。相应地调整您的案例

英皇联盟 发表于 2007-7-17 23:29:59

确切地说是一个舍入问题，尽管下面可行，但我宁愿先设置角度，然后选择Case dblAngle，Case-0.00001到0.000001，134.99999到135.0001，179.00001至180.00001，224.99999至225.000001&nbsp；调试。打印数据语言结束选择

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

我用这两种方法来检验这个理论&nbsp；我更喜欢圆形
retAngle = Round(retAngle, 0)
retAngle = retAngle \ 1
第一个四舍五入，没有小数点，（duh），但第二个我使用整数除法，它会将小数点作为除法的一部分

北京顽主吧 发表于 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]
查看完整版本: 选择案例角度