springsky 发表于 2003-3-15 13:12:00

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

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

mccad 发表于 2003-3-15 13:22:00

这样进行出错设置

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 发表于 2003-3-21 13:06:00

我想实现的功能是，窗体发出的命令暂时中断让给cad的其他命令。

页: [1]
查看完整版本: 用SelectOnScreen创建选择集的的问题？