求助。

rb

请问：在中下面为什么会有问题：
    sset = ac.SelectionSets.Add("SS1")

    gpCode:= VarArrayCreate([0, 1], varvariant);
    dataValue:=VarArrayCreate([0, 1], varvariant);
    //'直线过滤器
    gpCode[0] = 0 ;
    dataValue[0] = 'LINE' ;

    //'图层过滤器
    gpCode[1] := 8  ;
    dataValue[1]:= '7' ;

    FilterType := gpCode ;
    FilterData := dataValue ;
   
    //' 添加至选择集中，在选择过程中进行过滤
    //' 完成选择后按回车。
    sset.SelectOnScreen(FilterType, FilterData);
   
    //' 在选择集中循环并将每一已合条件的对象颜色更改为蓝色。

   。。。。。。。。

mccad