[求助]：[必看]：lisp如何保存i小数据或变量值至当前DWG文件中

mochaolong

请各位朋友帮忙,如何用LISP 直接或间接保存一变量的值到当前DWG文件中,以后打开图形就不需要设置,如保存当前的图形比例值"1:2000"
用纯LISP支2000以上的版本

xxsheng

(setenv "ourdwgscale" "1:2000")
;保存,
(getenv "ourdwgscale")
;读取

taner

将变量写入注册表.
举例:

2. 
   
3.   [FONT=courier new]
   
4. (setq arrow (vl-registry-read "HKEY_CURRENT_USER\\Software\\Autodesk\\THCAD"
   
5.                                 "arrow"
   
6.               )
   
7.   )
   
8.   (if arrow
   
9.     (setq arrow (ureal 7 "" "\n\t请输入箭头长度" (read arrow)))
   
10.     (setq arrow (ureal 7 "" "\n\t请输入箭头长度<--->" arrow))
    
11.   )
    
12.   (vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\THCAD" "arrow"
    
13.                      (rtos arrow)
    
14.   )
    
15.   [/FONT]
    

<br />   [FONT=courier new]<br /> (setq arrow (vl-registry-read "HKEY_CURRENT_USER\\Software\\Autodesk\\THCAD"<br />                                 "arrow"<br />               )<br />   )<br />   (if arrow<br />     (setq arrow (ureal 7 "" "\n\t请输入箭头长度" (read arrow)))<br />     (setq arrow (ureal 7 "" "\n\t请输入箭头长度<--->" arrow))<br />   )<br />   (vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\THCAD" "arrow"<br />                      (rtos arrow)<br />   )<br />   [/FONT]<br />

xhq1954425

看楼主的帖子是希望用纯LISP写的……，我也是希望这样，因为楼上的我是有点看不懂，不知用纯LISP能否编写？

taner

http://www.xdcad.net/forum/showthread.php?s=&threadid=486574   15楼

cy956

用注册表写数据，不能针对每张图保存。UserXXX，也容易和其它软件冲突，还是用LlDATA方便些。

mochaolong

感谢二楼楼主
实现上面的功能由如下几个函数组成
vlax-ldata-get、 vlax-ldata-delete、 vlax-ldata-list 和 vlax-ldata-put 函数。
具体的使用方法在论坛中以前也讲过,请大家搜索相关函数的使用就能了解详细,

xhq1954425

感谢楼上几位出手相助，谢谢！