[求助]：应用“SelectOnScreen“时怎样使用透明命令

hgqhq

请问在应用“SelectOnScreen“时怎样使用透明命令,
比如在使用“SelectOnScreen“选择物体时，如果用户按了Esc键，怎样才能使程序正常退出；如果用户按了“实时平移“ 或 “实时缩放“键，怎样才能使程序继续正常执行。

gjliang

用这个估计能解决你的问题，此函数来自http://www.mjtd.com
Function GetSelSet() As AcadSelectionSet
Dim ss As AcadSelectionSet
Dim ssName As String
ssName = "PICKFIRST"
On Error Resume Next
Set ss = ThisDrawing.SelectionSets.add(ssName)
If Err Then
Set ss = ThisDrawing.SelectionSets(ssName)
ss.Delete
End If
Set ss = ThisDrawing.PickfirstSelectionSet
If ss.Count = 0 Then
Set ss = ThisDrawing.SelectionSets(ssName)
If Err Then Set ss = ThisDrawing.SelectionSets.add(ssName)
ss.Clear
ss.SelectOnScreen
End If
Set GetSelSet = ss
End Function

hgqhq

当用户按了Esc键时可以用“ss.Count = 0“的方法，使程序退出，但当用户按下 “实时平移“ 或 “实时缩放“键时怎样捕获错误代码，使程序继续执行呢？

efan2000

If Err.Number = -2147352567 Then '运行命令
    Err.Clear
     Resume
ElseIf Err.Number = -2147467259 Then '右键单击
End If
用这个错误代码来判断吧。

liujiping

www.mjtd.com上有个GETXXX类� ... �，可以看看。
实时平移“ 或 “实时缩放“能解决。
（不过我还没调试成功）

hgqhq

如下例程：
当建立选择集的时候，如果鼠标点击“实时平移“或“实时缩放“工具条时，为什么不能执行错误处理程序呢？

h_lip

用AUTOCAD 2004

liujiping

“实时平移“或“实时缩放“不能执行错误处理
因为你已经中断了你的程序
要解决就不能用CAD提供的方法选择。

秋枫

我也建议你用AutoCAD 2004

这个问题是AutoCAD　R15（2000－2002）　的一个严重缺陷，可以认为是一个Bug。
在AutoCAD　R16 (2004)中修正了这个问题。