[VBA程序]：这样保留小数位数，但不成功，恳请大虾指点

liuhexiang

我编的代码如下，

Sub k()

Dim kstr As String
Dim ktext As AcadText
Dim kpoint(0 To 2) As Double
Dim ss As Double
kpoint(0) = 10
kpoint(1) = 10
kpoint(2) = 0
ss = 3.000000000001
ss = Round(ss, 3)  '或者是ss = Format(ss, "0.000")
kstr = ss
Set ktext = ThisDrawing.ModelSpace.AddText(kstr, kpoint, 2.5)

End Sub

但最后在CAD显示的还是“3”，并不是我想要的“3.000“。
请问怎样才能得到“3.000“？谢谢！

zhuxuhong

改为
Sub k()

Dim kstr As String
Dim ktext As AcadText
Dim kpoint(0 To 2) As Double
Dim ss As Double
kpoint(0) = 10
kpoint(1) = 10
kpoint(2) = 0
ss = 3.000000000001
kstr = Format(Str(ss), "####0.00")
Set ktext = ThisDrawing.ModelSpace.AddText(kstr, kpoint, 2.5)

End Sub

richardzy

内部变量的数据小数点后也有很多位，有时两个坐标比较很麻烦，以为坐标是一样的，但比较的结果是不相等，估计是浮点数不精确的原因

wxueshi

小数截位时会产生表面相等，实际不相等的情况。这和精确度有关

lhx2000

确切的说应改为：
Sub k()

Dim kstr As String
Dim ktext As AcadText
Dim kpoint(0 To 2) As Double
Dim ss As Double
kpoint(0) = 10
kpoint(1) = 10
kpoint(2) = 0
ss = 3.000000000001
kstr = Format(Str(ss), "####0.00")
把原来的0去掉
kstr = Format(Str(ss), "####.00")

Set ktext = ThisDrawing.ModelSpace.AddText(kstr, kpoint, 2.5)

End Sub
在VB上没问题，在VBA上没有试过

zaoys

Format(ss,"###0.000") 是正解

qiaqiadeng

不用那么麻烦，只要Format(ss,"0.000") 即可。