社区 › VB › 帮我看看代码，怎么不能选择？

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

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

On Error Resume Next
               Dim sstext As AcadSelectionSet
               Dim FilterType(0 To 5) As Integer
               Dim FilterData(0 To 5) As Variant
               Set sstext = ThisDrawing.SelectionSets.Add("SSS1")
               If Err Then
               Err.Clear
               Set sstext = ThisDrawing.SelectionSets.Item("SSS1")
                       End If
               
               FilterType(0) = 0: FilterData(0) = "or"
               sstext.SelectOnScreen FilterType, FilterData不能选择线了，看看什么问题？先谢了

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

Dim FilterType(0 To 3) As Integer
Dim FilterData(0 To 3) As Variant

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

Dim FilterType(0) As Integer
               Dim FilterData(0) As Variant
               FilterType(0) = 0: FilterData(0) = Line,Circle"

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

谢谢lzh741206斑竹

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

FilterData(0) = Line,Circle"
为什么可以这样？不能FilterData(0 to 1)吗？

查看完整版本: 帮我看看代码，怎么不能选择？