[LISP函数]：请问lisp获取日期、时间的函数

huaiqing7206 · 发表于 2004-12-8 15:38:10

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请问Autolisp有无获取计算机日期、时间的函数?

mkhsj927 · 发表于 2004-12-8 16:27:30

(getvar "cdate") (getvar "ctime")

huaiqing7206 · 发表于 2004-12-8 17:06:38

谢谢mkhsj927 ！

winabcd · 发表于 2004-12-9 10:54:39

这个函数行不行，
(defun c:GetDateTime (/ tmp y m d txt pt1)
  (setq tmp (rtos (getvar "cdate") 2 8))
  (setq txt (strcat "现在是："
      (rtos (atof (substr tmp 1 4)) 2 0) "年"
      (rtos (atof (substr tmp 5 2)) 2 0) "月"
      (rtos (atof (substr tmp 7 2)) 2 0) "日"
      (rtos (atof (substr tmp 10 2)) 2 0) "时"
      (rtos (atof (substr tmp 12 2)) 2 0) "分"
      ))
  (alert txt)
  (princ)
)

账号		自动登录	找回密码
密码			立即注册

[LISP函数]：请问lisp获取日期、时间的函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子