获取系统当前时间

弥勒

lailaifa 发表于 2024-1-27 10:43
(setq (rtos sj (getvar "cdate") 2 4)

多谢，阿弥陀佛   (setq  sj (rtos  (getvar "cdate") 2 4))

lailaifa

(defun c:tt (/ shijian sj strcatsj 分 年 日 时 月)
        (setq sj (rtos  (getvar "cdate") 2 4))
        (setq
                年 (substr sj 1 4)
                月 (substr sj 5 2)
                日 (substr sj 7 2)
                时 (substr sj 10 2)
                分 (substr sj 12 2)
                strcatsj (strcat 年 "年" 月 "月" 日 "日" 时 "时" 分 "分" ))
        ;(command "_TEXT" "_J" "_MC" "non" (setq pp1 (getpoint "\n插入点:")) 20 0 (strcat "当前时间:" 年 "年" 月 "月" 日 "日" 时 "时" 分 "分" ))
        (alert (strcat "当前时间:" strcatsj))       
        (princ)
)

lailaifa

lailaifa 发表于 2024-1-27 16:11
(defun c:tt (/ shijian sj strcatsj 分 年 日 时 月)
        (setq sj (rtos  (getvar "cdate") 2 4))
        (setq  ...

瞎玩 哈哈哈哈哈哈

弥勒

lailaifa 发表于 2024-1-27 16:13
瞎玩 哈哈哈哈哈哈

比和尚我强多了，我是学编程的小学生，哈哈，想着注册码加个日期，一年一注册。当我离开这单位，还要找我注册。