选择与操作新问题，哪位高手能指点一下？

he993

我写了段让选中实体颜色变为绿色的程序。

但该程序未如我愿，我想能不能一选中实体，被点上的实体立刻就变成绿色，而不用回车确定后才变成绿色。怎样才能这样呢？恳请高手赐教。万分感激！

程序如下：

Public Sub hhh()
Dim selset As AcadSelectionSet
Dim entry As AcadEntity
Set selset = ThisDrawing.SelectionSets.Add("138")
selset.SelectOnScreen

For Each entry In selset
entry.Color = 70
entry.Update

Next entry
selset.Delete

    ThisDrawing.Application.ZoomAll
End Sub

sollom

回车只是用来结束SelectOnScreen吧，按鼠标右键也能结束啊。

雪山飞狐_lzh

用While循环和GetEntity实现，错误时退出