StartMe 发表于 2007-1-30 00:08:00

如何复制选择集?

<p>我用的是set 语句把s2传递给了s1，但是s2中的33个元素却只有前10个被传递给了s1，</p><p>请问这是怎么回事？怎样才是正确的复制方法？谢谢。</p>

wyj7485 发表于 2007-1-30 08:55:00

我测试没错啊
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 发表于 2007-1-30 23:13:00

本帖最后由 作者 于 2007-1-31 22:42:26 编辑 <br /><br /> <p>是啊，我也奇怪，怎么一到Set语句后，元素个数立刻变成10个了，怎么也找不到原因。</p><p>谢谢明总和wyj7485版主的帮助，问题已经解决了，是我中间过程处理有误，出现重合元素。</p>

mccad 发表于 2007-1-31 08:56:00

你的代码呢，不要光说，只让大家猜。
页: [1]
查看完整版本: 如何复制选择集?