errBoy 发表于 2005-11-8 09:40:00

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

<P><FONT face=宋体>Global Const GROUPCODE_4 As Integer = -4&nbsp;&nbsp;<BR>Global Const GROUPCODE0 As Integer = 0<BR>Global Const GROUPCODE10 As Integer = 10<BR>Dim dPth1(0 To 2) As Double&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'POLYLINE起点座标配列<BR>Dim dPth2(0 To 2) As Double&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'POLYLINE尾点座标配列&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></P>
<P><FONT face=宋体>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ReDim iFilterType(0 To 4) As Integer<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ReDim vFilterData(0 To 4) As Variant<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; iFilterType(0) = GROUPCODE_4<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; vFilterData(0) = "&lt;OR"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; iFilterType(1) = GROUPCODE10<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; vFilterData(1) = dPth1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; iFilterType(2) = GROUPCODE10<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; vFilterData(2) = <FONT face=宋体>dPth2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT>iFilterType(3) = GROUPCODE_4<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; vFilterData(3) = "OR&gt;"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; iFilterType(4) = GROUPCODE0<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; vFilterData(4) = "LWPOLYLINE"</FONT></P>
<P><FONT face=SimSun>&nbsp;&nbsp;&nbsp; Set oSelSetTemp = ThisDrawing.SelectionSets.Add("New" &amp; CStr(time))<BR>&nbsp;&nbsp;&nbsp; oSelSetTemp.Select acSelectionSetAll, , , iFilterType, vFilterData</FONT></P>
<P><FONT face=SimSun>假设dPth1,dPth2都已有值请问以上VBA代码要转换成ARX, 应该如何实现呀还请高手指点!</FONT></P>
页: [1]
查看完整版本: 一个关于选择集的问题, 还请高手多多指导