Private Sub CommandButton1_Click()
Dim i As Integer
On Error Resume Next
Dim textline(5000) '行数据数组
Dim ds As Integer '总点数
Dim s As Integer '循环变量
Dim pnt(0 To 2) As Double '点位坐标
Dim tpnt(0 To 2) As Double '点名坐标
Dim pntobj As AcadPoint '点
Dim dm As AcadText '点名
'Dim us1 As String
Dim us2 As String '左下角X坐标
Dim us3 As String '左下角Y坐标
Dim ur5 As String '高程
i = 1 '初始值
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
If CommonDialog1.FileName = "" Then Exit Sub
ProgressBar1.Visible = True
'Me.hide
Do While Not EOF(1)
Input #1, textline(i)
i = i + 1
Loop
Label1.Caption = i
Close #1