这个程序怎么了？

zzz8662 · 发表于 2003-12-29 11:17:00

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 · 发表于 2003-12-29 11:21:00

copy


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

zzz8662 · 发表于 2003-12-29 11:48:00

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

topirol · 发表于 2003-12-29 12:15:00

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