[菜鸟问题]：我怎样才能将某一层包含的图元加入到指定的选择集？

h_lon

subtlation

2. 
   
3. Dim fType, fData As Variant
   
4. BuildFilter fType, fData, 8, "layer1"
   
5. SSetObj.Select fType, fData
   
6. Public Sub BuildFilter(typeArray, dataArray, ParamArray gCodes())
   
7.     Dim fType() As Integer, fData()
   
8.     Dim index As Long, i As Long
   
9.    
   
10.     index = LBound(gCodes) - 1
    
11.         
    
12.     For i = LBound(gCodes) To UBound(gCodes) Step 2
    
13.         index = index + 1
    
14.         ReDim Preserve fType(0 To index)
    
15.         ReDim Preserve fData(0 To index)
    
16.         fType(index) = CInt(gCodes(i))
    
17.         fData(index) = gCodes(i + 1)
    
18.     Next
    
19.     typeArray = fType: dataArray = fData
    
20. End Sub
    

<br /> Dim fType, fData As Variant<br /> BuildFilter fType, fData, 8, "layer1"<br /> SSetObj.Select fType, fData<br /> Public Sub BuildFilter(typeArray, dataArray, ParamArray gCodes())<br />     Dim fType() As Integer, fData()<br />     Dim index As Long, i As Long<br />     <br />     index = LBound(gCodes) - 1<br />         <br />     For i = LBound(gCodes) To UBound(gCodes) Step 2<br />         index = index + 1<br />         ReDim Preserve fType(0 To index)<br />         ReDim Preserve fData(0 To index)<br />         fType(index) = CInt(gCodes(i))<br />         fData(index) = gCodes(i + 1)<br />     Next<br />     typeArray = fType: dataArray = fData<br /> End Sub<br />