【函数】判断命令是否存在

叶曲冰寒

    关于命令是否存在的问题之前在网上找了很多地方都没完全搞定。关于命令是否存在的判断结合众牛人的看法，和自己的总结写出来供各位看官瞅瞅。此函数能够判断CAD内置命令和用户定义的命令。

1. ;;功  能:命令是否存在
   
2. ;;参  数:命令字符串
   
3. ;;返回值:存在为T，否则为nil
   
4. (defun isCommandExist(commandstr / cAndCommandStr isexist myvalue)
   
5.   (setq cAndCommandStr (strcat "c:" commandStr))
   
6.   (if (equal (type (eval (read cAndCommandStr))) 'subr)
   
7.     ;;说明是用lisp的defun定义的命令
   
8.     (progn
   
9.       (setq isExist T)
   
10.       (print "命令存在!")
    
11.     )
    
12.     ;;不是lisp中defun定义的命令
    
13.     (progn
    
14.       (if
    
15.         ;;if判断的条件
    
16.         (not
    
17.           ;;捕捉错误，错误存在为T，不存在为FALSE
    
18.           (vl-catch-all-error-p
    
19.             (setq myvalue
    
20.               ;;执行语句，并且用vl-catch-all-apply捕捉错误
    
21.               (vl-catch-all-apply '(lambda (x) (progn (command x) (setq lastCommand (getvar "LASTPROMPT")) (if (not (wcmatch lastCommand "*未知命令*")) (command "ESC")))) (list commandStr))
    
22.             )
    
23.           )
    
24.         )
    
25.         ;;if条件后的第一条语句
    
26.         ;;如果执行出错就执行下面这句
    
27.         (progn
    
28.           (setq isExist nil)
    
29.           (print "命令不存在!")
    
30.         )
    
31.         ;;if条件后的第二条语句
    
32.         ;;如果执行出错，就捕捉错误，执行下面这句
    
33.         (progn
    
34.           (setq isExist T)
    
35.           (print "命令存在!")
    
36.         )
    
37.       );;end if
    
38.       ;;取消命令操作
    
39.       (if isExist
    
40.         (progn
    
41.           (command)
    
42.         )
    
43.       );;end if
    
44.     );;end progn
    
45.   );;end if
    
46.   
    
47.   ;;输出值，命令存在时是T，否则是nil
    
48.   isExist
    
49. )

;;功  能:命令是否存在<br /> ;;参  数:命令字符串<br /> ;;返回值:存在为T，否则为nil<br /> (defun isCommandExist(commandstr / cAndCommandStr isexist myvalue)<br />   (setq cAndCommandStr (strcat "c:" commandStr))<br />   (if (equal (type (eval (read cAndCommandStr))) 'subr)<br />     ;;说明是用lisp的defun定义的命令<br />     (progn<br />       (setq isExist T)<br />       (print "命令存在!")<br />     )<br />     ;;不是lisp中defun定义的命令<br />     (progn<br />       (if <br />         ;;if判断的条件<br />         (not <br />           ;;捕捉错误，错误存在为T，不存在为FALSE<br />           (vl-catch-all-error-p <br />             (setq myvalue<br />               ;;执行语句，并且用vl-catch-all-apply捕捉错误<br />               (vl-catch-all-apply '(lambda (x) (progn (command x) (setq lastCommand (getvar "LASTPROMPT")) (if (not (wcmatch lastCommand "*未知命令*")) (command "ESC")))) (list commandStr))<br />             )<br />           )<br />         )<br />         ;;if条件后的第一条语句<br />         ;;如果执行出错就执行下面这句<br />         (progn<br />           (setq isExist nil)<br />           (print "命令不存在!")<br />         )<br />         ;;if条件后的第二条语句<br />         ;;如果执行出错，就捕捉错误，执行下面这句<br />         (progn<br />           (setq isExist T)<br />           (print "命令存在!")<br />         )<br />       );;end if<br />       ;;取消命令操作<br />       (if isExist<br />         (progn<br />           (command)<br />         )<br />       );;end if<br />     );;end progn<br />   );;end if<br />   <br />   ;;输出值，命令存在时是T，否则是nil<br />   isExist<br /> )

USER2128

可以参考我的贴子:
判断是否为CAD命令的简写

可以判断出：
1、是否为CAD命令的简写；
2、是否为CAD系统内置命令；
3、是否为CAD系统内置函数；