hncjddd 发表于 2020-4-10 15:52:09

插入日期及时间-码源

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

水洗可口可乐 发表于 2023-8-5 17:09:16

命令: IT
插入日期及时间
字体文件不存在。未知命令“300”。按 F1 查看帮助。
未知命令“1”。按 F1 查看帮助。
未知命令“0”。按 F1 查看帮助。
未知命令“IT”。按 F1 查看帮助。
未知命令“IT”。按 F1 查看帮助。
放置点 :
值必须为 正且非零。
需要数值距离或第二点。
指定高度 <7.0>:
指定文字的旋转角度 <0.0>:
命令: *取消;****************************************************
;                  it--插入日期及时间.lsp
;****************************************************插入日期及时间
(defun c:IT ( / da lst)
(princ "\n 插入日期及时间")
(setq da (rtos(getvar "cdate")2 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))))
(COMMAND "style" "宋体" "宋体" "300" "1" "0" "" "")
(setq pt1 (getpoint "\n\t放置点 : "))
(vl-cmdf ".text" "j" "mc" pt1 "0"
(apply 'strcat (mapcar '(lambda(x y)(strcat x y)) lst '("年" "月" "日" "时" "分")))
)
    (princ)
)


简简单单就好 发表于 2023-8-12 11:09:42

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


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

18112600842 发表于 2023-7-23 13:45:02

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

啊业_48384 发表于 2020-5-28 21:53:59

多的是还要币

l982414603 发表于 2020-8-11 18:21:43

不行，不要用

czb203 发表于 2020-8-24 22:36:44

非常感谢群主的分享

mokson 发表于 2020-9-11 08:31:58

感谢分享代码。

oohen 发表于 2021-9-6 10:50:22

2548572928 发表于 2022-2-17 10:24:09

:(:(:(?????????

tanjurun 发表于 2022-7-2 14:03:25

啥用法？
观摩一下
页: [1] 2
查看完整版本: 插入日期及时间-码源