[讨论]个精度问题

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

程序如下，读出的坐标值怎么只是整数呢？小数部分没了
请问高手果解决？
Public Function ReadLine(objEntity As .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