如何判断某个命令已被占用
<p>各位大哥:请教一下呀,用什么方法可以测试某个命令已经被占用.</p><p>比方说我想知道"cv" 是否为一个已存在的命令.用程序怎么来判断呢?</p> <p>(if (= (type "cv") 'SUBR)</p><p> (princ "\n名称 cv 已被使用。")</p><p> (princ "\n名称 cv 未被使用。")</p><p>)</p><p>(if (= (type "c:cv") 'SUBR)</p><p> (princ "\n名称 c:cv 已被使用。")</p><p> (princ "\n名称 c:cv 未被使用。")</p><p>)</p> <p>错。。。</p><p>(type "c:cv") 永远等于STR</p><p>SUBR 还是 USUBR 呢?</p> 其实用(/= nil c:cv)应该也可以判断的吧 (car (atoms-family 1 '("cv"))) <p>(null c:cv)</p> 太简单了,在CAD下输入此命令看有没有反应就知道了,还要开发什么东东,麻烦 果然是聪明,高手!
页:
[1]