![原创]利用词典中的非图形对象数据共享方法

yxp

谢谢各位大侠.本人已成功完成这项功能! 可以将数据保存在非图形对象中,随DWG文件一起保存,需要时可以随时提取. 我相信这是程序中公用数据共享的最有效方法, 不敢独享,贴上来与大家分享.其中Q1,Q2,Q3是你自己的数据,可以再定义! (defun c:xrec ( / xname xrec aa )
(setq q1 1
q2 1000
q3 0.001)

(if (setq aa (dictsearch (namedobjdict) "BZD"))
(progn (princ aa)(princ))
(progn
(setq xrec '((0 . "XRECORD")
(100 . "AcDbXrecord")
(1 . "程序开发 yxp")
(10 1 1.0 2.0)
))
(setq xname (entmakex xrec))
(dictadd (namedobjdict) "BZD" xname)
)
)
(cxrecord "BZD" 10 (list 10 q1 q2 q3))

(dictsearch (namedobjdict) "BZD") (princ) ) ;更新数据
(defun cxrecord (cx_name cx_code cx_newl / cxlist cxename)
(setq cxlist (dictsearch (namedobjdict) cx_name))
(dictremove (namedobjdict) cx_name)
(setq cxlist (subst cx_newl (assoc cx_code cxlist ) cxlist)
cxename (entmakex cxlist)
)
(dictadd (namedobjdict) cx_name cxename)
)

yxp

感谢龙哥和meflying兄的支持, 这下我的很多lisp程序中的参数就可以随DWG文件一起保存了. 不用打开每个DWG图形时都要重新进行这些参数的设置,(因为这些的图形的参数都不相同.) 哈哈,太好了.

yxp

再笑一声,哈.

cqnj023

很好

我爱lisp

呵呵，知识无穷尽！！！

Ea

另存一个版本后还有数据吗？

smartstar

找了好久，谢谢楼主。

lijiao

用ldata数据岂不更简单

半夜星星

不会这种功能啊，希望我也能做到就好了，楼主的程序我试了，好像不行啊

半夜星星

关闭就失效了