tjdxtm 发表于 2004-11-3 14:13:00

帮我看看代码，怎么不能选择？

On Error Resume Next<BR>               Dim sstext As AcadSelectionSet<BR>               Dim FilterType(0 To 5) As Integer<BR>               Dim FilterData(0 To 5) As Variant


               Set sstext = ThisDrawing.SelectionSets.Add("SSS1")<BR>               If Err Then<BR>               Err.Clear<BR>               Set sstext = ThisDrawing.SelectionSets.Item("SSS1")<BR>                       End If<BR>               <BR>               FilterType(0) = 0: FilterData(0) = "&lt;or"<BR>               FilterType(1) = 0: FilterData(1) = "LINE"<BR>               FilterType(2) = 0: FilterData(2) = "Circle"<BR>               FilterType(3) = 0: FilterData(3) = "&gt;or"<BR>               sstext.SelectOnScreen FilterType, FilterData



不能选择线了，看看什么问题？先谢了

wyj7485 发表于 2004-11-3 14:19:00

Dim FilterType(0 To 3) As Integer<BR>Dim FilterData(0 To 3) As Variant

雪山飞狐_lzh 发表于 2004-11-3 16:27:00

Dim FilterType(0) As Integer<BR>               Dim FilterData(0) As Variant


               FilterType(0) = 0: FilterData(0) = Line,Circle"<BR>

tjdxtm 发表于 2004-11-4 08:20:00

谢谢<A name=64633><FONT color=#990000><B>lzh741206</B></FONT></A>斑竹

laoliu09 发表于 2004-11-5 17:05:00

FilterData(0) = Line,Circle"<BR>为什么可以这样？不能FilterData(0 to 1)吗？
页: [1]
查看完整版本: 帮我看看代码，怎么不能选择？