程序:改变颜色和选择对象

陈琦

请教！

各位高手小弟请教２个程序！一个是有关改变直线颜色的程序！（上传的那个）现程序运行不报错，但直线颜色不改变．只是将所有直线的颜色属性由随层颜色，改为随块颜色．我用的是２００４版本！请教高手该问题出现的原因．

第二个问题是关于选择对象的问题：

Sub Getusersselection()
Dim usersselection As AcadSelectionSet
Dim drawingseleced As AcadEntity
With ThisDrawing
On Error Resume Next
.SelectionSets("currentselection").Delete
MsgBox "select object hit enter to finish!"
Set usersselection = ?
.SelectionSets.Add ("currentselection")
usersselection.SelectOnScreen
For Each drawingselected In usersselection
drawingselected.color = acGreen
Next
End With
End Sub

程序中红色部分报错！程序运行到信息框出现就停止，而没有在命令行中出现要求选择对象的提示，请高手指点！

谢谢大家！

陈琦