求助！如何取得系统时间，并以年月日 时分秒格式返回！！

蔡__洛

问题如题。 我用 (setq b (getvar "DATE"))取得的b 显示出来是一个浮点数，我不知道要什么算法才能得到 当前系统时钟的年月日时分秒格式的时间呢？？求高手代码！

adc

(setq b (menucmd "M=$(edtime,$(getvar,date), YYYY.M.D hh:mm:ss)"))

蔡__洛

adc 发表于 2012-10-15 12:44
(setq b (menucmd "M=$(edtime,$(getvar,date), YYYY.M.D hh:mm:ss)"))

很感谢！我想在请教一个问题！如果我的文件名为P6.lsp 请问我要做一个内部函数实现每次输入命令后就自动加载此文件，代码如下 ：
(defun C:aload(/ a)
  (princ "\n<<<<<<<<<<-------")
  (setq a (load "D:/test/lisp教学/P6"))
  (princ a)
  (princ "\n|---->>>>>>>>>")
  (princ)
  )

我运行了几次都不成功 提示load函数的参数错误 请问我这个地方哪有错？ 正确的应该如何写 实现自加载？

陨落

很简单，(setq b (getvar "CDATE"))试试

蔡__洛

陨落 发表于 2012-10-15 15:13
很简单，(setq b (getvar "CDATE"))试试

之前就是用这个好像不行！

VBALISPER

蔡__洛 发表于 2012-10-15 13:32
很感谢！我想在请教一个问题！如果我的文件名为P6.lsp 请问我要做一个内部函数实现每次输入命令后就自动加 ...

路径再加个斜杠试试.

陨落

很简单，(setq b (rtos (getvar "CDATE")))试试，注意是cdate 而不是date。

蔡__洛

陨落 发表于 2012-10-15 18:16
很简单，(setq b (rtos (getvar "CDATE")))试试，注意是cdate 而不是date。

这次可以了

海盗曹

学习一下啊

蔡__洛

VBALISPER 发表于 2012-10-15 17:45
路径再加个斜杠试试.

还是不行 完整代码应该怎么写呢？