[求助][讨论]lbound命令~~

jacky789

有人可以白话解释下面三行的意思吗？感激不尽～～
Dim I As Integer
Dim str As String
If VarType(pts) <> vbEmpty Then               '此行代表何意呢？？
For I = LBound(pts) To UBound(pts) Step 3     '此行代表何意呢？？
pt(0) = pts(I): pt(1) = pts(I + 1): pt(2) = pts(I + 2)  '此行代表何意呢？？
Set cir = ThisDrawing.ModelSpace.AddCircle(pt, 5)
Next I
End If

wyj7485

数组是否为空

数组的上下标

数组形式为(x0 y0 z0 x1 y1 z1 x2 y2 z2.....)取处点

jacky789

感谢解答：

如绘制选择一条直线,如下行代表直线的何意义？？

For I = LBound(pts) To UBound(pts) Step 3

pt(0) = pts(I): pt(1) = pts(I + 1): pt(2) = pts(I + 2)