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

陈琦 · 发表于 2007-3-23 07:03:00

请教！
各位高手小弟请教２个程序！一个是有关改变直线颜色的程序！（上传的那个）现程序运行不报错，但直线颜色不改变．只是将所有直线的颜色属性由随层颜色，改为随块颜色．我用的是２００４版本！请教高手该问题出现的原因．
第二个问题是关于选择对象的问题：
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
程序中红色部分报错！程序运行到信息框出现就停止，而没有在命令行中出现要求选择对象的提示，请高手指点！
谢谢大家！