xshrimp,求你的两个函数GETVALUE和SetValue，谢谢

koyote

xshrimp哥，帮帮我啊

xshrimp

这个是秋枫的代码

;;设置保存值
  (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))
    )
  )

koyote

谢谢！！！！！xshrimp和秋枫大哥哥，

koyote

大哥，我看到你的函数集，有几个函数我想用，可以给份我吗谢谢

GPS->LSTPRINC

gps->nssget

这两个我看了我的程序借用一下，可以吗？xshrimp大哥哥，