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

caoyalu

有没有类似于 IsInclude(选择集，实体)这样的函数？
如果要自己做子程序的话，我又遇到一个问题：怎样判断两个实体相同？好像不支持
OBJ1=OBJ2这样的判断。
谢谢！

zzyong00

OBJ1 is OBJ2判断

wangshuping42

可以这样，尝试从选择集中移除某个文件，再看是否出错，假如出错，说明它不在选择集中，反之则在。
选择集RemoveObjects 方法，参数是一个AcadEntity数组，下标从0开始。

wwswwswws

每个OBJ都有唯一Handle，你要事先取得这个OBJ的Handle，就可以在选择集中比较了;

cxjzxh

ads_ssmember

caoyalu

OBJ1 is OBJ2
=============================
谢谢

月牙湾

caoyalu 发表于 2014-12-22 10:10
OBJ1 is OBJ2
=============================
谢谢

用is吗？？确定？？

万里天

可以尝试从选择集中移除那个实体，看是否出错，假如出错，说明它不在选择集中，反之则在。
选择集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