插入日期及时间-码源

hncjddd

简单代码插入时间日期----

水洗可口可乐

命令: IT
插入日期及时间
字体文件不存在。未知命令“300”。按 F1 查看帮助。
未知命令“1”。按 F1 查看帮助。
未知命令“0”。按 F1 查看帮助。
未知命令“IT”。按 F1 查看帮助。
未知命令“IT”。按 F1 查看帮助。
放置点 :
值必须为 正且非零。
需要数值距离或第二点。
指定高度 <7.0>:
指定文字的旋转角度 <0.0>:
命令: *取消

2. ;****************************************************
   
3. ;                    it--插入日期及时间.lsp
   
4. ;****************************************************插入日期及时间
   
5. (defun c:IT ( / da lst)
   
6.   (princ "\n 插入日期及时间")  
   
7.   (setq da (rtos(getvar "cdate")2 8)
   
8.         lst(mapcar '(lambda(x)(substr da (car x) (cadr x))) '((1 4) (5 2) (7 2) (10 2)(12 2)(14 2)(16 2))))
   
9.   (COMMAND "style" "宋体" "宋体" "300" "1" "0" "" "")
   
10.   (setq pt1 (getpoint "\n\t放置点 : "))
    
11.   (vl-cmdf ".text" "j" "mc" pt1 "0"
    
12.   (apply 'strcat (mapcar '(lambda(x y)(strcat x y)) lst '("年" "月" "日" "时" "分"  )))
    
13. )
    
14.     (princ)
    
15. )
    
16. 
    
17. 
    

;****************************************************<br /> ;                    it--插入日期及时间.lsp<br /> ;****************************************************插入日期及时间<br /> (defun c:IT ( / da lst)<br />   (princ "\n 插入日期及时间")  <br />   (setq da (rtos(getvar "cdate")2 8) <br />         lst(mapcar '(lambda(x)(substr da (car x) (cadr x))) '((1 4) (5 2) (7 2) (10 2)(12 2)(14 2)(16 2)))) <br />   (COMMAND "style" "宋体" "宋体" "300" "1" "0" "" "") <br />   (setq pt1 (getpoint "\n\t放置点 : ")) <br />   (vl-cmdf ".text" "j" "mc" pt1 "0" <br />   (apply 'strcat (mapcar '(lambda(x y)(strcat x y)) lst '("年" "月" "日" "时" "分"  ))) <br /> ) <br />     (princ) <br /> )<br /> <br /> <br />

简简单单就好

水洗可口可乐 发表于 2023-8-5 17:09
命令: IT
插入日期及时间
字体文件不存在。未知命令“300”。按 F1 查看帮助。

这么跳过文字规格选择呀 大神

18112600842

能不能插入替换图框里面的属性文字

啊业_48384

多的是还要币

l982414603

不行，不要用

czb203

非常感谢群主的分享

mokson

感谢分享代码。

oohen

2548572928

?????????

tanjurun

啥用法？
观摩一下