he993 发表于 2005-12-16 17:20:00

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

<P>我写了段让选中实体颜色变为绿色的程序。</P>
<P>但该程序未如我愿，我想能不能一选中实体，被点上的实体立刻就变成绿色，而不用回车确定后才变成绿色。怎样才能这样呢？恳请高手赐教。万分感激！</P>
<P>程序如下：</P>
<P>Public Sub hhh()<BR>Dim selset As AcadSelectionSet<BR>Dim entry As AcadEntity<BR>Set selset = ThisDrawing.SelectionSets.Add("138")<BR>selset.SelectOnScreen</P>
<P>For Each entry In selset<BR>entry.Color = 70<BR>entry.Update</P>
<P>Next entry<BR>selset.Delete</P>
<P><BR>&nbsp;&nbsp;&nbsp; ThisDrawing.Application.ZoomAll<BR>End Sub<BR></P>

sollom 发表于 2005-12-16 22:20:00

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

雪山飞狐_lzh 发表于 2005-12-18 19:56:00

用While循环和GetEntity实现，错误时退出
页: [1]
查看完整版本: 选择与操作新问题，哪位高手能指点一下？