社区 › VB › Getentity方法错误

tohell 发表于 2009-11-3 09:04:00

Getentity方法错误

VBA代码：
Public Sub SelectAndCopy()
    Dim returnObj As AcadObject
    Dim bassPnt As Variant
   
RETRY:
    ThisDrawing.Utility.GetEntity returnObj, bassPnt, "请选取一个对象"
   
    If Err0 Then
      MsgBox ThisDrawing.GetVariable("lastprompt")
      Err.Clear
      Exit Sub
    Else
      MsgBox returnObj.EntityName
    End If
    GoTo RETRY
End Sub
宏运行后点击对象时正常运行，但是点击空地方或按ESC键时提示Getentity方法出错，宏直接退出运行，而没有进入错误处理程序
弹出对话框提示：运行时错误‘-2147352567（80020009）’：方法‘Getentity’作用于对象‘IAcadUtility’时失败

tohell 发表于 2009-11-3 09:30:00

function XML() {
   
}

wylong 发表于 2009-11-3 11:23:00

建议你看一下置顶的请问：用getpoint操作时，怎样进行平移缩放及右键结束

home 发表于 2009-11-3 17:17:00

On Error Resume Next
这一句很重要哦

查看完整版本: Getentity方法错误