设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 程序（函数）库 › LISP/VLISP函数库 › [LISP函数]保存变量至txt，从txt读取变量
返回列表 发新帖
查看: 2735|回复: 11

[LISP函数]保存变量至txt，从txt读取变量

[复制链接]
张和平

已领礼包: 2个

财富等级: 恭喜发财
发表于 2013-8-16 08:58:14 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
  2. ;保存peace系统变量，保存到cad安装目录下的PEACESYSVAL.TXT by PEACE 2013/05/25
  3. (defun PEACE:SaveSysVarPeace(valname valvalue infotext / acadpath f datalist data valvalue_old i isthere)
  4.   (setq acadpath(vlax-get-property (vlax-get-acad-object) 'Path))
  5.   (if (= infotext "")(setq infotext "no infotext"))
  6.   (if (null (findfile "PEACESYSVAL.TXT"))
  7.     (progn ;若文件不存在
  8.       (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "w"))
  9.       (prin1 (list valname valvalue infotext) f)
  10.       (close f)
  11.     )
  12.     (progn ;若文件已存在
  13.       (setq datalist '())
  14.       (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "r"))
  15.         (while (setq data (read-line f))
  16.         (setq datalist (cons data datalist))
  17.         )
  18.       (close f)
  19.       (setq datalist (reverse datalist))
  20.       (setq       i 0
  21.             isthere 0)
  22.       (repeat (length datalist)
  23.         (if (= valname (car (read (nth i datalist))))
  24.           (progn
  25.           (setq datalist (subst (vl-prin1-to-string (list valname valvalue infotext)) (nth i datalist) datalist))
  26.           (setq isthere 1)
  27.           )
  28.         )
  29.         (setq i (1+ i))
  30.       )
  31.       (if (= 1 isthere)
  32.         (progn
  33.           (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "w"))
  34.           (prin1 (read (nth 0 datalist)) f)
  35.           (close f)
  36.           (setq i 1)
  37.           (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "a"))
  38.           (repeat (- (length datalist) 1)
  39.             (write-line "" f)
  40.             (prin1 (read (nth i datalist)) f)
  41.             (setq i (1+ i))
  42.           )
  43.           (close f)
  44.         )
  45.         (progn
  46.           (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "a"))
  47.           (write-line "" f)
  48.           (prin1 (list valname valvalue infotext) f)
  49.           (close f)
  50.         )
  51.       )
  52.     )
  53.   )
  54.   (princ)
  55. )
  56. ;读取peace系统变量 by PEACE 2013/05/25
  57. (defun PEACE:ReadSysVarPeace( / acadpath data datalist i f)
  58.   (setq acadpath(vlax-get-property (vlax-get-acad-object) 'Path))
  59.   (if (findfile "PEACESYSVAL.TXT")
  60.     (progn
  61.     (setq datalist '())
  62.     (setq f (open (strcat acadpath "\\PEACESYSVAL.TXT") "r"))
  63.       (while (setq data (read-line f))
  64.       (setq datalist (cons data datalist))
  65.       )
  66.       (reverse datalist)
  67.     (close f)
  68.     (setq i 0)
  69.     (repeat (length datalist)
  70.       (set (read (car (read (nth i datalist)))) ;注意字符和表之间的转换，字符串是不能作为变量名的
  71.            (cadr (read (nth i datalist)))       ;car对字符串也是不起作用的
  72.       )
  73.       (setq i (1+ i))
  74.     )
  75.     )
  76.   nil
  77.   )
  78. )

本帖被以下淘专辑推荐:

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

10105
发表于 2014-3-9 19:44:58 | 显示全部楼层
{:soso_e179:}
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

kkt123
发表于 2015-2-12 11:12:40 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
:Q:Q获得列表框指定的宏工程对象:Q
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

vlisp2012

已领礼包: 396个

财富等级: 日进斗金
发表于 2015-5-24 07:55:18 | 显示全部楼层
:D多谢分享了！！！！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

sicky111

已领礼包: 6468个

财富等级: 富甲天下
发表于 2016-12-29 21:53:16 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
这个很好用。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cq_qg68

已领礼包: 312个

财富等级: 日进斗金
发表于 2017-2-24 09:01:34 | 显示全部楼层
很好用！谢谢分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

凝思

已领礼包: 5个

财富等级: 恭喜发财
发表于 2017-3-21 10:18:39 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
正需要，支持楼主大人了！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

spacevalue

已领礼包: 6个

财富等级: 恭喜发财
发表于 2018-6-16 11:16:50 | 显示全部楼层
感谢分享。。。。。。。。。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

fengyun7000

已领礼包: 55个

财富等级: 招财进宝
发表于 2018-10-6 12:17:22 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
点个赞，必须的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

kqqt6236

已领礼包: 6056个

财富等级: 富甲天下
发表于 2019-1-18 00:14:01 | 显示全部楼层
谢谢分享。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

香远益清

已领礼包: 47个

财富等级: 招财进宝
发表于 2020-1-4 10:26:00 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
正需要，支持楼主大人了！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

MUYIY

已领礼包: 33个

财富等级: 招财进宝
发表于 2022-6-7 23:07:59 | 显示全部楼层
支持楼主
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

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

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-23 01:23 , Processed in 0.482128 second(s), 51 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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