请问怎么判断某个arx中的命令是否存在

xiaoyingzi

请问怎么判断某个arx中的命令是否存在
比如某个yy.arx中有个命令xx，可以通过command来调用，现在想通过lisp程序来判断xx这个命令是否存在，不通过判断是否加载该arx来判断(member "yy.arx" (arx))，该如何实现呢？想同过出错处理来实现，不成功
(if (wcmatch
      (vl-catch-all-error-message
        (vl-catch-all-apply
          '(lambda ()
             (vl-cmdf "xx")   
           )
        )
      )
      "*未知命令*"
    )
    (princ "命令xx不存在")
    (princ "命令xx存在")
)

wowan1314

TYPE  可以不?  你试下

xiaoyingzi

(type xx)
返回nil
没有按想像的是EXRXSUBR

wowan1314

既然是命令！ 那么（type C:xx）呢？

ZZXXQQ

(defun findxx (xx)
(if (member xx (atoms-family 1))
T
nil
)
)

xiaoyingzi

lisp定义的c:的命令用 (atoms-family 1)找得到，arx的命令，始终返回为nil

mj0000

xiaoyingzi 发表于 2013-8-6 23:15
lisp定义的c:的命令用 (atoms-family 1)找得到，arx的命令，始终返回为nil

arx命令要用表的形式如 (atoms-family 1'("HFB_PointMonitor"))

ZZXXQQ

试下函数(arx)