rscenter 发表于 2004-4-10 16:56:00

取消操作时出现的错误！如何解决？？

刚学习vba，要求输入插入点的位置，<BR>GetMyPoint = ThisDrawing.Utility.GetPoint(, "程序请您输入要插入点的位置:       ")<BR>一般的cad命令，按esc键时，就结束该命令。<BR>但，在我写的程序里面，要求输入插入点的位置时，按esc键出现如下内容的对话框：


运行时错误'-2147352567(80020009)'<BR>方法'GetPoint'作用于对象'AcadUtility'时失败<BR><BR>在GetMyPoint = ThisDrawing.Utility.GetPoint(, "程序请您输入要插入点的位置:       ")<BR>后加上<BR>If Err &lt;&gt; 0 Then<BR>                       exit sub<BR>End If<BR>也出现相同的情况！


请问如何解决？？？

mikewolf2k 发表于 2004-4-10 18:03:00

getpoint前面要加               on error resume next

雪山飞狐_lzh 发表于 2004-4-10 18:31:00

If Err Then就可以了
页: [1]
查看完整版本: 取消操作时出现的错误！如何解决？？