tnttnoy1 发表于 2008-12-19 01:42:00

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

我有一个文本,样子如下
——
5,45,22
7,44,21
——
其中5代表X坐标,45代表Y坐标,22代表Z坐标值
有没有办法把这些数据读入CAD中,然后按照点连成线?
谢谢各位了。急

jingqin0472 发表于 2008-12-29 12:59:00

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

上帝卫士 发表于 2008-12-31 10:06:00

同样的苦恼,期待回复!
页: [1]
查看完整版本: 求助将txt文本中的坐标读入CAD,并连成线