|
|
本人VBA新手，遇到subscript out of range的错误。
不知道是不是因为处理的txt文件过大，还是由于其他的原因。
运行之后会提示如下错误：
clekv1y5akj.png
程序如下
VBA程序源码如下：
Open "D:\\Work\QSGS\****.txt" For Input As #1
Input #1, SumPoints:
ReDim points(0 To Sumline*3-1) As Double
Dim plineObj As AcadPolyline
npoints=0
For i=1 To SumPoints '遍历轮廓线中所有点
input #1,x,y '从文件读出i点的x,y坐标
points（npoints）=x '第i点的x坐标
points（npoints+1）=y '第i点的y坐标
points（npoints+2）=0 '第i点的z坐标
npoints=npoints+3
Next i
Set plineObj=ThisDrawing.ModelSpace.AddPolyline(points)
ZoomAll
Close
******************
txt见附件
还望大神指点一二
|
|
置顶卡
