如何实现"函数使用出错时提示用法."

27012701

我也想知道这个方法,调用函数如"参数太多"这样的错,根本就没办法知道是哪个函数出错啦

ZZXXQQ

可以这样定义函数：

(DEFUN TEST (STRL)
 (IF (AND (LISTP STRL) (/= (LENGTH STRL) 3)) (PROGN
  (PRINC "\nUseag : (TEST (LIST N1 R2 S3))")
 )
 (IF (AND (TYPE (CAR STRL)) 'INT) (TYPE (CADR STRL)) 'REAL) (TYPE (LAST STRL) 'STR))
  (PROGN
   (PRINC (CAR STRL)) (PRINC "\n")
   (PRINC (CADR STRL)) (PRINC "\n")
   (PRINC (LAST STRL))
  )
   (PRINC "\nUseag : (TEST (LIST N1 R2 S3))")
  )
 )
)
但当未给出参数时还是会出错。

xxsheng

在命令行中使用这些函数时,如果出错，，，
试试这个，只能在命令行使用的时候得到，其他的情况我没有测试，记住，要退出模式，使用endsub命令。
(vl-load-com)
(defun sub_myerror(s)
   (if (= (type iwillrun) 'LIST)
       (princ (strcat "\n" (car iwillrun) s))
       (princ (strcat "\n" iwillrun s)))
)
(setq olderr *error* *error* sub_myerror)
(vlr-lisp-reactor nil '((:vlr-lispWillStart . myset)))
(defun sub1(a)
  (princ a )
)
(defun sub2(a)
  (princ a)
)
(defun sub3(a)
  (princ a)
)
(defun myset(a msg)
  (setq iwillrun msg)
)
(defun c:endsub()
 (setq *error* olderr olderr nil iwillrun nil)
 (vlr-remove-all :VLR-Lisp-Reactor)
)


;-----------------------------
测试结果：
命令: (sub3 1 2)
(sub3 1 2)参数太多
命令: (sub1)
(sub1)参数太少
命令: (sub2)
(sub2)参数太少
命令: (sub3 "我" “你”)
(sub3 "我" “你”)参数太多
命令: (sub1)
(sub1)参数太少
命令: (sub2)
(sub2)参数太少
命令: (sub3)
(sub3)参数太少
命令: endsub
((:VLR-Lisp-Reactor #<VLR-Lisp-Reactor>))
命令: (sub1)
; 错误: 参数太少
命令: (sub2)
; 错误: 参数太少
命令: (sub3 1 2)
; 错误: 参数太多