一段代码，请各位高手帮忙看看，错误提示缺少对象

天龙八部

代码如下：

Sub ppcolor()

'color select dialog

Dim ppentity As AcadEntity
 
Dim ppset As AcadSelectionSet

Set ppset = ThisDrawing.SelectionSets.Add("mmmm")

ppset.SelectOnScreen

ppset.Delete

Set ppset = Nothing

Dim xxx1 As Integer

xxx1 = ThisDrawing.Utility.GetInteger("输入需要改变实体颜色的序号:")

Dim gggppp As Double

If xxx1 = 1 Then

gggppp = acRed

ElseIf xxx1 = 2 Then

gggppp = acBlue

Else
gggppp = acCyan
End If

For Each ppentity In ppset

ppentity.color = gggppp

Next ppentity

End Sub

天龙八部

问题自己已解决，把ppset.Delete选择集放到前面去了，一del,后面就完玩了，调试了很多，不过可能对大家有帮助，这样

大家就不会犯我的同样的错误了，