Open "C:\Users\qqq\Desktop\zdm\zdm.CSV" For Input As #1
Open "C:\Users\qqq\Desktop\zdm\wbpd.DAT" For Input As #2
Open "C:\Users\qqq\Desktop\zdm\curve.DAT" For Input As #3
Open "C:\Users\qqq\Desktop\zdm\lj.DAT" For Input As #4
Open "C:\Users\qqq\Desktop\zdm\qh.DAT" For Input As #5
Open "C:\Users\qqq\Desktop\zdm\dk.DAT" For Input As #6
Open "C:\Users\qqq\Desktop\zdm\pc.DAT" For Input As #7
Dim dmx(1 To 1000, 1 To 9) As Double
Dim bpd(1 To 100, 1 To 6) As Double
Dim curve(1 To 100, 1 To 4) As Double
Dim lj(1 To 100) As Double
Dim ljs(1 To 100) As String
Dim qh(1 To 100, 1 To 3) As Double
Dim qhs(1 To 100) As String
Dim dk(1 To 100, 1 To 2) As Double
Dim dks(1 To 100) As String
Dim pc(1 To 100, 1 To 2) As Double
Dim pcs(1 To 100) As String
Dim pt0(0 To 2) As Double
Dim pt1(0 To 2) As Double
Dim pt2(0 To 2) As Double
Dim pt3(0 To 2) As Double
Dim pt As Variant
Dim jd As Double
Dim zd As Double
Dim txtobj As AcadText
Dim lineobj As AcadLine
Dim blockobj As AcadBlockReference
Dim circleobj As AcadCircle
Dim s As String
Dim xscale As Double
Dim yscale As Double
Dim tkscale As Double
Dim radius As Double
'標準字號為3mm，乘以tkscale即為實際大小
tkscale = 1
'比例尺
xscale = 1 / 5000 * 1000
yscale = 1 / 50 * 1000
pt2(0) = 0
pt2(1) = 0
pt2(2) = 0
Set blockobj = ThisDrawing.ModelSpace.InsertBlock(pt2, "C:\Users\qqq\Desktop\zdm\zdmtk.dwg", 1, 1, 1, 0)
n = 1
jd = 110000
pt0(0) = 300
pt0(1) = 25 * tkscale
pt0(2) = 0
'從檔案中讀入地面線原始資料檔案
n = 0
Do While Not EOF(1)
n = n + 1
Input #1, dmx(n, 1), dmx(n, 2), dmx(n, 3)
Loop
Close #1
'從檔案中讀入變坡點原始資料檔案
Dim nn As Integer
nn = 0
Do While Not EOF(2)
nn = nn + 1
Input #2, bpd(nn, 1), bpd(nn, 2)
Loop
Close #2
后面的程式都差不多，因為是給的程式所以不太會VB，之前是路徑錯誤，我修改完路徑后又報 53號錯誤，我不太明白是哪里沒有關閉檔案，請大佬們教教！！！萬分感謝！
uj5u.com熱心網友回復：
如果程式運行中沒有“一直打開著”的檔案，你試一下在第1行Open 陳述句之前，添加一句： Close
uj5u.com熱心網友回復：
謝謝大佬，我加入close后錯誤消失了，可是又出現了53（檔案未找到錯誤），是我改的路徑還是不對嗎，我只知道路徑只能是英文，具體格式錯誤不太了解，請大佬賜教。因為是其他專業的，所以問題有點基礎，很抱歉了，昨天才學了fortran，今天又來搞VB有點力不從心。
uj5u.com熱心網友回復：
我還是把代碼貼出來 不過沒有貼全 因為太長了 我把參考到檔案的地方都貼出來了
還有一張是我檔案的路徑圖，不知道能不能幫到大佬幫我分析一下
uj5u.com熱心網友回復：
檔案打開模式是“Input”，那么要求被打開的檔案必須存在、并且“當前用戶”有訪問權限。
自己看看是否有哪個檔案“不存在”。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/13536.html
標籤：VB基礎類
上一篇：求助VB高手