xshrimp,求你的两个函数getvalue和setvalue，谢谢
 

xshrimp,求你的两个函数getvalue和setvalue，谢谢
www.dimcax.com
xshrimp,求你的两个函数getvalue和setvalue，谢谢xshrimp哥，帮帮我啊
d
回复：（koyote）xshrimp,求你的两个函数getvalue和se...这个是秋枫的代码
;;设置保存值
(defun setvalue (key value)
(if (assoc key dclvalues)
(setq dclvalues (subst (cons key value)
(assoc key dclvalues)
dclvalues
)
)
(setq dclvalues (cons (cons key value) dclvalues))
)
)
;;读取保存值
(defun getvalue (key / r)
(if (assoc key dclvalues)
(cdr (assoc key dclvalues))
(cdr (assoc key default_dclvalues))
)
)
d
谢谢！！！！！xshrimp和秋枫大哥哥，
d
大哥，我看到你的函数集，有几个函数我想用，可以给份我吗谢谢
gps->lstprinc
gps->nssget
这两个我看了我的程序借用一下，可以吗？xshrimp大哥哥，
d