用LISP编程
给你一段程序参考下吧
;;键入相应数字改变所选对象颜色
;;数字1
(defun C:1 ( / gp)
(setvar "cmdecho" 0)
(princ "\n★改变对象颜色为红色★")
(setq gp (ssget))
(if (/= gp nil) (command ".change" gp "" "p" "c" "1" ""))
(princ "\nOK")
(princ)
);end defun C:1
在CAD版本中,高版本有宏动作编辑功能,你把动作编辑到里面,命名的时候用8就可以,这个动作的快捷键就是8.
好像是COL
在CAD中可以自己制作快捷键的。
http://zhidao.baidu.com/question/8997843.html?si=1
你自己看下吧。