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

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已经存在，所以不能再创建一个相同名字的选择集

zzz8662 发表于 2003-12-29 19:48:00

thanks!

my_computer 发表于 2004-1-3 16:49:00

高手太多，一点发言的机会都没有。
页: [1]
查看完整版本: 这个程序怎么了？