Question

如何设置CAD二次开发快捷键,最好有好心人事能发份二次开发驱动文件给我QQ

CAD二次开发

Answer 1

快捷键是用LISP写的，不管VB，VBA或其它，大都会用LISP调用
如：
(defun C:TOO() (graphscr) (setvar "cmdecho" 0)(startapp (strcat "D:\\Zsyan\\ZcadExe\\3Dto2D.exe"))(setvar "cmdecho" 1) (princ))
;;用TOO命令打开文目录D:\Zsyan\ZcadExe下的文件3Dto2D.exe

(defun C:JE()
(setq SetObj (entsel "选择要*连接*删除*的线条"))
(command "PEDIT" SetObj "y" "j" "all" "" "" ^m)
(command "ERASE" "L" "" ^m)
)
;;用JE命令调用一段命令

(defun C:QQ()
(vl-vbaload "D:/Zsyan/Zsyan.dvb")
(vl-vbarun "ZcadUpgrade")
)
;;用QQ加载一个VBA文件，并调用里面的ZcadUpgrade工程