社区 › VB › 正确退出？

Bryco 发表于 2008-4-9 17:03:45

正确退出？

怎么做；如果用户在空间中选择了一个点或右键单击，请使此块顺利退出，而不被炸出
Public Sub GetEntExample()
Dim returnObj As AcadObject
    Dim basePnt As Variant
   
    On Error Resume Next
   
    ' The following example waits for a selection from the user
RETRY:
    ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"
   
    If Err0 Then
      Err.Clear
      MsgBox "Program ended.", , "GetEntity Example"
      Exit Sub
    Else
      returnObj.Update
      MsgBox "The object type is: " & returnObj.EntityName, , "GetEntity Example"
      returnObj.Update
    End If
   
    GoTo RETRY
End Sub

粽横四海 发表于 2008-4-9 18:00:25

你到底指的是什么&nbsp；它完全按照我的预期做了

问题 发表于 2008-4-9 18:01:28

我想我的意思是，你是想避免程序以msgbox结尾，还是想让它说“我不知道，我不知道。”；你错过了挑选，再试一次；还是怎样

属于我们的雨天 发表于 2008-4-9 18:05:28

从更好的getentity开始http://www.theswamp.org/index.php?topic=9301.msg119833#msg119833

雅莉 发表于 2008-4-9 19:29:30

在今天午餐时间，它工作不正常，我有大约4或5个不同的版本
不过，这一条确实有效，谢谢你的另一条线索，看起来也很有用

狼牙月 发表于 2008-4-10 11:36:19

找出工具中的“工作”问题--&gt；在VBA IDE的选项框中，我选中了一个框，上面写着“选项”；“在所有错误时中断”
当它应该设置为中断未处理的错误时。
谢谢

查看完整版本: 正确退出？