如何让用户可以自己定义命令的快捷方式?

lee_yan_cn

我编了几个命令 并且把程序编译成了 VLX格式. 里面包含命令


AAA


BBB


CCC


等


我想让用户可以自己定义这几个命令的快捷方式,比如A 对应AAA 请问有什么方法?告诉我您的思路就行.

BDYCAD

直接把Lisp程序名AAA改为A就OK啦.

无痕

不是吧?

lee_yan_cn

我不想修改程序 因为不同的用户可能想用不同的快皆方式 还请斑竹再帮忙想想办法

雷

修改ACAD.PGP

zhang007

可以在acad.pgp文件中定义,

雪山飞狐_lzh

这样？ (defun tls:funcj(funcname jname)
(eval
(list 'defun
(read (strcat "c:" jname))
nil
(read (strcat "(c:" funcname ")"))
)
)
)

spring

楼上的这招不错