这个程序怎么了？

zzz8662

Sub Ch4_AddToASelectionSet()
' 创建新的选择集
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("SS1")

' 提示用户选择对象并将它们添加到选择集中。
' 要完成选择，按回车。
sset.SelectOnScreen

' 在选择集中循环并将每一对象的颜色改为蓝色。
Dim entry As AcadEntity
For Each entry In sset
entry.Color = acBlue
entry.Update
Next entry
End Sub
-------------------------------------------------------------------------------------------------------------------
调试时总出现错误   实时错误‘--2147467259（80004005）’：方法‘Add作用于对象IAcadselectonsets’时失败。请教各位，谢谢！

topirol

2. Sub Ch4_AddToASelectionSet()
   
3. ' 创建新的选择集
   
4. Dim sset As AcadSelectionSet
   
5. On Error Resume Next
   
6. Set sset = ThisDrawing.SelectionSets("SS1")
   
7. If Err Then
   
8. Err.Clear
   
9. Set sset = ThisDrawing.SelectionSets.Add("SS1")
   
10. End If
    
11. sset.clear
    
12. ' 提示用户选择对象并将它们添加到选择集中。
    
13. ' 要完成选择，按回车。
    
14. sset.SelectOnScreen
    
15. 
    
16. ' 在选择集中循环并将每一对象的颜色改为蓝色。
    
17. Dim entry As AcadEntity
    
18. For Each entry In sset
    
19. entry.Color = acBlue
    
20. entry.Update
    
21. Next entry
    
22. End Sub
    
23. 
    
24. 
    
25. 
    

Sub Ch4_AddToASelectionSet()<br /> ' 创建新的选择集<br /> Dim sset As AcadSelectionSet<br /> On Error Resume Next<br /> Set sset = ThisDrawing.SelectionSets("SS1")<br /> If Err Then<br /> Err.Clear<br /> Set sset = ThisDrawing.SelectionSets.Add("SS1")<br /> End If<br /> sset.clear<br /> ' 提示用户选择对象并将它们添加到选择集中。<br /> ' 要完成选择，按回车。<br /> sset.SelectOnScreen<br /> <br /> ' 在选择集中循环并将每一对象的颜色改为蓝色。<br /> Dim entry As AcadEntity<br /> For Each entry In sset<br /> entry.Color = acBlue<br /> entry.Update<br /> Next entry<br /> End Sub<br /> <br /> <br /> <br />

zzz8662

谢谢楼上，为什么这样改？

topirol

因为你第一次运行Set sset = ThisDrawing.SelectionSets.Add("SS1")的时候，名为SS1的选择集就已经存在了，第二次运行Set sset = ThisDrawing.SelectionSets.Add("SS1"),由于SS1已经存在，所以不能再创建一个相同名字的选择集

zzz8662

thanks!

my_computer

高手太多，一点发言的机会都没有。