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 a Double
Dim borderline personality disorder (1 To 100, 1 To 6) As a Double
Dim the curve (1 To 100, 1 To 4) As a Double
Dim lj (1 To 100) As a Double
Dim LJS (1 To 100) As the String
Dim qh (1 To 100, 1 To 3) As a Double
Dim QHS (1 To 100) As the String
Dim dk (1 To 100, 1 To 2) As a Double
Dim DKS (1 To 100) As the String
Dim PC (1 To 100, 1 To 2) As a Double
Dim PCS (1 To 100) As the String
Dim pt0 (0 To 2) As a Double
Dim pt1 (0 To 2) As a Double
Dim pt2 (0 To 2) As a Double
Dim the pt3 (0 To 2) As a Double
Dim pt As the Variant
Dim jd As Double
Dim lh-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 wasn't entirely As a Double
Dim yscale As Double
Dim tkscale As Double
Dim the radius As Double
'the standard size of 3 mm, multiplied by the tkscale is the actual size
Tkscale=1
'scale
Xscale wasn't entirely=1/5000 * 1000
Yscale=1/50 * 1000
Pt2 (0)=0
Pt2 (1)=0
Pt2 (2)=0
The 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
'from the file into the ground line of the original data file
N=0
The Do While Not EOF (1)
N=n + 1
Input # 1, DMX (n, 1), DMX (n, 2), DMX (n, 3)
Loop
Close # 1
'the raw data file from the file read in changing slope point
Dim nn As Integer
Nn=0
The Do While Not EOF (2)
Nn=nn + 1
Input # 2, borderline personality disorder (nn, 1), borderline personality disorder (nn, 2)
Loop
Close # 2
At the back of the programs are about the same, because is to so unlikely to VB program, is a path before mistake, after I modify the path for 53 in error again, I don't quite understand is where there is no close the file, please bosses teach!!!!!! Thank you very much!
CodePudding user response:
If there is no "always open" in the operation of the program files,Before you have a try in line 1 Open statement, add 1: Close
CodePudding user response:
Thank you, I join the error disappeared after the close, but there was 53 (file not found error), is that I changed my path or not, I only know that path is only in English, don't know much about the specific format error, bosses, please grant instruction,Because it is the other major, so the question is a bit, I'm sorry, yesterday did FORTRAN, today again to VB is incapable,
CodePudding user response:
I posted the code but failed to stick because is too long I stick out all references to file
There is a path graph is my file, I don't know can help to help me analyse
CodePudding user response:
File open mode is "Input",Then asked open file must exist, and "the current user has access,"
Myself to see if any file "does not exist,"