设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 【讨论】保存程序系统变量
123下一页
返回列表 发新帖
查看: 8336|回复: 28

[讨论] 【讨论】保存程序系统变量

[复制链接]
张和平
发表于 2013-5-22 19:11:45 | 显示全部楼层 |阅读模式
本帖最后由 张和平 于 2013-5-27 12:30 编辑

关于保存变量的问题，我在论坛里搜索了一下，caoyin版主给出过以下指导性的说法
===引自：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=89166
方法很多种：
1.直接使用全局变量，这种方法最简单。(特点：关闭文档“记忆”就被关闭)
2.写入、读取图形词典。（特点：记忆只储存在当前图形文档）
3.写入、读取注册表。（特点：记忆储存于计算机，可以任何文档任何时候读取或修改）
4.写入、读取文件，如TXT文件（特点：同上）
5.写入、读取环境变量（特点：同上）
==========================================
我想实现永久记住变量的效果（即，在一个文档中修改过，其余文档中也改变），显然要用3,4,5这三种方法。但是，在论坛里好像没有这方面系统性的介绍。
大神们能不能详细地来介绍一下这三个方法呢？最好是能给出适当的范例。

我自己的一些想法：
若用注册表的方法，那么，一个变量设定一个注册表项，觉得有点乱，那么我就想，我弄一个表，这个表里的元素是一个类似（变量名  变量值）这样的点对，然后把这个表存入注册表，这样就显得比较简洁。
若用文件的话，显得对系统的“侵染”没有那么大，但是速度方面是否会慢？另外，变量有更新时，更新的具体操作如何？读取的具体操作如何？
若用环境变量的话，是个什么原理和模式呢？


====自己琢磨着弄出来的保存变量至txt的函数，，如下，水平有限，望高手能贴出你们的保存变量至txt的函数，让我对比学习一下。。具体参考10楼
  2. (vl-load-com)
  3. (defun c:test()
  4.   (defun *error* (msg)  ;错误处理函数
  5.     (princ "\n**error: ")
  6.     (princ msg)      ;_ 打印错误信息
  7.     (princ)         
  8.   )
  9.   (setq PEACE:SYSVAL1 3  ;设定变量
  10.   PEACE:SYSVAL2 2
  11.   PEACE:SYSVAL3 3
  12.   PEACE:SYSVAL4 "4"
  13.   PEACE:SYSVAL5 "5"
  14.   PEACE:SYSVAL6 "DFFDS"
  15.   )
  16.   
  17.   (PEACE:SAVESYSVAL "PEACE:SYSVAL1" PEACE:SYSVAL1)
  18.   (PEACE:SAVESYSVAL "PEACE:SYSVAL2" PEACE:SYSVAL2)
  19.   (PEACE:SAVESYSVAL "PEACE:SYSVAL3" PEACE:SYSVAL3)
  20.   (PEACE:SAVESYSVAL "PEACE:SYSVAL4" PEACE:SYSVAL4)
  21.   (PEACE:SAVESYSVAL "PEACE:SYSVAL5" PEACE:SYSVAL5)
  22.   (PEACE:SAVESYSVAL "PEACE:SYSVAL6" PEACE:SYSVAL6)
  23.   ;(princ (strcat "\n变量成功保存入" acadpath "\\PEACESYSVAL.TXT"))
  24.   (princ)
  25. )
  26. (defun PEACE:SaveSysVal(valname valvalue / acadpath f datalist data valvalue_old i isthere)
  27.   (setq acadpath(vlax-get-property (vlax-get-acad-object) 'Path))
  28.   (IF (null (findfile "PEACESYSVAL.TXT"))
  29.     (progn ;若文件不存在
  30.       (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "w"))
  31.       (prin1 (list valname valvalue) f)
  32.       (close f)
  33.     )
  34.     (progn ;若文件已存在
  35.       (setq datalist '())
  36.       (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "r"))
  37.         (while (setq data (read-line f))
  38.         (setq datalist (cons data datalist))
  39.         )
  40.         (reverse datalist)
  41.       (close f)
  42.       (princ "\n")
  43.       (princ datalist)
  44.       (setq       i 0
  45.             isthere 0)
  46.       (repeat (length datalist)
  47.         (if (= valname (car (read (nth i datalist))))
  48.           (progn
  49.           (setq datalist (subst (list valname valvalue) (read (nth i datalist)) datalist))
  50.           (setq isthere 1)
  51.           )
  52.         )
  53.         (setq i (1+ i))
  54.       )
  55.       (princ "\n")
  56.       (princ isthere)
  57.       (if (= 1 isthere)
  58.         (progn
  59.           (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "w"))
  60.           (prin1 (read (nth 0 datalist)) f)
  61.           (close f)
  62.           (setq i 1)
  63.           (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "a"))
  64.           (repeat (- (length datalist) 1)
  65.             (write-line "" f)
  66.             (prin1 (read (nth i datalist)) f)
  67.             (setq i (1+ i))
  68.           )
  69.           (close f)
  70.         )
  71.         (progn
  72.           (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "a"))
  73.           (write-line "" f)
  74.           (prin1 (list valname valvalue) f)
  75.           (close f)
  76.         )
  77.       )
  78.     )
  79.   )
  80.   (princ)
  81. )
更新：读取存在txt中的变量名和变量值：
  2. (vl-load-com)
  3. (defun c:test()
  4.   (defun *error* (msg)  ;错误处理函数
  5.     (princ "\n**error: ")
  6.     (princ msg)      ;_ 打印错误信息
  7.     (princ)         
  8.   )
  9.   ;|(setq PEACE:SYSVAL1 3  ;设定变量
  10.         PEACE:SYSVAL2 2
  11.         PEACE:SYSVAL3 3
  12.         PEACE:SYSVAL4 "4"
  13.         PEACE:SYSVAL5 "5"
  14.         PEACE:SYSVAL6 "DFFDS"
  15.   )
  16.   
  17.   (PEACE:SAVESYSVAL "PEACE:SYSVAL1" PEACE:SYSVAL1)
  18.   (PEACE:SAVESYSVAL "PEACE:SYSVAL2" PEACE:SYSVAL2)
  19.   (PEACE:SAVESYSVAL "PEACE:SYSVAL3" PEACE:SYSVAL3)
  20.   (PEACE:SAVESYSVAL "PEACE:SYSVAL4" PEACE:SYSVAL4)
  21.   (PEACE:SAVESYSVAL "PEACE:SYSVAL5" PEACE:SYSVAL5)
  22.   (PEACE:SAVESYSVAL "PEACE:SYSVAL6" PEACE:SYSVAL6)
  23.   ;(princ (strcat "\n变量成功保存入" acadpath "\\PEACESYSVAL.TXT"))|;
  24.   ;以下涉及的PEACE:SYSVAL7~10是自己手动输入的，，，
  25.   (PEACE:READSYSVAL)
  26.   (princ "\n")
  27.   (princ PEACE:SYSVAL7)
  28.   (princ "\n")
  29.   (princ PEACE:SYSVAL8)
  30.   (princ "\n")
  31.   (princ PEACE:SYSVAL9)
  32.   (princ "\n")
  33.   (princ PEACE:SYSVAL10)
  34.   (princ)
  35. )
  36. (defun PEACE:SaveSysVal(valname valvalue / acadpath f datalist data valvalue_old i isthere)
  37.   (setq acadpath(vlax-get-property (vlax-get-acad-object) 'Path))
  38.   (IF (null (findfile "PEACESYSVAL.TXT"))
  39.     (progn ;若文件不存在
  40.       (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "w"))
  41.       (prin1 (list valname valvalue) f)
  42.       (close f)
  43.     )
  44.     (progn ;若文件已存在
  45.       (setq datalist '())
  46.       (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "r"))
  47.         (while (setq data (read-line f))
  48.               (setq datalist (cons data datalist))
  49.         )
  50.         (reverse datalist)
  51.       (close f)
  52.       ;(princ "\n")
  53.       ;(princ datalist)
  54.       (setq       i 0
  55.             isthere 0)
  56.       (repeat (length datalist)
  57.         (if (= valname (car (read (nth i datalist))))
  58.           (progn
  59.           (setq datalist (subst (list valname valvalue) (read (nth i datalist)) datalist))
  60.           (setq isthere 1)
  61.           )
  62.         )
  63.         (setq i (1+ i))
  64.       )
  65.       ;(princ "\n")
  66.       ;(princ isthere)
  67.       (if (= 1 isthere)
  68.         (progn
  69.           (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "w"))
  70.           (prin1 (read (nth 0 datalist)) f)
  71.           (close f)
  72.           (setq i 1)
  73.           (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "a"))
  74.           (repeat (- (length datalist) 1)
  75.             (write-line "" f)
  76.             (prin1 (read (nth i datalist)) f)
  77.             (setq i (1+ i))
  78.           )
  79.           (close f)
  80.         )
  81.         (progn
  82.           (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "a"))
  83.           (write-line "" f)
  84.           (prin1 (list valname valvalue) f)
  85.           (close f)
  86.         )
  87.       )
  88.     )
  89.   )
  90.   (princ)
  91. )
  92. (defun PEACE:ReadSysVal( / acadpath data datalist i)
  93.   (setq acadpath(vlax-get-property (vlax-get-acad-object) 'Path))
  94.   (if (findfile "PEACESYSVAL.TXT")
  95.     (progn
  96.     (setq datalist '())
  97.     (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "r"))
  98.       (while (setq data (read-line f))
  99.             (setq datalist (cons data datalist))
  100.       )
  101.       (reverse datalist)
  102.     (close f)
  103.     (setq i 0)
  104.     (repeat (length datalist)
  105.       (set (read (car (read (nth i datalist)))) ;注意字符和表之间的转换，字符串是不能作为变量名的
  106.             (cadr (read (nth i datalist)))      ;car对字符串也是不起作用的
  107.       )
  108.       (setq i (1+ i))
  109.     )
  110.     )
  111.   )
  112. )
整理一下思路：
将变量存入txt时：1、判断PEACESYSVAL.TXT(当然也可以是你命名的)是否存在，若不存在，则创建（我默认将此txt放在cad安装目录）；2、写入变量名和变量值时，先判断此变量是否已经存在，若存在，则更新为新的变量值，若不存在，则直接在最后面append；3、第2条判断变量是否存在时，先把txt中各行数据读取，形成一个表，然后依次检查表中有没有变量名和要存入的变量名相同即可，更新也操作此表，然后将txt中原内容删除，重新写入此表；4、变量名和变量值组成一个表格，形如（“变量名”  变量值）存入txt中，一个变量占据一行，形如下面：
  1. ("PEACE:SYSVAL1" 3)
  2. ("PEACE:SYSVAL2" 2)
  3. ("PEACE:SYSVAL3" 3)
  4. ("PEACE:SYSVAL4" "4")
  5. ("PEACE:SYSVAL5" "5")
  6. ("PEACE:SYSVAL6" "DFFDS")
复制代码
将txt中变量读取时：同上，先读取出来，形成一个大表，其中每个元素为一个形如（“变量名”  变量值）的小表，然后将以此将小表的第一个作为变量名，第二个作为变量值，给当前函数赋予变量。


=========2013/05/25更新
昨天贴上的命令流还是有误，不能更新变量值，后发现有一行代码有误，现更新上最新的，还望大家帮忙测试。
另，新码中，加入了infotext，即(PEACE:SaveSysVarPeace valname valvalue)变成 (PEACE:SaveSysVarPeace valname valvalue infotext)，也即，txt中存储变量的形式由（“变量名”  变量值）变为（“变量名”  变量值 “备注”），备注中可以存放对变量的描述。
贴上源码：

本帖子中包含更多资源

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

x

评分

参与人数 1明经币 +2 收起 理由
Gu_xl + 2 好主题奖励！

查看全部评分

"觉得好，就打赏"
打赏
还没有人打赏，支持一下

本帖被以下淘专辑推荐:

  • · 学习|主题: 95, 订阅: 8
回复

使用道具 举报

vlisp2012
发表于 2013-5-22 19:21:36 | 显示全部楼层
我也想知道这个问题，哪位高手路过？
回复 支持 反对

使用道具 举报

ZHENYOUDNG
发表于 2013-5-22 19:39:26 | 显示全部楼层
同求此类问题是解答！
回复 支持 反对

使用道具 举报

wowan1314
发表于 2013-5-22 20:37:22 | 显示全部楼层
本帖最后由 wowan1314 于 2013-5-22 20:39 编辑

5、CAD有15个自定义的环境变量。不过好像只存到图形，还不如字典好用。其他不清楚
4、txt文件保存很明显是可行的。可去研究下read-line及write-line这两函数.
3、注册表没玩过。帮你查到这两函数

注册表样例：

1）_$ (vl-registry-write "HKEY_CURRENT_USER\\Test" "" "test data")

"test data"

2）_$  (vl-registry-read "HKEY_CURRENT_USER\\Test")

"test data"
回复 支持 反对

使用道具 举报

张和平
 楼主| 发表于 2013-5-22 22:57:36 | 显示全部楼层
wowan1314 发表于 2013-5-22 20:37
5、CAD有15个自定义的环境变量。不过好像只存到图形，还不如字典好用。其他不清楚
4、txt文件保存很明显是 ...

注册表可按http://bbs.mjtd.com/thread-99350-1-1.html这个来弄，讲得比较清晰，，txt就不是很清楚了，我先按您的指引研究下那俩函数。。。感谢
回复 支持 反对

使用道具 举报

张和平
 楼主| 发表于 2013-5-23 08:52:32 | 显示全部楼层
早上来顶一下
回复 支持 反对

使用道具 举报

ucuc2003
发表于 2013-5-23 09:19:25 | 显示全部楼层
关注下这里
回复 支持 反对

使用道具 举报

张和平
 楼主| 发表于 2013-5-24 13:29:01 | 显示全部楼层
  2. (vl-load-com)
  3. (defun c:test()
  4.   (defun *error* (msg)
  5.     (princ "\n**error: ")
  6.     (princ msg)      ;_ 打印错误信息
  7.     (princ)         
  8.   )
  9.   (setq PEACE:SYSVAL1 1
  10.         PEACE:SYSVAL2 2
  11.         PEACE:SYSVAL3 3
  12.         PEACE:SYSVAL4 "4"
  13.         PEACE:SYSVAL5 "5"
  14.         PEACE:SYSVAL6 "DFFDS"
  15.   )
  16.   (PEACE:SYSVAL_SAVE (cons "PEACE:SYSVAL4" PEACE:SYSVAL4))
  17.   (PEACE:SYSVAL_SAVE (cons "PEACE:SYSVAL1" PEACE:SYSVAL1))
  18.   (PEACE:SYSVAL_SAVE (cons "PEACE:SYSVAL2" PEACE:SYSVAL2))
  19.   (PEACE:SYSVAL_SAVE (cons "PEACE:SYSVAL3" PEACE:SYSVAL3))
  20.   (PEACE:SYSVAL_SAVE (cons "PEACE:SYSVAL5" PEACE:SYSVAL5))
  21.   (PEACE:SYSVAL_SAVE (cons "PEACE:SYSVAL6" PEACE:SYSVAL6))
  22.   (princ (strcat "\n变量成功保存入" acadpath "\\PEACESYSVAL.TXT"))
  23.   (princ)
  24. )
  25. (defun PEACE:SYSVAL_SAVE(val / acadpath f)
  26.   (setq acadpath(vlax-get-property (vlax-get-acad-object) 'Path))
  27.   (IF (null (findfile "PEACESYSVAL.TXT"))
  28.     (progn
  29.       (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "w"))
  30.       (prin1 val f)
  31.       (close f)
  32.     )
  33.     (progn
  34.       (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "a"))
  35.       (write-line "" f)
  36.       (prin1 val f)
  37.       (close f)
  38.     )
  39.   )
  40.   (princ)
  41. )
变量以点表的形式保存入txt中，自动保存在ACAD安装目录下。
目前在保存这方面还有以下问题：
1、上述命令流中，对于(PEACE:SYSVAL_SAVE (cons "PEACE:SYSVAL4" PEACE:SYSVAL4))这个如何简化？我想把这个工作放到(PEACE:SYSVAL_SAVE)函数中去，即我引用的时候就是(PEACE:SYSVAL_SAVE PEACE:SYSVAL4)但是能达到现在的效果。
2、若我新保存的变量，在txt中已经存在了，那么就变成替换的问题了，不是简单地在后面append的问题了，我目前的构思是这样的：保存变量前，先把txt中的变量读取形成一个表，类似图元表，然后判断要保存的变量是否在表中已存在，若存在，便替换新值，若不存在，则append。不知有没有简单一点的方法。
回复 支持 反对

使用道具 举报

fl202
发表于 2013-5-24 17:42:34 | 显示全部楼层
放在txt中最简单，就用read-line及write-line，不用vl等函数，适用性广。把txt文件存在该dwg文档同一个文件夹下，安全，易于查看及修改，你的程序发布给别人后，别人也很好改。
至于变量值改变后，你可以先读出来，然后比较判断后再存，这方法已经很简单了，还要怎样？
回复 支持 反对

使用道具 举报

张和平
 楼主| 发表于 2013-5-24 18:07:00 | 显示全部楼层
编好了保存变量的函数，，自己测试通过，大家也帮忙测试一下。。。
这里主要涉及要几方面：
1、判断txt是否已经存在，若尚不存在则创建
2、判断变量在txt中是否已经存在，若存在则修改更新变量值，若不存在则增加此变量
  2. (vl-load-com)
  3. (defun c:test()
  4.   (defun *error* (msg)  ;错误处理函数
  5.     (princ "\n**error: ")
  6.     (princ msg)      ;_ 打印错误信息
  7.     (princ)         
  8.   )
  9.   (setq PEACE:SYSVAL1 3  ;设定变量
  10.         PEACE:SYSVAL2 2
  11.         PEACE:SYSVAL3 3
  12.         PEACE:SYSVAL4 "4"
  13.         PEACE:SYSVAL5 "5"
  14.         PEACE:SYSVAL6 "DFFDS"
  15.   )
  16.   
  17.   (PEACE:SAVESYSVAL "PEACE:SYSVAL1" PEACE:SYSVAL1)
  18.   (PEACE:SAVESYSVAL "PEACE:SYSVAL2" PEACE:SYSVAL2)
  19.   (PEACE:SAVESYSVAL "PEACE:SYSVAL3" PEACE:SYSVAL3)
  20.   (PEACE:SAVESYSVAL "PEACE:SYSVAL4" PEACE:SYSVAL4)
  21.   (PEACE:SAVESYSVAL "PEACE:SYSVAL5" PEACE:SYSVAL5)
  22.   (PEACE:SAVESYSVAL "PEACE:SYSVAL6" PEACE:SYSVAL6)
  23.   ;(princ (strcat "\n变量成功保存入" acadpath "\\PEACESYSVAL.TXT"))
  24.   (princ)
  25. )
  26. (defun PEACE:SaveSysVal(valname valvalue / acadpath f datalist data valvalue_old i isthere)
  27.   (setq acadpath(vlax-get-property (vlax-get-acad-object) 'Path))
  28.   (IF (null (findfile "PEACESYSVAL.TXT"))
  29.     (progn ;若文件不存在
  30.       (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "w"))
  31.       (prin1 (list valname valvalue) f)
  32.       (close f)
  33.     )
  34.     (progn ;若文件已存在
  35.       (setq datalist '())
  36.       (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "r"))
  37.         (while (setq data (read-line f))
  38.               (setq datalist (cons data datalist))
  39.         )
  40.         (reverse datalist)
  41.       (close f)
  42.       (princ "\n")
  43.       (princ datalist)
  44.       (setq       i 0
  45.             isthere 0)
  46.       (repeat (length datalist)
  47.         (if (= valname (car (read (nth i datalist))))
  48.           (progn
  49.           (setq datalist (subst (list valname valvalue) (read (nth i datalist)) datalist))
  50.           (setq isthere 1)
  51.           )
  52.         )
  53.         (setq i (1+ i))
  54.       )
  55.       (princ "\n")
  56.       (princ isthere)
  57.       (if (= 1 isthere)
  58.         (progn
  59.           (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "w"))
  60.           (prin1 (read (nth 0 datalist)) f)
  61.           (close f)
  62.           (setq i 1)
  63.           (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "a"))
  64.           (repeat (- (length datalist) 1)
  65.             (write-line "" f)
  66.             (prin1 (read (nth i datalist)) f)
  67.             (setq i (1+ i))
  68.           )
  69.           (close f)
  70.         )
  71.         (progn
  72.           (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "a"))
  73.           (write-line "" f)
  74.           (prin1 (list valname valvalue) f)
  75.           (close f)
  76.         )
  77.       )
  78.     )
  79.   )
  80.   (princ)
  81. )
回复 支持 反对

使用道具 举报

123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-12-24 02:41 , Processed in 0.195389 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表