[求助]如何使用SelectOnScreen FilterType,FilterData?

cxw_8848 · 发表于 2004-10-9 20:10:00

这段代码为什么会这样的错误------“方法'SelectOnScreen'作用于对象
   ‘IAcadSelectionSet’时失败”
Sub try()
   Dim ssetObj As AcadSelectionSet
   Set ssetObj = ThisDrawing.SelectionSets.Add("Test")
   Dim FilterType As Integer
   Dim FilterData As String

   FilterType = 0
   FilterData = "line"
   ssetObj.SelectOnScreen FilterType, FilterData
   ssetObj.Delete
End Sub

bluelover · 发表于 2004-10-9 20:23:00

改成：
Sub try()
   Dim ssetObj As AcadSelectionSet
   Set ssetObj = ThisDrawing.SelectionSets.Add("Test")
   Dim FilterType(0) As Integer
   Dim FilterData(0)    As String

   FilterType(0) = 0
   FilterData (0) = "line"
   ssetObj.SelectOnScreen FilterType, FilterData
   ssetObj.Delete
End Sub
FilterType 和FilterData都应该是数组。

cxw_8848 · 发表于 2004-10-9 20:27:00

非常感谢！！

cxw_8848 · 发表于 2004-10-9 21:07:00

我刚才试了一下，这种方法行不通啊

ntchjie · 发表于 2004-10-9 21:37:00

VB代码，看看能否给你提示，估计问题出现在数据类型上
Set sset = AcadDoc.SelectionSets.Add("mys")
'创建选择集
Dim myss As Object
'Set myss = sset.Add("mys")
'定义过滤组码数据
Dim gpcode(0) As Integer
Dim datavalue(0) As Variant
gpcode(0) = 0
datavalue(0) = "text"
'注意组码以及组码值的数据类型的转化
Dim groupcode As Variant
Dim datacode As Variant
groupcode = gpcode
datacode = datavalue
'选择所有的文本
Call sset.SelectOnScreen(groupcode, datacode)

莫名 · 发表于 2004-10-9 21:38:00

下面这样就可以了！
Sub try()
   Dim ssetObj As AcadSelectionSet
   Set ssetObj = ThisDrawing.SelectionSets.Add("Tt")
   Dim FType(0)    As Integer
   Dim FData(0)    As Variant

   FType(0) = 0
   FData(0) = "line"
   ssetObj.SelectOnScreen FType, FData
   ssetObj.Delete
End Sub

[求助]如何使用SelectOnScreen FilterType,FilterData?

发表回复

精选推荐