向大家求教个问题。

wujin

如何定制我的出错函数啊。就是那个*error*。看半天看不明白。举个例子就是我用
repeat命令执行一个重复插入块的命令。如何定制出错函数：当我按ESC键时我的程序能够知道出错了并执行我定义的出错命令--就是我在程序执行时按ESC时，实现能够关闭当前的插入命令，并自动退出到command状态行。
还有
vmon是不是2000里面的命令，它有什么功能呢。我用VLISP调试时输入时系统显示是蓝色的，应该是个命令吧。请多指教！！！谢谢！

王咣生

举一个简单例子吧:
;;
;; main function
;;
(defun c:myerr ( / str)
  (setq *error* ai_error)
  (setq str (getstring "lease input a string:"))
  ress Esc, it will goto ai_error function.
  (alert str)
  (princ)
);_defun

;;
;; trap run-time error.
;;
(defun ai_error (errmsg)
   (if (not (member errmsg '("console break" "Function Cancelled"
                             "bad argument type" "Function cancelled" "no function definition: DOS_GETPROGRESS"
                              "bad argument" "函数被取消" "quit / exit abort"))
            ) ;_ end of not
      (princ (strcat "\nError: " errmsg))
   )
   (princ)
);_defun

主函数出错时,系统将由变量errmsg自动捕捉错误消息,通过判断errmsg的值,就可以打印自己的出错信息.


你在哪里看到的vmon,我在2000里试了,“未知命令".

wujin

谢谢，上面的问题解决了。
下面的VMON是我在VISUALLISP里面调试时在新文件里面输入时是显示蓝色的，我看CAD上面的帮助文档，说蓝色的是系统定义的函数。

spring

wujin发表于2003-7-21 22:16:00谢谢，上面的问题解决了。
下面的VMON是我在VISUALLISP里面调试时在新文件里面输入时是显示蓝色的，我看CAD上面的帮助文档，说蓝色的是系统定义的函数。

我也有在一些程序里看到過,放在最頂端(VMON)不知道有何用處

龙龙仔

(vmon)是虚拟函数分页

wujin

龙仔,能不能提供具体的资料呢,比如详细的使用方法,谢谢!

龙龙仔

要取消的函數,以後也不用了!