【经验分享】CoCreate定制的图框内自动添加出图日期

自己定制的图框，如何自动添加出图日期呢？

在工程图中，文本(Text)中文本参考是没有自动日期选项，也就没有办法自动在图框中加入日期显示。因此需要手动添加。步骤如下：

1.找到以下文件:

中文版：C:\Program Files\PTC\Creo Elements\Direct Modeling20.1\personality\schinese\sd_customize\ANNOTATION

英文版：C:\Program Files\PTC\Creo Elements\Direct Modeling20.1\personality\sd_customize\ANNOTATION

文件夹内以记事本方式打开am_customize（如果文件只读，请取消只读）

2.在文档最后面添加以下语句后保存：

(docu-register-tr-type "Sheet_local" "SHEET_DATE" "DATE" 'setdate)

(defun setdate()

    (setf today(multiple-value-list (get-decoded-time)))

      (setf year (nth 5 today))

      (setf month (nth 4 today))

      (setf day (nth 3 today))

(format nil "~a-~a-~a" year month day)

如下图所示：

3.重新启动Annotation，调入一个需要编辑的图框，在需要填写日期的位置，用文字写上日期，内容随意，注意文字的颜色和大小。

如下图所示，随意输入日期，比如输入2020-3-10。

4.打开文字编辑的命令组，点击更多—文本参考。

如下图，所示

点击“活动组“，在弹出的”组“对话框内选择Sheet_local，Apply确定。

点击“分配“，选择SHEET_DATE，点击要设定日期的文字，点击确定即可，可以观察到，日期自动切换到今天的日期。

经过上面的设定，把图框保存出去即可<框架(*.mi)格式>。以后每次出图时，调用图框即刻显示出图日期的显示。

原创，欢迎转发和点赞，分享给需要的朋友。

可以添加語法註解~~

这是什么情况，日期仅显示date

勿忘１２８√e９ 发表于 2024-1-23 11:17
这是什么情况，日期仅显示date

1. (docu-register-tr-type "Sheet_local" "SHEET_DATE" "DATE" 'setdate)
   
2. (defun setdate()
   
3.     (setf today(multiple-value-list (get-decoded-time)))
   
4.       (setf year (nth 5 today))
   
5.       (setf month (nth 4 today))
   
6.       (setf day (nth 3 today))
   
7. (format nil "~a-~a-~a" year month day)
   
8. )

复制代码

提示丢了")"，应该是最后一行丢了“)”字符

Superman 发表于 2024-1-23 11:24
提示丢了")"，应该是最后一行丢了“)”字符

感谢楼主，已经在另一个帖子最后面看到原因，已经成功了