自贡黄明儒 发表于 2013-1-23 13:38:19

一键恢复系统变量为初始值(源码)

本帖最后由 自贡黄明儒 于 2013-5-8 10:56 编辑

想以2K版本为基础,搞一个万能的"一键恢复系统变量为初始值"
在安装目录下\\Express\\defaults.scr,只是对本版本有效。
我找到了05版，10版的defaults.scr,请各位帮助上传一个其它版本的defaults.scr和(getvar "acadver"),完成后公布源码。
在此先表示感谢！

;;比较两个版本scr文件，找出不同的变量
**** Hidden Message *****

;;将defaults13.scr文件转换成表

(defun C:Scr2list (/ FILE1 FN1 INITDIR VARLIST X1 X2)
(setq Initdir (getvar "dwgprefix"))
(setq file1 (getfiled "选择defaults13.scr文件" Initdir "scr" 0))
;;(setq Temp_File "Temp_File.txt")
;;(setq File (open Temp_File "w"))
(setq fn1 (open file1 "r"))
(while (setq x1 (read-line fn1))
    (setq x1 (read x1))
    (setq VarList (cons (cadr x1) VarList))
    (setq valueList (cons (caddr x1) valueList))
)
(close fn1)
)

;;一键恢复系统变量为初始值(基本上搞定）(源码)
;;下面的程序根据bagu提供的2014版的defaults.scr为基础写的
**** Hidden Message *****


Qwer1243 发表于 2024-10-22 15:20:13

这个要收藏一下，以备不时之需

墨者 发表于 2018-3-25 14:37:27


这个要顶……很好很强大

仲文玉 发表于 2013-1-23 13:48:27

07的和12版的


革天明 发表于 2013-1-23 13:58:43

06机械版未见此文件

gzxl 发表于 2013-1-23 14:07:57

2006、2008、2010



AbnerXk 发表于 2013-1-23 14:37:25

楼上都补齐了。。谢谢分享！

L_Fei 发表于 2013-1-23 14:44:19

2013 64bit

zyhandw 发表于 2013-1-23 15:41:12

顶一个，期待楼主大作！

自贡黄明儒 发表于 2013-1-23 16:27:40

本帖最后由 自贡黄明儒 于 2013-1-24 08:29 编辑

诸位，20022009版的有吗？据查2000没有此文件

ZZXXQQ 发表于 2013-1-23 22:04:48

flytoday 发表于 2013-1-24 11:42:05

这个要顶……很好很强大
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 一键恢复系统变量为初始值(源码)