日志

;;;设置系统参数为程序需要的值 by Xran

已有 522 次阅读2014-12-19 17:06 |系统分类:应用| 程序

;;;设置系统参数为程序需要的值 by Xran
;;;paramlst系统参数列表字符串列表
;;;valuelst系统参数值表
(defun xr:sysparam0 (paramlst valuelst)
  (mapcar
    '(lambda (x)
       (set (read x) (getvar x))
     )
    paramlst
  );_保存系统变量
  (mapcar 'setvar paramlst valuelst)
)
;;;恢复系统参数
(defun xr:sysparam1 (paramlst)
  (mapcar '(lambda (x)
     (eval (read (strcat "(setvar '" x " " x ")")))
   )
  paramlst
  );_恢复系统变量值
  (mapcar '(lambda (x)
     (set (read x) nil)
   )
  paramlst
  );_释放变量
)

(defun savevar(lst)

(vlax-ldata-put "bl""a"(mapcar'(lambda(x)(list x(getvar x)))lst)))

(defun resetvar()

(mapcar'(lambda(x)(eval(cons setvar x))) (vlax-ldata-get"bl""a"))

(vlax-ldata-delete"bl""*")

)