ntyks 发表于 2009-8-4 21:33:00

mccad 发表于 2009-8-4 21:48:00

如果没有选中对象，则会出错，你的程序需要加入错误判断。如：
On Error Resume Next
ddd: ThisDrawing.Utility.GetEntity e, "选起点："
    If TypeName(e) = "IAcadText" Then
      e1 = e.TextString
    End If
If e1 = "" Or Err Then
    MsgBox "E1 未选中，请重新选择！"
    Err.Clear
    GoTo ddd
End If

ntyks 发表于 2009-8-4 22:10:00

mccad 发表于 2009-8-5 06:27:00

直接判断错误号

ntyks 发表于 2009-8-5 08:41:00

mccad 发表于 2009-8-5 21:55:00

简单的话，加一句<br/>If InStr(1, ThisDrawing.GetVariable("LASTPROMPT"), "*取消*") Then Exit Sub<br/>就可以，如果再严格一些，则应加上判断出错号-2147352567

ntyks 发表于 2009-8-6 19:48:00

ntyks 发表于 2010-8-30 14:46:00

页: [1]
查看完整版本: 选取文本的问题