[VBA]请问:选择集过滤器为何不可用

zhu1

Dim SsetObj As AcadSelectionSet
Dim filterType(0) As Integer, FilterDate As Variant
filterType(0) = 0
FilterDate = "Line"
ThisDrawing.SelectionSets("AA").Delete
Set SsetObj = ThisDrawing.SelectionSets.Add("AA")
			 SsetObj. filterType, FilterDate

显示的错误为filterType, FilterDate参数在SelectOnScreen不可用

请问有什么方法可以解决?

如果用句柄遍历所有对象怎么样去做,请明示.谢谢

雪山飞狐_lzh

1、FilterDate = "Line"
? dim FilterDate(0) As Variant FilterDate(0) = "Line"
2、HandleToObject方法

zhu1

不行啊


错误为:找不到主健

雪山飞狐_lzh

前面加上on error resume next

wyj7485

Sub SSet()
On Error Resume Next
Dim SsetObj As AcadSelectionSet
Dim filterType(0) As Integer, FilterDate(0) As Variant
filterType(0) = 0
FilterDate(0) = "Line"
ThisDrawing.SelectionSets("AA").Delete
Set SsetObj = ThisDrawing.SelectionSets.Add("AA")
SsetObj.SelectOnScreen filterType, FilterDate End Sub

zhu1

谢谢各位的帮助


我的问题已经得到解决


我会努力学的更好