我的ftp开放，大家可以多交流！

Private Sub Command1_Click()
Dim nextline As String, nl As String
Dim x As Single, y As Single, z As Single
Dim i As Integer
i = 1
Open "sj.dxf" For Input As #1
Open "out.txt" For Output As #2

Do Until EOF(1)
Line Input #1, nextline
If nextline = " 10" Then
Line Input #1, nl
x = Format(Val(nl), "#########.0000")
ElseIf nextline = " 20" Then
Line Input #1, nl
y = Format(Val(nl), "#########.0000")
ElseIf nextline = " 30" Then
Line Input #1, nl

无内容！