怎么将命令写入CMDNAMES

zark

其实问这么愚蠢的问题还是第一次，因为CMDNAMES是只读的，怎么有办法写入呢？
我现在想实现这种功能。
比如做了一个工具面板，面板里面有多个按钮，每个按钮就是一个命令。该命令如下
(defun c:test ()
  (princ "ok")
(princ)
)
每当点击这个按钮就会执行这个命令，有些按钮很常用，希望在执行完后下次再执行时只需要按一下空格或点击鼠标右键即可重复执行，但是这样实现不了。他不像工具栏上面定义的那样 ^C^C_test
请问各位有没有办法实现到这点。

zark

(defun ZA:sendcmd (str /)
  (vla-SendCommand *adoc* str)
  (vla-SendCommand *adoc* "\r")
  (princ)
  )


在此多谢CAOYIN版本