菜鸟求助：能否将defun c:后的字母换为组合键呢？谢谢大侠来解答一下。

lzryu

  由于小弟是菜鸟，想请问一下大侠能否将（defun c:txql ）里的txql字母改成组合键alt+1呢。？麻烦大侠来回答一下。
以下代码为zwqgdhl大侠贴子抄来.仅此借用一下。对此感谢zwqgdhl大侠。

;;;清理垃圾瘦身程序
(defun c:txql ()
(setvar "cmdecho" 0)
(setvar "dimzin" 0)
(princ "\n选择删除对象: ")
(setq ss (ssget))
(command "erase" ss "")
(command "layer" "s" "0" "")
(command "celweight" "20")
(command "purge" "a" "" "n")
(prin1)
(gc)
)

ZZXXQQ

这要对菜单文件进行修改才行。

zwqgdhl

更改CAD的快捷键只需更改CAD目录下的acad.pgp文件。
对于CAD2005，在菜单：工具——自定义——编辑自定义文件——程序参数（acad.pgp）中更改来的方便些。更改后，在不关闭软件的情况下，用reinit命令初始化，使更改生效

如果cad启动时会自动加载txql.lsp，再将txql字母定义成快捷键alt+1就可以了

zyhandw

同意前面两位高手意见！

lzryu

回复 zwqgdhl 的帖子

。。。。不好意思。小弟在acad.pgp看到的都是字母键，未看到能使用组合键之类的，恕小弟愚钝，然后要在acad.pgp中更改些什么？大侠能将改的过程告知一下吗。谢谢

zwqgdhl

其实有个很简单的方法
1 打开cad工具--自定义--按键特性
2 右键单击一个你平时根本用不到的按钮，在"与此键关联的宏"中拷贝入^C^C^P(load "c:/txql.lsp");txql;^P     (假如txql.lsp这个文件放在c:盘根目录下) 然后关闭保存，你就可以单击此键执行这个程序了(到这本身就已经很方便于使用了)

3 在以上基础上，打开cad工具--自定义--键盘，找分类，找到你用第2步修改的那个命令名称，在“按新快捷键”中设置你所要的快捷键，关闭保存就OK了