[讨论]：line lbound&ubound

goim00

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

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)
??

雪山飞狐(lzh)

pts可不是直线,请贴完整点的代码?

goim00

Public Function pot
Dim pts As Variant
Dim cir As AcadCircle
'Dim intpt(0 To 2) As Double
pts = en1.IntersectWith(en2, acExtendNone)
Dim I As Integer
If VarType(pts) <> vbEmpty Then
For I = LBound(pts) To UBound(pts) Step 3
intpt(0) = pts(I): intpt(1) = pts(I + 1): intpt(2) = pts(I + 2)   ThisDrawing.ModelSpace.AddCircle(pts,8)
Next I
End If
End Function

就是上面post那几行用途及用法还不是很清楚
感谢回复～～