[VBA程序]：怎样利用VB实现对一类特定对象的选择？

susanxiaoshan

我希望利用以下VBA程序将特定图层加到选择集中去：
sub example()
  dim ssetObject as AcadSelectionset
  set ssetObj = this drawing.selectionsets.add(Test1)
  ssetObj.SelectOnScreen 8,"图层1"
end sub

但运行时显示“add作用于对象IAad Selectionsets时失败”
错误在哪儿呢？
*-*5

qinchao_qc

Test  好像要加上引号吧？

雪山飞狐(lzh)

2楼说的没错,另外
ssetObj.SelectOnScreen 8,"图层1"
过滤器是数组,而不是值,看看帮助先

ps122

sub example()
dim ssetObject as AcadSelectionset
set ssetObj = this drawing.selectionsets.add("Test1")
    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    gpCode(0) = 8    dataValue(0) = "图层1"
ssetObj.SelectOnScreen  groupCode, dataCode
end sub

susanxiaoshan

但我照上面修改以后，运行后提示“selectonscreen 方法作用于IAcadselectsets对象时失败！

雪山飞狐(lzh)

ssetObj.SelectOnScreen gpCode, dataCode

ps122

我粗心了，呵呵