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

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 【讨论】保存程序系统变量
123下一页
返回列表 发新帖
楼主: 张和平

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

[复制链接]
张和平
 楼主| 发表于 2013-5-24 18:07:48 | 显示全部楼层
fl202 发表于 2013-5-24 17:42
放在txt中最简单，就用read-line及write-line，不用vl等函数，适用性广。把txt文件存在该dwg文档同一个文件 ...

你看看我编好的，不知道你们是怎么编的，不放发上来探讨一下。。。
我的在10楼
回复 支持 反对

使用道具 举报

张和平
 楼主| 发表于 2013-5-24 21:42:37 | 显示全部楼层
固然被G版评分了，，，荣幸啊，，不过G版也加入讨论啊，，给些参考，，，
回复 支持 反对

使用道具 举报

张和平
 楼主| 发表于 2013-5-24 22:14:41 | 显示全部楼层
继续更新上读取存在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. )
回复 支持 反对

使用道具 举报

张和平
 楼主| 发表于 2013-5-25 14:01:40 | 显示全部楼层
昨天放上的源码还是有误，今天放上更新之后的。
回复 支持 反对

使用道具 举报

fl202
发表于 2013-7-2 16:56:41 | 显示全部楼层
你编程序的时候，变量名起的很长，好像很多人都这样，我感觉写着累，别人看着也累，执行起来变量名超过6个字符的理论上速度也慢一点，不明白为什么都这么做？
你最终的程序是放在1楼还是10楼还是哪里？
你这个程序的目的是？注册还是怎样？
做项目的时候，一个项目的图框中有些内容是固定的，比如那个公司，那个设计阶段，我把这些数值放在txt文件中，这样在同一个文件夹下，不同的图纸文件都调用这个txt，把这些数值写到图框的固定位置中去。你看看，不知道是否对你有用。
(setq ff (findfile "tk1.txt"))
  (setq ff1 (open ff "r"))
  (setq b4 '() b1 '() b2'() n 1)
   (setq b3 (read-line ff1))
   (if (null b3)
     (progn
            (close ff1)       (setq ff1 (open ff "w"))
            (setq ktxt1 (strcat "\"" "08009" "\"" " " "\"" "801" "\"" " "
                                "\"" "车间" "\"" " " "\"" "有限公司" "\"" " "
                            "\"" "万吨/年产品" "\""))
             (write-line ktxt1 ff1)      
            (setq ktxt1 (strcat "\"" "08010" "\"" " " "\"" "285" "\"" " "
                                "\"" "车间" "\"" " " "\"" "有限公司" "\"" " "
                            "\"" "万吨/年产品" "\""))
             (write-line ktxt1 ff1)
  (close ff1)
            (setq ff1 (open ff "r"))  (setq b3 (read-line ff1))
       ))
   (while b3
        (setq b2 (read (strcat "(" b3 ")")))
        (setq b1 (cons (nth 0 b2) b1)) ;(print b1)
        (setq b4 (cons b2 b4))
        (setq n (1+ n))
       (setq b3 (read-line ff1))
     )  
  (close ff1)
(setq b1 (reverse b1))  (setq b4 (reverse b4)); (print (assoc "08010" b4))
回复 支持 反对

使用道具 举报

张和平
 楼主| 发表于 2013-7-3 08:52:57 | 显示全部楼层
fl202 发表于 2013-7-2 16:56
你编程序的时候，变量名起的很长，好像很多人都这样，我感觉写着累，别人看着也累，执行起来变量名超过6个字 ...

我这个的作用是保存编制的软件的变量，比如画根pline，我定义过宽度，那么我要他记住，下次读取一下，不用重新设置了。
变量名取得长是因为避免变量名重复，特别是全局变量。
回复 支持 反对

使用道具 举报

张和平
 楼主| 发表于 2013-7-3 08:57:51 | 显示全部楼层
fl202 发表于 2013-7-2 16:56
你编程序的时候，变量名起的很长，好像很多人都这样，我感觉写着累，别人看着也累，执行起来变量名超过6个字 ...

最后的命令流放在一楼。
回复 支持 反对

使用道具 举报

gtj116600
发表于 2013-7-15 06:01:01 | 显示全部楼层
peace变量讨论，研究的很细呀
回复 支持 反对

使用道具 举报

vectra
发表于 2013-7-15 08:47:18 | 显示全部楼层
fl202 发表于 2013-7-2 16:56
你编程序的时候，变量名起的很长，好像很多人都这样，我感觉写着累，别人看着也累，执行起来变量名超过6个字 ...

考虑速度就不要用LISP了，代码关键还是易读易懂好，我的函数名、变量名还要长，哈哈
回复 支持 反对

使用道具 举报

vectra
发表于 2013-7-15 09:29:35 | 显示全部楼层

楼主想得太复杂了 看我的。。。

本帖最后由 vectra 于 2013-7-15 09:33 编辑

  1. (defun ace-config-restore (filename / f line text data)
  2.   (setq        f    (open filename "r")
  3.         text ""
  4.   )
  5.   (while (setq line (read-line f))
  6.     (setq text (strcat text line))
  7.   )
  8.   (close f)

  10.   (setq data (read text))
  11.   (mapcar '(lambda (x) (set (car x) (cdr x))) data)
  12. )


  15. (defun ace-config-save (filename symbols / f data)
  16.   (setq
  17.     data
  18.      (apply
  19.        'list
  20.        (mapcar
  21.          '(lambda (x) (cons x (vl-symbol-value x)))
  22.          symbols
  23.        )
  24.      )
  25.   )
  26.   (setq f (open filename "w"))
  27.   (prin1 data f)
  28.   (close f)
  29. )

Sample:

_$ (setq val1 "Text1")
"Text1"
_$ (setq val2 pi)
3.14159
_$ (setq val3 42)
42
_$ (ace-config-save "d:/config.txt" '(val1 val2 val3))
nil
_$ (setq val1 "changed..")
"changed.."
_$ (ace-config-restore "d:/config.txt")
("Text1" 3.14159 42)
_$ val1
"Text1"

评分

参与人数 1明经币 +1 收起 理由
冰之绝恋 + 1 简单粗暴+1

查看全部评分

回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-12-24 02:09 , Processed in 0.205194 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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