牛人帮帮忙啊，急用

startpoint

[img]file:///C:\Documents and Settings\Administrator\Application Data\Tencent\Users\1714297767\QQ\WinTemp\RichOle\`%VZO}65V6M5}KG[N7L5G`C.jpg[/img][img]file:///C:\Documents and Settings\Administrator\Application Data\Tencent\Users\1714297767\QQ\WinTemp\RichOle\`%VZO}65V6M5}KG[N7L5G`C.jpg[/img]在modelspace中重复插入一块对象，我想用选择集对每一对象先选择再操作，但是为什么每次两个块对象同时被选中呢？？？？？？怎么回事，求解释

startpoint

[img]file:///C:\Documents and Settings\Administrator\Application Data\Tencent\Users\1714297767\QQ\WinTemp\RichOle\`%VZO}65V6M5}KG[N7L5G`C.jpg[/img]建立选择集代码是

'安全创建选择集
On Error Resume Next
Dim sset As AcadSelectionSet
If Not IsNull(ThisDrawing.SelectionSets.Item("example")) Then
Set sset = ThisDrawing.SelectionSets.Item("example")
sset.Delete
End If
Set sset = ThisDrawing.SelectionSets.Add("example")

sset.SelectOnScreen



为什么每次选中的都是所有的重复图元呢，我想得到某一个图元，而不是所有！求指点，求高手指点