【K:SetGetUpdVar】获取或更新变量(全局+系统)

kucha007

最近接触了DCL，每个参数要一个变量感觉太麻烦了
干脆记录到一个系统变量，之后更新或提取为全局变量，方便跨文件使用DCL

2. ;获取或更新变量(全局+系统)，将所有参数记录到一个系统变量。
   
3. ;参数之间使用分号@@分隔，类型必须为字符串。Flag为是T时强制更新为默认值
   
4. (defun K:SetGetUpdVar (Flag SysNam VarLst / XX GlbLst SysLst a b)
   
5.   ;(K:SetGetUpdVar SysNam (list (list "Key名" "变量名" "默认值")...))
   
6.     (progn  ;基础函数
   
7.           ;根据分隔符拆分字符串@LeeMac
   
8.           (defun K:STR->Lst (STR Del / len Lst pos)
   
9.             (setq len (1+ (strlen Del)))
   
10.             (while (setq pos (vl-string-search Del STR))
    
11.               (setq Lst (cons (substr STR 1 pos) Lst)
    
12.                     STR (substr STR (+ pos len))
    
13.               )
    
14.             )
    
15.             (reverse (cons STR Lst))
    
16.           )
    
17.           ;使用分隔符串联字符串@LeeMac
    
18.           (defun K:Lst->STR (Lst Del / STR)
    
19.             (setq STR (car Lst))
    
20.             (foreach itm (cdr Lst) (setq STR (strcat STR Del itm)))
    
21.             STR
    
22.           )
    
23.     )
    
24.     (setq SysNam (strcat "K\" SysNam));系统变量名
    
25.     (setq VarLst
    
26.         (mapcar
    
27.           '(lambda (XX) (list (nth 0 XX) (strcat "Global:" (nth 1 XX)) (nth 2 XX)))
    
28.           VarLst
    
29.         )
    
30.     );全局变量名补全
    
31.     (mapcar
    
32.       '(lambda (XX)
    
33.         (if (and (nth 0 XX)(get_tile (nth 0 XX)))
    
34.             (set (read (nth 1 XX)) (get_tile (nth 0 XX)))
    
35.         )
    
36.       )
    
37.       VarLst
    
38.     );获取DCL对应Key的值,更新对应的全局变量
    
39.   
    
40.     (if Flag ;强制更新变量值
    
41.         (progn
    
42.             (setenv SysNam (K:Lst->STR (mapcar 'caddr VarLst) "@@")) ;更新系统变量为默认值
    
43.             (mapcar '(lambda (XX) (set (read (nth 1 XX)) (nth 2 XX))) VarLst);更新全局变量为默认
    
44.         )
    
45.         (if
    
46.             (vl-every
    
47.               '(lambda (XX)
    
48.                 (and
    
49.                   (eval (read (nth 1 XX)))
    
50.                   (eq (type (eval (read (nth 1 XX)))) 'STR)
    
51.                 )
    
52.               )
    
53.               VarLst
    
54.             );全局变量都存在且都为STR
    
55.             (progn
    
56.                 (mapcar '(lambda (xx) (setq GlbLst (cons (eval (read (nth 1 XX))) GlbLst ))) VarLst);收集全局变量
    
57.                 (setenv SysNam (K:Lst->STR (reverse GlbLst) "@@")) ;更新系统变量
    
58.             )
    
59.             (if
    
60.               (and
    
61.                   (getenv SysNam) ;系统变量存在
    
62.                   (setq SysLst (K:STR->Lst (getenv SysNam) "@@"));尝试从系统变量中提取全局变量
    
63.                   (eq (length SysLst) (length VarLst));数量相等
    
64.               )
    
65.               (progn
    
66.                   (mapcar '(lambda (a b) (set (read (nth 1 a)) b)) VarLst SysLst);更新全局变量
    
67.               )
    
68.               (progn
    
69.                   (setenv SysNam (K:Lst->STR (mapcar 'caddr VarLst) "@@")) ;更新系统变量为默认值
    
70.                   (mapcar '(lambda (XX) (set (read (nth 1 XX)) (nth 2 XX))) VarLst);更新全局变量为默认
    
71.               )
    
72.             )
    
73.         )
    
74.     )
    
75.     (princ)
    
76. )

;获取或更新变量(全局+系统)，将所有参数记录到一个系统变量。<br /> ;参数之间使用分号@@分隔，类型必须为字符串。Flag为是T时强制更新为默认值<br /> (defun K:SetGetUpdVar (Flag SysNam VarLst / XX GlbLst SysLst a b) <br />   ;(K:SetGetUpdVar SysNam (list (list "Key名" "变量名" "默认值")...))<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 />     (setq SysNam (strcat "K\" SysNam));系统变量名<br />     (setq VarLst <br />         (mapcar <br />           '(lambda (XX) (list (nth 0 XX) (strcat "Global:" (nth 1 XX)) (nth 2 XX)))<br />           VarLst<br />         )<br />     );全局变量名补全<br />     (mapcar <br />       '(lambda (XX) <br />         (if (and (nth 0 XX)(get_tile (nth 0 XX)))<br />             (set (read (nth 1 XX)) (get_tile (nth 0 XX)))<br />         )<br />       )<br />       VarLst<br />     );获取DCL对应Key的值,更新对应的全局变量<br />   <br />     (if Flag ;强制更新变量值<br />         (progn<br />             (setenv SysNam (K:Lst->STR (mapcar 'caddr VarLst) "@@")) ;更新系统变量为默认值<br />             (mapcar '(lambda (XX) (set (read (nth 1 XX)) (nth 2 XX))) VarLst);更新全局变量为默认 <br />         )<br />         (if <br />             (vl-every <br />               '(lambda (XX) <br />                 (and <br />                   (eval (read (nth 1 XX)))<br />                   (eq (type (eval (read (nth 1 XX)))) 'STR)<br />                 )<br />               )<br />               VarLst<br />             );全局变量都存在且都为STR<br />             (progn<br />                 (mapcar '(lambda (xx) (setq GlbLst (cons (eval (read (nth 1 XX))) GlbLst ))) VarLst);收集全局变量<br />                 (setenv SysNam (K:Lst->STR (reverse GlbLst) "@@")) ;更新系统变量<br />             )<br />             (if <br />               (and<br />                   (getenv SysNam) ;系统变量存在<br />                   (setq SysLst (K:STR->Lst (getenv SysNam) "@@"));尝试从系统变量中提取全局变量<br />                   (eq (length SysLst) (length VarLst));数量相等<br />               )<br />               (progn<br />                   (mapcar '(lambda (a b) (set (read (nth 1 a)) b)) VarLst SysLst);更新全局变量<br />               )<br />               (progn<br />                   (setenv SysNam (K:Lst->STR (mapcar 'caddr VarLst) "@@")) ;更新系统变量为默认值<br />                   (mapcar '(lambda (XX) (set (read (nth 1 XX)) (nth 2 XX))) VarLst);更新全局变量为默认<br />               )<br />             )<br />         )<br />     )<br />     (princ)<br /> )

详细用法：

1. (setq Global:VarLst
   
2.     (list
   
3.       (list "Key1" "Nam1" "Var1");参数1
   
4.       (list "Key2" "Nam2" "Var2");参数2
   
5.     )
   
6. );参数列表，自行扩写
   
7. 
   
8. (K:SetGetUpdVar Nil "ZZMLSys" Global:VarLst);有全局变量时更新系统变量，无全局变量时获取系统变量(若无则设置为默认值)
   
9. (K:SetGetUpdVar T "ZZMLSys" Global:VarLst);强制更新为默认
   

(setq Global:VarLst<br />     (list <br />       (list "Key1" "Nam1" "Var1");参数1<br />       (list "Key2" "Nam2" "Var2");参数2<br />     )<br /> );参数列表，自行扩写<br /> <br /> (K:SetGetUpdVar Nil "ZZMLSys" Global:VarLst);有全局变量时更新系统变量，无全局变量时获取系统变量(若无则设置为默认值)<br /> (K:SetGetUpdVar T "ZZMLSys" Global:VarLst);强制更新为默认<br />

返回结果：

1. (princ (getenv "K\\ZZMLSys"));系统变量
   
2. (princ Global:Nam1);参数1全局变量
   
3. (princ Global:Nam2);参数2全局变量
   
4. ....
   

(princ (getenv "K\\ZZMLSys"));系统变量<br /> (princ Global:Nam1);参数1全局变量<br /> (princ Global:Nam2);参数2全局变量<br /> ....<br />

lxl217114

给大佬点赞，太高产了哇

magicheno

感谢大佬分享，感觉还是不太会用，看不懂

czb203

太高级了，不会用哦

376394482

谢谢大佬分享的源码