社区 › VB › 求助关于选择集的问题。

zhumb 发表于 2005-4-7 21:20:00

求助关于选择集的问题。

以下程序错在哪里？
'选择该层所有对象
Public Sub s()
Dim sset As AcadSelectionSet
On Error Resume Next
Set sset = ThisDrawing.SelectionSets.Item("SS1")
sset.Delete
Set sset = ThisDrawing.SelectionSets.Add("SS1")
FilterType = 8
FilterData = "0"
sset.SelectOnScreen FilterType, FilterData
End Sub

mccad 发表于 2005-4-7 21:34:00

过滤器有误，注意过滤器的两个参数是数组，而不是单纯的数据

alin 发表于 2005-4-7 21:46:00

Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
FilterType(0) = 8
FilterData(0) = "0"
sset.SelectOnScreen FilterType, FilterData

查看完整版本: 求助关于选择集的问题。