CAD两套命令切换如何用lisp语言完成？

湜１只鱼

在公司里面的电脑是公用的，我的CAD命令更改了别人用这台电脑的时候就不习惯了，能否用lisp程序将两份不同acad.pgp命令来回切换呀？

Gu_xl

1. (defun c:SWitchPGP(/ f1 f2 tmpfile)
   
2.   ;;假设要切换的pgp文件放在CAD的acad.pgp同一目录下，文件名为acadBak.pgp
   
3.   (setq f1 (findfile "acad.pgp"))
   
4.   (setq f2 (strcat (VL-FILENAME-DIRECTORY f1) "\\acadBak.pgp"))
   
5.   (setq tmpfile (strcat (VL-FILENAME-DIRECTORY f1) "\\acadtmp.pgp"))
   
6.   (if (findfile tmpfile) (vl-file-delete tmpfile))
   
7.   (VL-FILE-RENAME f1 tmpfile)
   
8.   (vl-file-rename f2 f1)
   
9.   (vl-file-rename tmpfile f2)
   
10.   (setvar "RE-INIT" 16)
    
11.   (princ)
    
12.   )

(defun c:SWitchPGP(/ f1 f2 tmpfile)<br />   ;;假设要切换的pgp文件放在CAD的acad.pgp同一目录下，文件名为acadBak.pgp<br />   (setq f1 (findfile "acad.pgp"))<br />   (setq f2 (strcat (VL-FILENAME-DIRECTORY f1) "\\acadBak.pgp"))<br />   (setq tmpfile (strcat (VL-FILENAME-DIRECTORY f1) "\\acadtmp.pgp"))<br />   (if (findfile tmpfile) (vl-file-delete tmpfile))<br />   (VL-FILE-RENAME f1 tmpfile)<br />   (vl-file-rename f2 f1)<br />   (vl-file-rename tmpfile f2)<br />   (setvar "RE-INIT" 16)<br />   (princ)<br />   )

ll_j

好像用acad自己的“保存配置”功能就可以实现吧。

lincctw_ccl

很好的點子!
再加上G版給力的程序!!
完美結合

yoyoho

感谢G版分享!

004

感谢G版主分享!

湜１只鱼

真的很感谢Gu_xl 版主。你的程序太完美了