如何利用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

上一篇:object?jsonobject

下一篇:為什麽從花青傳白茶給老舒這麽貴？