wholin 发表于 2006-8-22 10:09:00

关于sendcommand的一个小问题？

<P>&nbsp;Dim Objtwo As AcadLWPolyline<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp; For Each Objtwo In ThisDrawing.ModelSpace<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If TypeOf Objtwo Is AcadLWPolyline Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim intPoints As Variant<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; intPoints = objPoly.IntersectWith(Objtwo, acExtendNone)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Objtwo.Closed = True<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Objtwo.Color = acGreen<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp; Next Objtwo</P>
<P>就是找出所有的objtwo，然后填充它们，我用的是</P>
<P>&nbsp;&nbsp; ThisDrawing.sendcommand "_hatch" &amp; vbCr &amp; s &amp; <FONT color=#f70909>objtwo </FONT>&amp; vbCr</P>
<P>&nbsp;&nbsp; 这样的直接指定填充的对象时出错，不指定的话那用户非得一个个的去手动选，现在要实现自动找，然后全部填充该如何实现??</P>

wyj7485 发表于 2006-8-23 08:11:00

<P>最好不要用sendcommand,要用的话,用handent(handle)</P>
<P><A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=50788" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=50788</A></P>
页: [1]
查看完整版本: 关于sendcommand的一个小问题？