jacky789 发表于 2006-8-17 01:00:00

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

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

wyj7485 发表于 2006-8-17 09:47:00

<P>数组是否为空</P>
<P>数组的上下标</P>
<P>数组形式为(x0 y0 z0 x1 y1 z1 x2 y2 z2.....)取处点</P>

jacky789 发表于 2006-8-17 18:25:00

<P>感谢解答：</P>
<P></P>
<P>如绘制选择一条直线,如下行代表直线的何意义？？</P>
<P>For I = LBound(pts) To UBound(pts) Step 3</P>
<P>pt(0) = pts(I): pt(1) = pts(I + 1): pt(2) = pts(I + 2)</P>
页: [1]
查看完整版本: [求助][讨论]lbound命令~~