查看单个帖子
旧 2009-04-25, 09:35 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 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
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)