怎样判断一个实体是不是在选择集里？

evaporated · 发表于 2005-5-13 08:52:00

可能要穷举。
不知道是不是个好办法。
例如
dim a as acadEntity
dim s as acadSelectionset
set s="..."
For each Item in s
if a=item then msgbox "找到该实体"
Next
请大虾指教：能够直接实体间用 a=item 么？

cbse_smy · 发表于 2005-5-13 09:13:00

除非象在Ｃ中先将"="重载，否则不能用=

雪山飞狐_lzh · 发表于 2005-5-13 10:05:00

Sub tt()
Dim ss As AcadSelectionSet
ThisDrawing.SelectionSets("Test").Delete
Set ss = ThisDrawing.SelectionSets.Add("Test")
ss.Select acSelectionSetAll
Dim a As AcadEntity, i As AcadEntity
Set a = ThisDrawing.ModelSpace(0)
For Each i In ss
If i Is a Then
MsgBox "OK"
Exit For
End If
Next i
End Sub