如何复制选择集?

StartMe

我用的是set 语句把s2传递给了s1，但是s2中的33个元素却只有前10个被传递给了s1，

请问这是怎么回事？怎样才是正确的复制方法？谢谢。

wyj7485

我测试没错啊

2. Sub text()
3. On Error Resume Next
4. Dim s1, s2 As AcadSelectionSet
5. ThisDrawing.SelectionSets("s1").Delete
6. Set s1 = ThisDrawing.SelectionSets.Add("s1")
7. s1.SelectOnScreen
8. MsgBox s1.Count
9. Set s2 = s1
10. MsgBox s2.Count
11. End Sub

Sub text() On Error Resume Next Dim s1, s2 As AcadSelectionSet ThisDrawing.SelectionSets("s1").Delete Set s1 = ThisDrawing.SelectionSets.Add("s1") s1.SelectOnScreen MsgBox s1.Count Set s2 = s1 MsgBox s2.Count End Sub

StartMe

是啊，我也奇怪，怎么一到Set语句后，元素个数立刻变成10个了，怎么也找不到原因。

谢谢明总和wyj7485版主的帮助，问题已经解决了，是我中间过程处理有误，出现重合元素。

mccad

你的代码呢，不要光说，只让大家猜。