vlax-add-cmd第一个参数的问题

ld_117

1. (setq aa "11") (vlax-add-cmd aa 'c:XJMJ))

(setq aa "11") (vlax-add-cmd aa 'c:XJMJ))

使用vlax-add-cmd将函数定义成快捷命令时出现以下错误:
错误: Visual LISP command document mismatch: 11
但是将aa的值修改为别的比如"55"就成功了，是否vlax-add-cmd函数对第一个参数的值有些特殊限定？比如不能跟PGP文件里的重复什么的？

ld_117

已发现使用vlax-remove-cmd函数在前面加一句

1. (vlax-remove-cmd aa)

(vlax-remove-cmd aa)

即可解决该问题，但是还是不知道之前为啥不成功，我的cad里并没有将11定义成任何快捷命令。

edata

应该是已经定义了11，再次定义就会出错。
(vlax-remove-cmd aa) 必须清除才能再次定义，
vlax-add-cmd 是所有文件有效，也就是说，你不关闭cad，那么11这个命令贯通所有文档。包括新文档。
而其他文档定义就会出错。建议用defun改命令，比较安全。

ld_117

edata 发表于 2015-10-13 12:26
应该是已经定义了11，再次定义就会出错。
(vlax-remove-cmd aa) 必须清除才能再次定义，
vlax-add-cmd 是 ...

我是希望把函数赋给变量的值，这样就可以定义一个DCL窗口来让用户自定义快捷命令了，这个用defun好实现吗？求教，我也不知道该怎么搞比较好。

edata

给个例子

1. (defun c:tt()
   
2.   (setq shortt "test")
   
3.   (setq longtest "c:longtest")
   
4.   (eval(read(strcat "(defun c:" shortt "()  ("longtest"))"))))
   
5. (defun c:longtest()
   
6.   (princ "\n成功生成")
   
7.   )

(defun c:tt()<br />   (setq shortt "test")<br />   (setq longtest "c:longtest")<br />   (eval(read(strcat "(defun c:" shortt "()  ("longtest"))"))))<br /> (defun c:longtest()<br />   (princ "\n成功生成")<br />   )

ld_117

edata 发表于 2015-10-13 22:38
给个例子

明白了，多谢