弥勒 发表于 2024-1-24 16:00:09

本主题需向作者支付 1 个明经币 才能浏览 购买主题

guohq 发表于 2024-1-24 18:56:26

(getvar "cdate")

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-24 17:18:27

这种普遍应用的代码就不要再发了吧

tomonkey239 发表于 2024-1-25 09:26:36

guohq 发表于 2024-1-24 18:56
(getvar "cdate")

你这是 断了人家的财路呢

Bao_lai 发表于 2024-1-25 14:53:53

币不是这样来的～

THZL 发表于 2024-1-25 14:59:17

感谢分享:handshake

弥勒 发表于 2024-1-25 15:34:21

哈哈，有枣没枣打一杆子。

ghgh0130 发表于 2024-1-25 16:38:27

:lol:lol:lol:lol:lol:lol:loveliness:

ZYX2129 发表于 2024-1-25 19:54:21

这种行为不厚道。。。。。。。。。。。。。

lailaifa 发表于 2024-1-27 10:43:53

(setq (rtos sj (getvar "cdate") 2 4)
页: [1] 2
查看完整版本: 获取系统当前时间