如何向集合里面加东西亚？？？

myfreemind

aaa是选择集的名称,第二次是因为aaa已经存在了,所以会出错!

ahlzl

这样写代码，第一种方法：

2. Sub a()
3. Dim n As Integer
4. n = ThisDrawing.SelectionSets.Count
5. While (n > 0)
6. If ThisDrawing.SelectionSets.Item(n - 1).Name = "aaa" Then
7. ThisDrawing.SelectionSets.Item(n - 1).Delete
8. n = n - 1
9. End If
10. Wend
11. Dim aa As AcadSelectionSet
12. Set longSelectionSet = ThisDrawing.SelectionSets.Add("aaa")
13. longSelectionSet.SelectOnScreen
14. End Sub

Sub a() Dim n As Integer n = ThisDrawing.SelectionSets.Count While (n > 0) If ThisDrawing.SelectionSets.Item(n - 1).Name = "aaa" Then ThisDrawing.SelectionSets.Item(n - 1).Delete n = n - 1 End If Wend Dim aa As AcadSelectionSet Set longSelectionSet = ThisDrawing.SelectionSets.Add("aaa") longSelectionSet.SelectOnScreen End Sub

第二种方法：

2. Sub a()
3. On Error Resume Next
4. Dim longSelectionSet As AcadSelectionSet
5. ThisDrawing.SelectionSets("aaa").Delete
6. If Error Then
7. Err.Clear
8. End If
9. Set longSelectionSet = ThisDrawing.SelectionSets.Add("aaa")
10. longSelectionSet.SelectOnScreen
11. End Sub

Sub a() On Error Resume Next Dim longSelectionSet As AcadSelectionSet ThisDrawing.SelectionSets("aaa").Delete If Error Then Err.Clear End If Set longSelectionSet = ThisDrawing.SelectionSets.Add("aaa") longSelectionSet.SelectOnScreen End Sub

bluemoon

明经函数里有创建空的选择集的函数 已经有出错处理 你可以看看