DXFreader, merits our reference
4.0
DXF viewing source please see DXF.BAS.hehe it is worth we learn from
ption Explicit
'Global variables
Public Const PI = 3.14159265358979
Public Const INFINITY As Double = 9E+99
'---------------------------------------------------------------------------
' Point en 2D
'---------------------------------------------------------------------------
Public Type Point2
X As Double
Y As Double
End Type
Type RECT
X1 As Double
Y1 As Double
X2 As Double
Y2 As Double
End Type
Type cadpoint
X As Double
Y As Double
Z As Double
End Type
Private Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte