弥勒 发表于 2024-1-27 15:08:22

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

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

lailaifa 发表于 2024-1-27 16:11:42

(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 发表于 2024-1-27 16:13:35

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

瞎玩:lol 哈哈哈哈哈哈

弥勒 发表于 2024-1-27 16:46:01

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

比和尚我强多了，我是学编程的小学生，哈哈，想着注册码加个日期，一年一注册。当我离开这单位，还要找我注册。
页: 1 [2]
查看完整版本: 获取系统当前时间