乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 66|回复: 3

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

[复制链接]

10

主题

131

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
171
发表于 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
回复

使用道具 举报

34

主题

372

帖子

7

银币

中流砥柱

Rank: 25

铜币
508
发表于 2004-11-17 20:21:00 | 显示全部楼层
你说的“内回路必须要先创建实体,才能添加进去吗?”
要先创建什么实体?
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2004-11-17 21:39:00 | 显示全部楼层
不知道你选择集中的每个对象是否单独构成封闭边界。
按照你的程序,你给每个对象单独使用了一次AppendInnerLoop,如果该对象不是封闭的话,则无法生成边界。
另外,在使用AppendInnerLoop或AppendouterLoop方法后,必须使用Evaluate方法来更新图案填充,不然也没有效果。
回复

使用道具 举报

10

主题

131

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

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

ftp3ip0korf.jpg

ftp3ip0korf.jpg
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 15:05 , Processed in 0.407127 second(s), 63 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表