如何利用vb读取一个dxf格式的图形文件的数据

dxf文件是AutoCad的交换文件，可以直接用AutoCad打开。dxf文件是明码文件，在vb环境下按顺序文件读取就可以了。

例如：在C盘根目录下有一个文件“1.dxf”
启动vb后，建立一个按钮：Command1
并双击此按钮，对其输入以下代码：

Private Sub Command1_Click()
Dim a As String '读取文件一行的内容
Dim i As Long '用于记录行数
Dim j As Long '用于记录用户如何响应提示

Open "c:\1.dxf" For Input As #1
i = 0
While Not EOF(1)
Line Input #1, a
i = i + 1
j = MsgBox("第 " & i & " 行内容为：" & a, vbOKCancel + vbInformation)
'运行到此步时，如果用户输入“确定”则继续，如果用户输入“取消”则结束本程序

'用户可以在此输入处理代码，对读入的字串进行处理

If j = vbCancel Then
End
End If
Wend
close #1
End Sub

这方面成熟程序已有VB6代码，解析 重新绘制到窗体PIC控件，G代码生成