日期

啊业_48384

(defun c:rq (/ tmp cy cm cd hh mm ss ms txt pt1)
  (setq tmp (rtos (getvar "cdate") 2 16));系统当前时间
  (setq     
    cy (rtos (atof (substr tmp 1 4)) 2 0);年
    cm (rtos (atof (substr tmp 5 2)) 2 0);月
    cd (rtos (atof (substr tmp 7 2)) 2 0);日
  )
  (setq txt (strcat " " cy "年"cm "月" cd "日"))
  (command "color" "magenta" "y")

  (setq pt1 (getpoint "\n\t放置点 : "))
  (command "text" "j" "mc" pt1 "0" txt)
  (princ)
)

lifuq1979

试试 (setq txt (menucmd  "m=$(edtime,$(getvar,DATE),yyyy年mo月dd日)"))

lisperado

建议：
(cons 1 (menucmd  "M=$(edtime,0,YYYY年MO月DD日)") )

既然你是以substr cdate思路，建议mapcar可省略多余变量
而entmake以dxf 11 72 73 代替 "Justify" "M" "C" ，dxf 62 代替颜色

示范：

1. (defun c:rq (/ % p)
   
2.   (if (setq % (rtos (getvar 'cdate) 2 0)
   
3.             p (getpoint "\n文本放置点 ：")
   
4.             )
   
5.      (entmake (list '(0 . "TEXT")'(40 . 2.5)'(62 . 6)'(72 . 1)'(73 . 2)(cons 10 p)(cons 11 p)
   
6.                    (cons 1
   
7.                          (apply        'strcat
   
8.                                 (mapcar        '(lambda (a b) (strcat (apply 'substr (cons % a)) b))
   
9.                                         '((1 4) (5 2) (7 2))
   
10.                                         '("年" "月" "日")
    
11.                                         )
    
12.                                 )
    
13.                          )
    
14.                    )
    
15.              )
    
16.     (princ "\n退出？")
    
17.     )
    
18.   (princ)
    
19.   )
    
20. 
    

(defun c:rq (/ % p) <br />   (if (setq % (rtos (getvar 'cdate) 2 0)<br />             p (getpoint "\n文本放置点 ：")<br />             )<br />      (entmake (list '(0 . "TEXT")'(40 . 2.5)'(62 . 6)'(72 . 1)'(73 . 2)(cons 10 p)(cons 11 p)<br />                    (cons 1<br />                          (apply        'strcat<br />                                 (mapcar        '(lambda (a b) (strcat (apply 'substr (cons % a)) b))<br />                                         '((1 4) (5 2) (7 2))<br />                                         '("年" "月" "日")<br />                                         )<br />                                 )<br />                          )<br />                    )<br />              )<br />     (princ "\n退出？")<br />     )<br />   (princ)<br />   )<br /> <br />

hn10183051

学习了

BUBUBA918

如何让图里的日期做到和时间同步，自动更新

lisperado

BUBUBA918 发表于 2020-5-30 11:46
如何让图里的日期做到和时间同步，自动更新

命令： UPDATEFIELD 更新同步

请参考之前entmake

1. '( 1 . "%<\\AcVar Date \\f \"%#c\">%" )
   
2. ;默认根据区域格式
   
3. ;Sunday, May 31, 2020 1:10:52 AM
   
4. 
   
5. '( 1 . "%<\\AcVar Date \\f \"yyyy\U+5E74MM\U+6708dd\U+65E5\">%" )
   
6. ;2020年5月31日
   
7. 
   
8. '( 1 . "%<\\AcVar Date \\f \"yyyy年MM月dd日\">%" )
   
9. ;2020年5月31日
   
10. 
    

'( 1 . "%<\\AcVar Date \\f \"%#c\">%" )<br /> ;默认根据区域格式<br /> ;Sunday, May 31, 2020 1:10:52 AM<br /> <br /> '( 1 . "%<\\AcVar Date \\f \"yyyy\U+5E74MM\U+6708dd\U+65E5\">%" )<br /> ;2020年5月31日<br /> <br /> '( 1 . "%<\\AcVar Date \\f \"yyyy年MM月dd日\">%" )<br /> ;2020年5月31日<br /> <br />