主要用在对话框的数据保存和读取。set_tile对大小写是有区别的
setenv、getenv配合使用 菜卷鱼 发表于 2024-12-9 08:32
setenv、getenv配合使用
从文件读取保存的变量或者set_tile 、get_tile，当给tile 赋值或者取值时，大小写是不同，除非用类似strcat函数全部转换。 你从文件读取从set_tile 、get_tile值为什么要用read. 黄翔 发表于 2024-12-9 14:01
你从文件读取从set_tile 、get_tile值为什么要用read.
那用什么呢？
从文件读取不是用 open read-line
read-line 会保留大小写的啊.
wharan 发表于 2024-12-9 12:47
从文件读取保存的变量或者set_tile 、get_tile，当给tile 赋值或者取值时，大小写是不同，除非用类似strc ...
我一直用的setenv ,getenv ，没出过问题啊
(defun mx_tog_env ( / h z)
(setq z (mapcar 'get_tile '("z_dh" "z_mc" "z_sl" "z_cl" "z_bz")))
(setenv "mx_z_act" (strjoin z "-"))
(setq h (mapcar 'get_tile '("z_dh" "h_mc" "h_sl" "h_cl" "h_bz")))
(setenv "mx_h_act" (strjoin h "-"))
)
(defun mx_tog_init (/ zenv henv z h)
(setq zenv (getenv "mx_z_act"))
(setq henv (getenv "mx_h_act"))
(if (null zenv)
(progn
(setq zenv "0-0-0-0-0")
(setenv"mx_z_act" zenv))
)
(if (null henv)
(progn
(setq henv "0-0-0-0-0")
(setenv"mx_h_act" henv))
)
(setq z (split zenv "-"))
(setq h (split henv "-"))
(mapcar '(lambda (x y)
(set_tile x y)
)
'("z_dh" "z_mc" "z_sl" "z_cl" "z_bz")
z
)
(mapcar '(lambda (x y)
(set_tile x y)
)
'("h_dh" "h_mc" "h_sl" "h_cl" "h_bz")
h
)
)
页:
1
[2]