请问一下有关块的分解后填充(附图和程序)
<p>我插入了一个块之后对其进行分解，然后遍历再填充，但是画出来的结果，却有两个块，其中一个块有填充，而另一个却没有，给一段小程序，麻烦大家帮我看看。另外给一下图，请大家帮忙分析一下问题出在哪里。</p><p>Dim loop1(0 To 11) As AcadEntity, tian As AcadHatch<br/>Set tian = adoc.ModelSpace.AddHatch(0, "ANSI31", True)<br/>.........................................</p><p>Set kuang1 = adoc.ModelSpace.AddLightWeightPolyline(ptl1)<br/>point2(0) = ptl1(6): point2(1) = ptl1(7) - 75<br/>Set blockrefobj = adoc.ModelSpace.InsertBlock(point2, "槽钢200", 1, 1, 1, 1.5708)'旋转了90度</p><p>Dim fenjie As Variant<br/>fenjie = blockrefobj.Explode<br/>For i = 0 To UBound(fenjie)<br/>Set loop1(i) = fenjie(i)<br/>Next i<br/></p><p>tian.AppendOuterLoop (loop1)<br/>tian.Evaluate<br/>tian.Update</p><p>希望高手解答原因，或给出修正程序的思路，谢谢！</p> 本帖最后由 作者 于 2008-4-23 16:30:33 编辑 <br /><br /> <p>下面的槽钢和填充是镜像后的内容。</p><p> </p><img src="http://hiphotos.baidu.com/bibihaoyouxiu/pic/item/54c720a4d8a985e59152ee4e.jpg" border="0" alt=""/>
页:
[1]