suixin2002 发表于 2003-9-16 12:39:00

[讨论]个精度问题

程序如下，读出的坐标值怎么只是整数呢？小数部分没了
请问高手 果解决？
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 发表于 2003-9-16 12:54:00

re

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

suixin2002 发表于 2003-9-16 14:47:00

再次请教，我该如果设置这样的系统参数。
如果能给一段代码就最好了。
页: [1]
查看完整版本: [讨论]个精度问题