关于 Getenv / Setenv

Free-Lancer

getenv / setenv 是环境变量存取函数，做一个测试
(getenv "mydata") => nil
(setenv "mydata" "1.0") => "1.0" 这里需要 string 格式
(getenv "mydata") => "1.0")

关闭 ACAD，重新启动后
(getenv "mydata") => "1.0"

自定义的 "mydata" 竟然保存了！问题是这个变量保存到哪里了？

在注册表搜索可以看到保存在这里

HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R19.1\ACAD-D001:804\FixedProfile\General

用这个方法可以将一些数据保存，然后每个图形都可以共享了

XDSoft

不外乎注册表，文件了。应该在注册表里面。

newer

Free-Lancer

这个写注册表不知道和管理员模式有无关系

如果在非管理员下可以写入是不是有些记录可以这样往注册表写

高山流水

WIN7 64位 需要管理员身份才能修改注册表。
个人认为，插件全局变量最好不要在注册表中保存，一来图纸较多时增加了注册表的负荷，二来没有管理员身份登录时，无法修改这些系统变量；VLISP的全局变量，我倾向于保存在词典中：

2. 
   
3. ;;; 读取或创建自己的词典数据
   
4. (defun ss-ldata-get  (dict l)
   
5.   (if (snvalid dict)
   
6.     (mapcar (function (lambda (a / b)
   
7.    (if (and (car a) (= (type (car a)) 'STR) (snvalid (car a)))
   
8.      (if (setq b (vlax-ldata-get dict (car a) nil));_(vlax-ldata-get "GSLS" "#gsls_ctbl#" nil)
   
9.        (set (read (car a)) (read b))
   
10.        (if (and (cdr a) (= (type (cdr a)) 'STR) (snvalid (cdr a)))
    
11.          (progn (vlax-ldata-put dict (car a) (cdr a))
    
12.          (set (read (car a)) (read (cdr a)))))))))
    
13.      l)
    
14.     )
    
15.   )
    
16. ;;; 保存自己的词典数据
    
17. (defun ss-ldata-put  (dict l)
    
18.   (if (snvalid dict)
    
19.     (mapcar (function (lambda (a / b)
    
20.    (if (and (car a) (= (type (car a)) 'STR) (snvalid (car a)))
    
21.      (if (or (setq b (vl-prin1-to-string (eval (read (car a)))))
    
22.       (setq b (cdr a)))
    
23.        (vlax-ldata-put dict (car a) b)))))
    
24.      l)
    
25.     )
    
26.   )
    

<br /> ;;; 读取或创建自己的词典数据<br /> (defun ss-ldata-get  (dict l)<br />   (if (snvalid dict)<br />     (mapcar (function (lambda (a / b)<br />    (if (and (car a) (= (type (car a)) 'STR) (snvalid (car a)))<br />      (if (setq b (vlax-ldata-get dict (car a) nil));_(vlax-ldata-get "GSLS" "#gsls_ctbl#" nil)<br />        (set (read (car a)) (read b))<br />        (if (and (cdr a) (= (type (cdr a)) 'STR) (snvalid (cdr a)))<br />          (progn (vlax-ldata-put dict (car a) (cdr a))<br />          (set (read (car a)) (read (cdr a)))))))))<br />      l)<br />     )<br />   )<br /> ;;; 保存自己的词典数据<br /> (defun ss-ldata-put  (dict l)<br />   (if (snvalid dict)<br />     (mapcar (function (lambda (a / b)<br />    (if (and (car a) (= (type (car a)) 'STR) (snvalid (car a)))<br />      (if (or (setq b (vl-prin1-to-string (eval (read (car a)))))<br />       (setq b (cdr a)))<br />        (vlax-ldata-put dict (car a) b)))))<br />      l)<br />     )<br />   )<br />

使用举例：

2. 
   
3. (defun c:ss_CSSZ(/ dialog_name dialog_column_name)
   
4.   (setq dialog_name    "高山流水结构工具箱"
   
5. dialog_column_name "全局参数设置")
   
6.   (ss-ldata-get "GSLS" (list (cons "#GSLS_CTBL#" "100.0")
   
7.          (cons "#GSLS_HTBL#" "1.0")
   
8.          (cons "#GSLS_WK_PYJL#" "0.0")
   
9.          (cons "#GSLS_pline_union_max_distance#" "5.0")
   
10.          (cons "gsls_pline_wid" "50.")
    
11.          (cons "gsls_pline_off" "200.")
    
12.          (cons "CS_YDIS" "1.2")
    
13.          (cons "gsls_hatchpat_path" ""F:\\\\结构填充图案"" )
    
14.          (cons "gsls_hgj_gjzj" "30.0")
    
15.                 (cons "gsls_filletrad" "100.0")))
    
16.   (if (= (init initlist-acad "dlg" "gslstool.ini") 1)
    
17.     (progn
    
18.      (ss-ldata-put "GSLS" (list (cons "#GSLS_CTBL#" "100.0");_(vlax-ldata-get "GSLS" "#GSLS_CTBL#")
    
19.          (cons "#GSLS_HTBL#" "1.0")
    
20.          (cons "#GSLS_WK_PYJL#" "0.0")
    
21.          (cons "#GSLS_pline_union_max_distance#" "5.0")
    
22.          (cons "gsls_pline_wid" "50.")
    
23.          (cons "gsls_pline_off" "200.")
    
24.          (cons "CS_YDIS" "1.2")
    
25.          (cons "gsls_hatchpat_path" ""F:\\\\结构填充图案"" )
    
26.          (cons "gsls_filletrad" "100.0")))
    
27.     (princ "\n高山流水结构工具箱全局参数初始化成功!")
    
28.     )
    
29.     (princ "\n***初始化失败，命令被取消***"))
    
30.   (princ)
    
31.   )
    

<br /> (defun c:ss_CSSZ(/ dialog_name dialog_column_name)<br />   (setq dialog_name    "高山流水结构工具箱"<br /> dialog_column_name "全局参数设置")<br />   (ss-ldata-get "GSLS" (list (cons "#GSLS_CTBL#" "100.0")<br />          (cons "#GSLS_HTBL#" "1.0")<br />          (cons "#GSLS_WK_PYJL#" "0.0")<br />          (cons "#GSLS_pline_union_max_distance#" "5.0")<br />          (cons "gsls_pline_wid" "50.")<br />          (cons "gsls_pline_off" "200.")<br />          (cons "CS_YDIS" "1.2")<br />          (cons "gsls_hatchpat_path" ""F:\\\\结构填充图案"" )<br />          (cons "gsls_hgj_gjzj" "30.0")<br />                 (cons "gsls_filletrad" "100.0")))<br />   (if (= (init initlist-acad "dlg" "gslstool.ini") 1)<br />     (progn<br />      (ss-ldata-put "GSLS" (list (cons "#GSLS_CTBL#" "100.0");_(vlax-ldata-get "GSLS" "#GSLS_CTBL#")<br />          (cons "#GSLS_HTBL#" "1.0")<br />          (cons "#GSLS_WK_PYJL#" "0.0")<br />          (cons "#GSLS_pline_union_max_distance#" "5.0")<br />          (cons "gsls_pline_wid" "50.")<br />          (cons "gsls_pline_off" "200.")<br />          (cons "CS_YDIS" "1.2")<br />          (cons "gsls_hatchpat_path" ""F:\\\\结构填充图案"" )<br />          (cons "gsls_filletrad" "100.0")))<br />     (princ "\n高山流水结构工具箱全局参数初始化成功!")<br />     )<br />     (princ "\n***初始化失败，命令被取消***"))<br />   (princ)<br />   )<br />

Free-Lancer

高山流水 发表于 2014-10-17 22:54
WIN7 64位 需要管理员身份才能修改注册表。
个人认为，插件全局变量最好不要在注册表中保存，一来图纸较多 ...

ldata 保存是最简单易用方法，环境变量一直没有见到 Autodesk 全面官方介绍