[讨论]个精度问题

suixin2002

程序如下，读出的坐标值怎么只是整数呢？小数部分没了
请问高手 果解决？
Public Function ReadLine(objEntity As AutoCAD.AcadObject) As Boolean
    Dim objLine As AutoCAD.AcadLine
    Dim varPtCAD As Variant                                                '定义一个变量用来表示CAD的点坐标
    Set objLine = objEntity
    varPtCAD = objLine.StartPoint                                              '得到第一个点
    Debug.Print varPtCAD(0), varPtCAD(1), varPtCAD(2)
    varPtCAD = objLine.EndPoint                                                '得到第二个点
    Debug.Print varPtCAD(0), varPtCAD(1), varPtCAD(2)
End Function

3kd

设置系统参数，将小数点后设置你要的位数就可以了。

suixin2002

再次请教，我该如果设置这样的系统参数。
如果能给一段代码就最好了。