wt_liub 发表于 2005-3-24 15:27:00

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

ThisDrawing.SendCommand "pline" &amp; vbCr<BR>                       For i = 1 To 2000 Step 2<BR>                                                       If (Line4Point(i) = 0) Then<BR>                                                                       Exit For<BR>                                                       End If<BR>                                                       ThisDrawing.SendCommand "" &amp; Line4Point(i) &amp; "," &amp; Line4Point(i + 1) &amp; vbCr<BR>                       Next


如何得到我画出的这条线呢与其他实体求交点呢

雪山飞狐_lzh 发表于 2005-3-24 17:46:00

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

http://www.vba.cn/object/acad2004/idh_addlightweightpolyline.htm

wt_liub 发表于 2005-3-24 21:14:00

<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">我也是没办法的办法，请问，我想用<FONT face="Times New Roman">intPoints </FONT>数组画多义线，但只要前面一部分的，该如何去掉后面不要的部分呢？
页: [1]
查看完整版本: 高手请进，怎样得到这个实体呢