设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 144|回复: 3

[源码] 变量值跟随文档保存,数据跟随图纸

[复制链接]
发表于 2020-9-13 16:04:35 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
  1. (DEFUN $ldata-0$ (tag data / obj old new)
  2.                                         ;数据跟随文档,变量值跟随文档
  3.                                         ;调用示例:($ldata-0$ "database"(list(cons "path"(strcat (getvar 'dwgprefix) "data.db"))(cons "time"(menucmd "M=$(edtime,$(getvar,date),YYYY\";\"M\";\"HH\";\"MM\";\"SS\";\")"))(cons "ver" "A")))
  4.                  ;|返回:
  5.   '(("database2"
  6.      ("path" . "C:\\Users\\Administrator\\Desktop\\data.db")
  7.      ("time" . "2020;9;15;50;14;")
  8.      ("ver" . "A")
  9.    )
  10.     ("database1"
  11.       ("path" . "C:\\Users\\Administrator\\Desktop\\data.db")
  12.       ("time" . "2020;9;15;53;15;")
  13.       ("ver" . "A")
  14.     )
  15.   )
  16.   |;
  17.   (setq        obj (vla-item (vla-get-Layers
  18.                         (vla-get-ActiveDocument
  19.                           (vlax-get-acad-object)
  20.                         )
  21.                       )
  22.                       "0"
  23.             )
  24.   )
  25.   (if (and tag data)
  26.     (progn
  27.       (SETQ OLD (vlax-ldata-get obj "data"))
  28.       (cond
  29.         ((assoc tag old)
  30.          (and
  31.            (setq new (MAPCAR (FUNCTION (LAMBDA (A)
  32.                                          (IF (= (CAR A) tag)
  33.                                            (setq a (cons tag data))
  34.                                          )
  35.                                          a
  36.                                        )
  37.                              )
  38.                              OLD
  39.                      )
  40.            )
  41.            (setq new (vl-remove nil new))
  42.          )
  43.         )
  44.         (t
  45.          (setq new (append OLD (list (cons tag data))))
  46.          (setq new (vl-remove nil new))
  47.         )
  48.       )
  49.       (and obj new (vlax-ldata-put OBJ "data" new))
  50.     )
  51.   )
  52.   (if obj
  53.     (vlax-ldata-get obj "data")
  54.   )
  55. )




评分

参与人数 2D豆 +25 收起 理由
XDSoft + 20 很给力!经验;技术要点;资料分享奖!
/db_自贡黄明儒_ + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

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

已领礼包: 205个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 3023个

财富等级: 富可敌国

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

使用道具 举报

点击这里给我发消息

已领礼包: 5958个

财富等级: 富甲天下

发表于 2020-9-16 10:54:44 | 显示全部楼层
谢谢大师
请教:如何将这几个变量保存在图中,关闭此图后再打开时如何调用这几个变量?谢谢。
(setq AAA 12345)
(setq BBB "135")
(setq CCC "DFDFDF")
(setq DDD 2323232)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2020-9-25 10:29 , Processed in 0.068939 second(s), 36 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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