高手请进，怎样得到这个实体呢

wt_liub

ThisDrawing.SendCommand "pline" & vbCr
For i = 1 To 2000 Step 2
If (Line4Point(i) = 0) Then
Exit For
End If
ThisDrawing.SendCommand "" & Line4Point(i) & "," & Line4Point(i + 1) & vbCr
Next 如何得到我画出的这条线呢与其他实体求交点呢

雪山飞狐_lzh

和Lisp不同，VBA尽量不要用SendCommand方法，使用AddXXX函数绘制实体

[WEB]http://www.vba.cn/object/acad2004/idh_addlightweightpolyline.htm[/WEB]

wt_liub

我也是没办法的办法，请问，我想用intPoints 数组画多义线，但只要前面一部分的，该如何去掉后面不要的部分呢？