乐筑天下

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

有关选择集

[复制链接]

25

主题

134

帖子

6

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
234
发表于 2004-10-13 14:10:00 | 显示全部楼层 |阅读模式
我想选取固定层上的对象,可是老是提示说select 作用于对象IAcadSelectionSet时失败,为什么?哪为大侠帮帮忙,先谢了.
Sub selection()
                                Dim a As AcadSelectionSet
                         For i = 0 To ThisDrawing.SelectionSets.Count - 1
                                                         If (ThisDrawing.SelectionSets.Item(i).name = "给水") Then
                                                                                                                         ThisDrawing.SelectionSets.Item(i).Delete
                                                                                                                         Exit For
                                                         End If
                         Next i
                         
                         Set a = ThisDrawing.SelectionSets.Add("给水")
                         a.Select acSelectionSetAll, , , 8, "给水"
End Sub
回复

使用道具 举报

34

主题

372

帖子

7

银币

中流砥柱

Rank: 25

铜币
508
发表于 2004-10-13 14:18:00 | 显示全部楼层
在本论坛搜索“安全创建选择集”,已多次讨论过。
回复

使用道具 举报

25

主题

134

帖子

6

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
234
发表于 2004-10-13 14:22:00 | 显示全部楼层
多谢版主
回复

使用道具 举报

13

主题

396

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
448
发表于 2004-10-13 14:22:00 | 显示全部楼层
Sub selection()
                         Dim a As AcadSelectionSet
                         Dim FilterType(0) As Integer
                         Dim FilterData(0) As Variant
                         
                         FilterType(0) = 8
                         FilterData(0) = "给水"
                         
                         Set a = ThisDrawing.SelectionSets.Add("给水")
                         
                         a.Select acSelectionSetAll, , , FilterType, FilterData
                         a.Delete
End Sub
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-16 05:27 , Processed in 4.062323 second(s), 61 queries .

© 2020-2025 乐筑天下

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