[VBA]有关图案填充的问题

zhang007

以下是我用选择集添加图案填充的内回路遇到的问题,我想用一个选择集中的实体作为内回路,选择集没问题,我测试了一下,不过内回路总是无法添加进去,我想问一下,内回路必须要先创建实体,才能添加进去吗? sset1.SelectByPolygon 2, poitlist2
If sset1.Count <> 0 Then
'MsgBox "no emty", vbCritical
For Each entry In sset1
entry1(0) = entry
hatchObj.AppendInnerLoop (entry1)
Next entry end if

zfbj

你说的“内回路必须要先创建实体,才能添加进去吗?”


要先创建什么实体？

mccad

不知道你选择集中的每个对象是否单独构成封闭边界。
按照你的程序，你给每个对象单独使用了一次AppendInnerLoop，如果该对象不是封闭的话，则无法生成边界。
另外，在使用AppendInnerLoop或AppendouterLoop方法后，必须使用Evaluate方法来更新图案填充，不然也没有效果。

zhang007

原来是这样，我试试看。由于构成图案填充内回路的图元是在另一个子程序中生成，包括闭合的轻多段线、单行文字，无法确定数目，所以必须用选择集。我每次测试时只能生成由外回路生成的图案，而不扣除内部边界。图中红色的图案是我要达到的效果。我再试试看，谢谢老大和版主。