如何让自定义变量保存上一个设定值?

jaminth

如何让自定义变量保存上一个设定值?

做了一个LISP程序,其中有个变量老要重复设置,请教各位高手,如何让自定义变量保存上一个设定值?就像CAD的fillet命令一样,半径和模式在下一次用到时,都继承了上一个设定值!不用再去设置!

当前模式: 模式 = 修剪，半径 = 120.3000
选择第一个对象或 [多段线(P)/半径(R)/修剪(T)]:

谢谢!!

caoyin

把你需要修改的系统变量保存到文本文件，下次打开文件时加载
------------------------------------------------------
文本文件示例:
"plinewid" 0
"skpoly"  1
"tspacefac" 0.8
"whiparc"  1
"filletrad" 0
"savetime" 10
"acadlspasdoc" 1
-----------------------------------------------------------------
;;--------------------------------------
;;临时写了一个，请测试：

(defun set_sysvar (fn / rel lst)
  (setq fn (findfile fn))
  (if fn
    (progn
      (setq fn (open fn "r"))
      (while (setq rel (read-line fn))
        (setq rel (read (strcat "(setvar " rel ")")))
        (setq lst (append lst (list rel)))
      )
      (close fn)
      (mapcar '(lambda (x) (vl-catch-all-apply 'eval (list x)))
              lst
      )
    )
  )
)

;;;假如文件名为 c:\sysvars.txt, 测试:
(set_sysvar "c:\\sysvars.txt")

caoyin

不好意思，理解错了。

不知道有没有更好的方法。我的方法：

1.注册表，缺点是只能保存字符串，数字等数据

2.CAD提供的 USERI1-5 USERR1-5 USERS1-5 共15个用户系统变量

wufeizhi

使用黑板空间变量

zml84

若在一个图形中的话，最好使用全局变量解决它。
这也符合作图习惯。
一个例子见：http://p4.xdcad.net/forum/showthread.php?s=&postid=3106068#post3106068  第6楼