【K:SetGetData】获取或更新全局变量

kucha007

用于简单的变量跨文件，期待其他人的解决方案~

2. ;获取或更新变量(系统+全局+黑板),不存在时更新为默认值(系统变量记录的全局变量值使用@@分隔)
   
3. (defun K:SetGetData (RecDATA SysNam VarLst  / K:STR->Lst K:Lst->STR XX SysLst a b)
   
4.     (progn  ;基础函数
   
5.           ;根据分隔符拆分字符串@LeeMac
   
6.           (defun K:STR->Lst (STR Del / len Lst pos)
   
7.             (setq len (1+ (strlen Del)))
   
8.             (while (setq pos (vl-string-search Del STR))
   
9.               (setq Lst (cons (substr STR 1 pos) Lst)
   
10.                     STR (substr STR (+ pos len))
    
11.               )
    
12.             )
    
13.             (reverse (cons STR Lst))
    
14.           )
    
15.           ;使用分隔符串联字符串@LeeMac
    
16.           (defun K:Lst->STR (Lst Del / STR)
    
17.             (setq STR (car Lst))
    
18.             (foreach itm (cdr Lst) (setq STR (strcat STR Del itm)))
    
19.             STR
    
20.           )
    
21.     )
    
22.     (if
    
23.         (vl-every
    
24.           '(lambda (XX)
    
25.               (and
    
26.                 (eval (read (car XX)));全局变量存在
    
27.                 (vl-bb-ref (read (car XX)));黑板空间存在同名变量
    
28.                 (eq (type (eval (read (car XX)))) 'STR);全局变量的值都为STR
    
29.                 (eq (type (vl-bb-ref (read (car XX)))) 'STR);全局变量的值都为STR
    
30.               )
    
31.           )
    
32.           VarLst
    
33.         );变量存在且类型都为STR
    
34.         (if RecDATA
    
35.             (progn
    
36.                 (setq SysLst (mapcar '(lambda (XX) (eval (read (car XX)))) VarLst));取全局
    
37.                 (setenv SysNam (K:Lst->STR SysLst "@@")) ;更新系统
    
38.                 (mapcar '(lambda (a b) (vl-bb-set (read (car a)) b)) VarLst SysLst) ;更新黑板
    
39.             );用全局更新黑板+系统
    
40.             (progn
    
41.                 (setq SysLst (mapcar '(lambda (XX) (vl-bb-ref (read (car XX)))) VarLst));取黑板
    
42.                 (setenv SysNam (K:Lst->STR SysLst "@@")) ;更新系统
    
43.                 (mapcar '(lambda (a b) (set (read (car a)) b)) VarLst SysLst) ;更新全局
    
44.             );用黑板更新全局+系统
    
45.         )
    
46.         (if
    
47.             (and
    
48.                 (getenv SysNam) ;系统变量存在
    
49.                 (setq SysLst (K:STR->Lst (getenv SysNam) "@@"));尝试从系统变量中提取全局变量的值
    
50.                 (eq (length SysLst) (length VarLst));值的数量相等
    
51.             )
    
52.             (mapcar '(lambda (a b)
    
53.                         (set (read (car a)) b);更新全局变量
    
54.                         (vl-bb-set (read (car a)) b);更新黑板空间的变量值
    
55.                     )
    
56.                     VarLst
    
57.                     SysLst
    
58.             )
    
59.             (progn
    
60.                 (setenv SysNam (K:Lst->STR (mapcar 'cadr VarLst) "@@")) ;更新系统变量为默认值
    
61.                 (mapcar '(lambda (XX) (set (read (car XX)) (cadr XX))) VarLst);更新全局变量为默认
    
62.                 (mapcar '(lambda (XX) (vl-bb-set (read (car XX)) (eval (read (car XX))))) VarLst);更新黑板空间变量为默认
    
63.             )
    
64.         )
    
65.     )(princ)
    
66. )

;获取或更新变量(系统+全局+黑板),不存在时更新为默认值(系统变量记录的全局变量值使用@@分隔)<br /> (defun K:SetGetData (RecDATA SysNam VarLst  / K:STR->Lst K:Lst->STR XX SysLst a b) <br />     (progn  ;基础函数<br />           ;根据分隔符拆分字符串@LeeMac<br />           (defun K:STR->Lst (STR Del / len Lst pos) <br />             (setq len (1+ (strlen Del)))<br />             (while (setq pos (vl-string-search Del STR)) <br />               (setq Lst (cons (substr STR 1 pos) Lst)<br />                     STR (substr STR (+ pos len))<br />               )<br />             )<br />             (reverse (cons STR Lst))<br />           )<br />           ;使用分隔符串联字符串@LeeMac<br />           (defun K:Lst->STR (Lst Del / STR) <br />             (setq STR (car Lst))<br />             (foreach itm (cdr Lst) (setq STR (strcat STR Del itm)))<br />             STR<br />           )<br />     )<br />     (if <br />         (vl-every <br />           '(lambda (XX) <br />               (and <br />                 (eval (read (car XX)));全局变量存在<br />                 (vl-bb-ref (read (car XX)));黑板空间存在同名变量<br />                 (eq (type (eval (read (car XX)))) 'STR);全局变量的值都为STR<br />                 (eq (type (vl-bb-ref (read (car XX)))) 'STR);全局变量的值都为STR<br />               )<br />           )<br />           VarLst<br />         );变量存在且类型都为STR<br />         (if RecDATA<br />             (progn<br />                 (setq SysLst (mapcar '(lambda (XX) (eval (read (car XX)))) VarLst));取全局<br />                 (setenv SysNam (K:Lst->STR SysLst "@@")) ;更新系统<br />                 (mapcar '(lambda (a b) (vl-bb-set (read (car a)) b)) VarLst SysLst) ;更新黑板<br />             );用全局更新黑板+系统<br />             (progn<br />                 (setq SysLst (mapcar '(lambda (XX) (vl-bb-ref (read (car XX)))) VarLst));取黑板<br />                 (setenv SysNam (K:Lst->STR SysLst "@@")) ;更新系统<br />                 (mapcar '(lambda (a b) (set (read (car a)) b)) VarLst SysLst) ;更新全局<br />             );用黑板更新全局+系统<br />         )<br />         (if <br />             (and<br />                 (getenv SysNam) ;系统变量存在<br />                 (setq SysLst (K:STR->Lst (getenv SysNam) "@@"));尝试从系统变量中提取全局变量的值<br />                 (eq (length SysLst) (length VarLst));值的数量相等<br />             )<br />             (mapcar '(lambda (a b) <br />                         (set (read (car a)) b);更新全局变量<br />                         (vl-bb-set (read (car a)) b);更新黑板空间的变量值<br />                     ) <br />                     VarLst <br />                     SysLst<br />             )<br />             (progn<br />                 (setenv SysNam (K:Lst->STR (mapcar 'cadr VarLst) "@@")) ;更新系统变量为默认值<br />                 (mapcar '(lambda (XX) (set (read (car XX)) (cadr XX))) VarLst);更新全局变量为默认<br />                 (mapcar '(lambda (XX) (vl-bb-set (read (car XX)) (eval (read (car XX))))) VarLst);更新黑板空间变量为默认<br />             )<br />         )<br />     )(princ)<br /> )

用法：

1. (setq *MkVarLst*
   
2.   (list
   
3.     (list "Global:RvLay" "1");1默认层,2当前层
   
4.     (list "Global:RvMde" "1");1修改,2批注,3检查
   
5.   )
   
6. );参数列表，自行扩写
   
7. (K:SetGetData Nil "K\\RRSysNam" *MkVarLst*);用黑板更新系统和全局(缺省取默认)
   
8. ;你的程序.........
   
9. (K:SetGetData T "K\\RRSysNam" *MkVarLst*);用全局更新系统和黑板
   

(setq *MkVarLst*<br />   (list <br />     (list "Global:RvLay" "1");1默认层,2当前层<br />     (list "Global:RvMde" "1");1修改,2批注,3检查<br />   )<br /> );参数列表，自行扩写<br /> (K:SetGetData Nil "K\\RRSysNam" *MkVarLst*);用黑板更新系统和全局(缺省取默认)<br /> ;你的程序.........<br /> (K:SetGetData T "K\\RRSysNam" *MkVarLst*);用全局更新系统和黑板<br />

guosheyang

感谢长老的分享！

tigcat

如果同时打开的各文档,可以用
A文档输入(vl-bb-set 'shili "nihao")
B文档输入(vl-bb-ref 'shili)可以得到"nihao"

kucha007

tigcat 发表于 2024-5-12 09:05
如果同时打开的各文档,可以用
A文档输入(vl-bb-set 'shili "nihao")
B文档输入(vl-bb-ref 'shili)可以得 ...

学到了！更新了一下函数！