一个关于选择集的问题, 还请高手多多指导

errBoy

Global Const GROUPCODE_4 As Integer = -4  
Global Const GROUPCODE0 As Integer = 0
Global Const GROUPCODE10 As Integer = 10
Dim dPth1(0 To 2) As Double            'POLYLINE起点座标配列
Dim dPth2(0 To 2) As Double            'POLYLINE尾点座标配列                  

      ReDim iFilterType(0 To 4) As Integer
      ReDim vFilterData(0 To 4) As Variant
     
      iFilterType(0) = GROUPCODE_4
      vFilterData(0) = "<OR"
     
      iFilterType(1) = GROUPCODE10
      vFilterData(1) = dPth1
     
      iFilterType(2) = GROUPCODE10
      vFilterData(2) = dPth2
     
      iFilterType(3) = GROUPCODE_4
      vFilterData(3) = "OR>"
     
      iFilterType(4) = GROUPCODE0
      vFilterData(4) = "LWPOLYLINE"

    Set oSelSetTemp = ThisDrawing.SelectionSets.Add("New" & CStr(time))
    oSelSetTemp.Select acSelectionSetAll, , , iFilterType, vFilterData

假设dPth1,dPth2都已有值请问以上VBA代码要转换成ARX, 应该如何实现呀还请高手指点!