蔡__洛 发表于 2012-10-15 12:35:46

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

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

adc 发表于 2012-10-15 12:44:18

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

蔡__洛 发表于 2012-10-15 13:32:16

adc 发表于 2012-10-15 12:44 static/image/common/back.gif
(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函数的参数错误 请问我这个地方哪有错? 正确的应该如何写 实现自加载?

陨落 发表于 2012-10-15 15:13:41

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

蔡__洛 发表于 2012-10-15 15:52:42

陨落 发表于 2012-10-15 15:13 static/image/common/back.gif
很简单,(setq b (getvar "CDATE"))试试

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

VBALISPER 发表于 2012-10-15 17:45:02

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

路径再加个斜杠试试.

陨落 发表于 2012-10-15 18:16:18

本帖最后由 陨落 于 2012-10-15 18:18 编辑

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

蔡__洛 发表于 2012-10-16 13:05:23

陨落 发表于 2012-10-15 18:16 static/image/common/back.gif
很简单,(setq b (rtos (getvar "CDATE")))试试,注意是cdate 而不是date。

这次可以了

海盗曹 发表于 2012-10-16 13:12:32

学习一下啊

蔡__洛 发表于 2012-10-16 13:16:56

VBALISPER 发表于 2012-10-15 17:45 static/image/common/back.gif
路径再加个斜杠试试.

还是不行 完整代码应该怎么写呢?
页: [1] 2
查看完整版本: 求助!如何取得系统时间,并以年月日 时分秒格式返回!!