[编程申请]：请帮该程序转换为VB或VB。NET程序

yunzhong80

'以下代码指定三个条件：对象必须是蓝色的，必须是 Circle，必须在图层 0 上。代码还将 FilterType 和 FilterData 声明为三个元素的数组，并将每个条件指定给一个元素：
Sub Ch4_FilterBlueCircleOnLayer0()
   Dim sstext As AcadSelectionSet
   Dim FilterType(2) As Integer    '这里怎么转化
   Dim FilterData(2) As Variant   ' 这里怎么转化
   Set sstext = ThisDrawing.SelectionSets.Add("SS4")
   
   FilterType(0) = 0
   FilterData(0) = "Circle"

   FilterType(1) = 62
   FilterData(1) = acBlue

   FilterType(2) = 8
   FilterData(2) = "0"
   
   sstext.SelectOnScreen FilterType, FilterData  

End Sub

'我转换后报错（其他信息: 参数 FilterType (位于 Select 中) 无效）

小美菜

FilterData(0) ="CIRCLE"
颜色不可靠（如果随层或随块），需要自己修改

yunzhong80

这不是主要问题，上边是CAD帮助的样例代码，我想把他转换成VB.net代码

雪山飞狐(lzh)

Dim FilterType(2) As Short
Dim FilterData(2) As Object

yunzhong80

还是不行，报错为：其他信息: 参数 FilterType (位于 Select 中) 无效

zhqchn

放到VB6中没有问题，不用修改