乐筑天下

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

怎样知道选择集中是否包含某一实体

[复制链接]

21

主题

45

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
129
发表于 2014-12-11 11:01:00 | 显示全部楼层 |阅读模式
有没有类似于 IsInclude(选择集,实体)这样的函数?
如果要自己做子程序的话,我又遇到一个问题:怎样判断两个实体相同?好像不支持
OBJ1=OBJ2这样的判断。
谢谢!
回复

使用道具 举报

23

主题

561

帖子

13

银币

中流砥柱

Rank: 25

铜币
653
发表于 2014-12-11 18:19:00 | 显示全部楼层
OBJ1 is OBJ2判断
回复

使用道具 举报

8

主题

72

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
104
发表于 2014-12-11 23:17:00 | 显示全部楼层
可以这样,尝试从选择集中移除某个文件,再看是否出错,假如出错,说明它不在选择集中,反之则在。
选择集RemoveObjects 方法,参数是一个AcadEntity数组,下标从0开始。
回复

使用道具 举报

3

主题

58

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
70
发表于 2014-12-12 09:41:00 | 显示全部楼层
每个OBJ都有唯一Handle,你要事先取得这个OBJ的Handle,就可以在选择集中比较了;
回复

使用道具 举报

4

主题

34

帖子

8

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
50
发表于 2014-12-12 20:10:00 | 显示全部楼层
ads_ssmember
回复

使用道具 举报

21

主题

45

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
129
发表于 2014-12-22 10:10:00 | 显示全部楼层
OBJ1 is OBJ2
=============================
谢谢
回复

使用道具 举报

8

主题

24

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
56
发表于 2014-12-22 11:38:00 | 显示全部楼层

用is吗??确定??
回复

使用道具 举报

0

主题

13

帖子

2

银币

初来乍到

Rank: 1

铜币
13
发表于 2016-3-7 16:21:00 | 显示全部楼层
可以尝试从选择集中移除那个实体,看是否出错,假如出错,说明它不在选择集中,反之则在。
选择集RemoveObjects 方法,参数是一个AcadEntity数组,下标从0开始。
'从选择集删除某个实体
Public Sub DelEntFromSSet(ByVal ENT As AcadEntity, ByVal SSet As AcadSelectionSet)
    Dim objCollection(0) As AcadEntity
    Set objCollection(0) = ENT
    SSet.RemoveItems objCollection
End Sub
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-4-20 01:05 , Processed in 1.677300 second(s), 69 queries .

© 2020-2025 乐筑天下

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