********以下是模块级代码**********************************************

'这个是模块级函数，用于读取txt文件中的坐标并存入一个数组变量中

Public Function GetPoints(ByVal AppPath As String, ByRef P() As Single)
  '参数说明：AppPath是你的坐标数据的完整路径，如“D:/zuobiao.txt”或 App.Path & "/zuobiao.txt"
  '          P()是一个空的数组变量、用于返回存储在内的线型（2为直线、3为圆弧）及坐标值
  '          P()有二维：如 P(x，y)，x为点号(从1开始)、y=0、1、2、3(0线型、1=X、2=Y、3=Z)
  Dim Strline As String, Line_Type As Integer, a() As String
  Dim Points As Long
  Strline = ""
  Points = 0
  Open AppPath For Input As #1
    Do Until EOF(1)
      Line Input #1, Strline
      Strline = Trim(Strline)
      If Strline <> "" Then
        Select Case Strline
        Case "2"
          Points = Points + 2
        Case "3"
          Points = Points + 3
        End Select
      End If
    Loop
  Close #1
  ReDim P(Points, 3)
  
  Strline = "": Line_Type = 0: i = 0
  Open AppPath For Input As #2
    Do Until EOF(2)
      Line Input #2, Strline
      Strline = Trim(Strline)
      If Strline <> "" Then
        If Strline <> "2" And Strline <> "3" And Strline <> "4" Then i = i + 1
        Select Case Strline
        Case "2"
          Line_Type = 2
        Case "3"
          Line_Type = 3
        Case "4"
          Line_Type = 0
        Case Else
          a() = Split(Strline, ",")
          P(i, 0) = Line_Type: P(i, 1) = a(0): P(i, 2) = a(1): P(i, 3) = a(2)
        End Select
      End If
    Loop
  Close #2
End Function


*************以下是窗口级调用示例代码**************************

'这里是给你的调用示例：在form1中的command1内调用函数并打印存储的结果
Private Sub Command1_Click()
  Dim X() As Single   '先声明一个存储坐标的空数组变量
  Call GetPoints(App.Path & "\zuobiao.txt", X()) '这里调用函数
  For i = 1 To UBound(X)  '坐标存储在数组变量的第1维至最高维之间
    '这里在窗体上打印出坐标来验证
    Print X(i, 0) & "  (" & X(i, 1) & "，" & X(i, 2) & "，" & X(i, 3) & ")"
    '上面：线型              X坐标            Y坐标             Z坐标
  Next
End Sub