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

zhang007 · 发表于 2004-11-17 10:45:00

以下是我用选择集添加图案填充的内回路遇到的问题,我想用一个选择集中的实体作为内回路,选择集没问题,我测试了一下,不过内回路总是无法添加进去,我想问一下,内回路必须要先创建实体,才能添加进去吗?
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 · 发表于 2004-11-17 20:21:00

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

mccad · 发表于 2004-11-17 21:39:00

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

zhang007 · 发表于 2004-11-18 09:39:00

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

ftp3ip0korf.jpg

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

发表回复

精选推荐

浏览过的版块