求助将txt文本中的坐标读入CAD，并连成线

tnttnoy1

我有一个文本，样子如下

——

5，45，22

7，44，21

——

其中5代表X坐标，45代表Y坐标，22代表Z坐标值

有没有办法把这些数据读入CAD中，然后按照点连成线？

谢谢各位了。急

jingqin0472

Open DirPath1 & "\XYZ.txt" For Input As #1
    Do Until EOF(1)
    Input #1, xh, xyz(1), xyz(0), xyz(2)
    If l = 1 Then
    pt1(0) = xyz(0): pt1(1) = xyz(1): pt1(2) = xyz(2)
    Else
    pt2(0) = xyz(0): pt2(1) = xyz(1): pt2(2) = xyz(2)
    Set lll = ThisDrawing.ModelSpace.AddLine(pt1, pt2)
    pt1(0) = pt2(0): pt1(1) = pt2(1): pt1(2) = pt2(2)
    End If
    l = l + 1
    Loop
    Close #1

上帝卫士

同样的苦恼，期待回复！