- 积分
- 504
- 明经币
- 个
- 注册时间
- 2003-9-26
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
在用扩展属性值为过滤条件来选择图元的时候,发现LWPLINE可以被选中,可是POINT及BlockReference却怎么也选不上?
我用的扩展数据过滤组码是-3,组码值为0
具体代码如下:
Dim gpcode(2) as Integer
Dim datavalue(2) as Variant
Dim groupcode,datacode as Variant
gpcode(0) = -3 : datavalue(0) = 0
gpcode(1) = 1001 : datavalue(1) = "MBBSM"
gpcode(2) = 1001 : datavalue(2) = "123456"
groupcode = gpcode
datacode = datavalue
Myss.Select acSelectionSetAll,,,groupcode,datacode
(Myss 已经是定义好的AcadSelectionSet,并且AcadSelectionSets中也无此此选择集)
这样的代码执行后,如果含有上述扩展数据(这个值是整个图里唯一的)的图元是一条LWPLINE那么就可以选择到,这时Myss.Count 就等于1。如果含有上述扩展数据(这个值是整个图里唯一的)的图元是一个Point或Blockreference或Text的话,这时Myss.Count就等于0,什么都没选择上?请指教!(是不是和我用的扩展数据过滤组码值为0有关系啊)
再次谢过!! |
|