如何复制选择集?

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

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

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

是啊，我也奇怪，怎么一到Set语句后，元素个数立刻变成10个了，怎么也找不到原因。
谢谢明总和wyj7485版主的帮助，问题已经解决了，是我中间过程处理有误，出现重合元素。

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

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

如何复制选择集?

发表回复

精选推荐