关于选择集问题请教

gogogo168

dim selset as acadselectionset


set selset=thisdrawing.selectionsets.add("集合0")


selset.selectonscreen         8,"0"                         


我想选中0层的所有对象到选择集,但是出现"filtertype无效 "的提示???请问是什么问题啊???如何选择0层所有对象到选择集啊?????急啊

雪山飞狐_lzh

看看帮助里的例子

Dim gpCode(0) As Integer
Dim dataValue(0) As Variant
gpCode(0) = 0
dataValue(0) = "Circle"

Dim groupCode As Variant, dataCode As Variant
groupCode = gpCode
dataCode = dataValue

ssetObj.Select mode, corner1, corner2, groupCode, dataCode