怎么才能把自己程序里的配置保存下来？

zhuquanmao · 发表于 2013-5-24 09:56:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由炫翔于 2013-5-25 16:37 编辑

怎么才能把自己程序里的配置保存下来，以便下次使用上次的配置？是写入到文本文件里么？怎么个存取方法？如我想读取第5行怎么弄，不会是执行5次realline吧

Lispboy · 发表于 2013-5-24 10:10:11

自己程序中的变量？存到一个全局变量就行了。

Free-Lancer · 发表于 2013-5-24 10:13:29

用词典保存来自: Android客户端

zhuquanmao · 发表于 2013-5-24 10:44:21

Lispboy 发表于 2013-5-24 10:10
自己程序中的变量？存到一个全局变量就行了。

全局变量是暂时的 CAD关了就没了

zhuquanmao · 发表于 2013-5-24 10:49:45

Free-Lancer 发表于 2013-5-24 10:13
用词典保存

大神大概请说下怎么弄？

Lispboy · 发表于 2013-5-24 10:59:52

如果只是和本图有关的，那么推荐保存到词典，对象的扩展词典，对象的扩展数据里面。

比如，图纸比例，你就可以保存到比如层0 的扩展实体数据里面，因为层0是永远存在的。

程序需要的时候，读取出来就行了。

zhuquanmao · 发表于 2013-5-24 11:07:46

Lispboy 发表于 2013-5-24 10:59
如果只是和本图有关的，那么推荐保存到词典，对象的扩展词典，对象的扩展数据里面。

比如，图纸比例，你 ...

是不是不能用lisp读取啊我百度下谢谢！

牢固 · 发表于 2013-5-24 11:36:33

可以用SetEnv函数保存为环境变量
(setq Env "MyApp\\Var1" 变量值字串)
读取:
(setq var (GetEnv "MyApp\\Var1"))

Free-Lancer · 发表于 2013-5-24 11:44:27

用vlax-ldata 类保存读取来自: Android客户端

pengfei2010 · 发表于 2013-5-25 14:23:32

我也正想了解一下，应该可以保存为.ini配置文件的，只会不知道怎么写函数

zhuquanmao · 发表于 2013-5-25 16:28:06

本帖最后由 zhuquanmao 于 2013-5-25 16:32 编辑

pengfei2010 发表于 2013-5-25 14:23
我也正想了解一下，应该可以保存为.ini配置文件的，只会不知道怎么写函数

搞定了。用以下代码，参数存取立即生效。只是代码长了些，而且借用了大神的部分代码。哈哈
方法：新建一个空的set.INI先放在搜索路径中 ;;;读配置文件

;;;读配置文件
(defun set_output (n / data datalist ff file)
(setq n (1- n))
(setq file (findfile "Set.ini"))
(setq ff (open file "R"))
(setq data (read-line ff))
(setq datalist '())
(while data
(setq datalist (cons data datalist))
(setq data (read-line ff))
)
(close ff)
(setq setdata (reverse datalist))
(nth n setdata)
)
;;;写配置文件
(defun set_input (n new / data datalist ff file i nlst x)
(setq n (1- n))
(setq file (findfile "Set.ini"))
(setq ff (open file "R"))
(setq data (read-line ff))
(setq datalist '())
(while data
(setq datalist (cons data datalist))
(setq data (read-line ff))
)
(close ff)
(setq setdata (reverse datalist))
(if (> (length setdata) n)
(progn
(setq i 0)
(foreach x setdata
(setq nlst (append
nlst
(list (if (= i n)
new
x
)
)
)
i (1+ i)
)
)
)
)
(setq file (findfile "Set.ini"))
(setq ff (open file "w"))
(setq I 0)
(repeat (1- (length setdata))
(write-line (nth i nlst) ff)
(setq i (1+ i))
)
(close ff)
)

;;;读配置文件 
(defun set_output (n / data datalist ff file) 
  (setq n (1- n)) 
  (setq file (findfile "Set.ini")) 
  (setq ff (open file "R")) 
  (setq data (read-line ff)) 
  (setq datalist '()) 
  (while data 
    (setq datalist (cons data datalist)) 
    (setq data (read-line ff)) 
  ) 
  (close ff) 
  (setq setdata (reverse datalist)) 
  (nth n setdata) 
) 
;;;写配置文件 
(defun set_input (n new / data datalist ff file i nlst x) 
  (setq n (1- n)) 
  (setq file (findfile "Set.ini")) 
  (setq ff (open file "R")) 
  (setq data (read-line ff)) 
  (setq datalist '()) 
  (while data 
    (setq datalist (cons data datalist)) 
    (setq data (read-line ff)) 
  ) 
  (close ff) 
  (setq setdata (reverse datalist)) 
  (if (> (length setdata) n) 
    (progn 
      (setq i 0) 
      (foreach x setdata 
(setq nlst (append 
       nlst 
       (list (if (= i n) 
        new 
        x 
      ) 
       ) 
     ) 
       i (1+ i) 
) 
      ) 
    ) 
  ) 
  (setq file (findfile "Set.ini")) 
  (setq ff (open file "w")) 
  (setq I 0) 
  (repeat (1- (length setdata)) 
    (write-line (nth i nlst) ff) 
    (setq i (1+ i)) 
  ) 
  (close ff) 
)

n代表set.INI中的第n行，你可以直接读取第n行的数据，或将参数直接写入第n行
如：

(defun c:tttt ()
(set_input 7 "XXX")
(set_output 7)
(princ)
)

账号		自动登录	找回密码
密码			立即注册

[已解决] 怎么才能把自己程序里的配置保存下来？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。