用SelectOnScreen创建选择集的的问题？

springsky

在VBA窗体运行时，想通过SelectOnScreen在屏幕上选择实体时，如中间使用
CAD的缩放功能时，则命令返回到窗体，只有再次点击命令回到CAD屏幕才能缩放，
选择实体。问能否在使用SelectOnScreen创建选择集时，中间使用CAD命令
如缩放命令，而焦点不返回到窗体的方法？

mccad

On Error GoTo Err_Control
' ...
' ...
' 你的程序内容
' ...
'以下为判断出错内容
Exit_Here:
  Exit Sub
Err_Control:
  Select Case Err.Number
    Case -2147352567
      varCancel = ThisDrawing.GetVariable("LASTPROMPT")
      If InStr(1, varCancel, "*Cancel*") <> 0  _
And InStr(1, varCancel, "*取消*") <> 0 Then
        Err.Clear
        Resume Exit_Here
      Else
      'Missed the pick, send them back!
        Err.Clear
        Resume
      End If
    Case -2145320928
    'Right click or enter
      Err.Clear
      Resume Exit_Here
    Case Else
      'MsgBox Err.Des cription Err.Clear
      Resume Exit_Here
  End Select

springsky