社区 › VB › vba取直线俩端点与autocad中的不一致,为什么?帮忙

fengfan 发表于 2007-4-3 14:21:00

vba取直线俩端点与autocad中的不一致,为什么?帮忙

vba取直线俩端点与中的不一致,取的是x轴和y轴 在cad中显示 两个端点 x =0 或者 y =0 但是通过vba取出来却不是.是那里出现了误差?怎么解决?只有一个正确.


0-239.5247616430310302.065585840464
392.55940-3601.4210854715202E-13
-2.27373675443232E-137.105427357601E-1439.9999999999998-11.9999999999997
-40.000000000000215.0000000000001-2.27373675443232E-137.105427357601E-14

Public Sub shanchu()
    Dim fs
    Dim a
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile(ThisDrawing.Path + ThisDrawing.Name + ".txt", True)
   
    Dim item As AcadEntity
    Dim eLine As AcadLine
    For Each item In ThisDrawing.ModelSpace
      'a.writeline (item.EntityName)
      If (item.EntityName = "AcDbLine") Then
            Set eLine = item
            a.writeline (eLine.StartPoint(0) & "" & eLine.StartPoint(1) & "" & eLine.EndPoint(0) & "" & eLine.EndPoint(1))
      End If
    Next
    a.Close
End Sub





**** Hidden Message *****

翔羽 发表于 2007-4-3 20:52:00

要进行用户坐标系和世界坐标系之间的转化

查看完整版本: vba取直线俩端点与autocad中的不一致,为什么?帮忙