出现在图形工具中的时间

Conor · 发表于 2022-7-6 23:55:33

你好

我希望你能帮忙。
我已经创建了在DWGPROPS中创建自定义属性的按钮。
我现在想添加另一个显示当前时间（不更新）的自定义属性。
这能做到吗？

bgingerich · 发表于 2022-7-7 00:02:00

只是为了更好地理解你的问题。你所说的“当前时间”是什么意思？它的目的是什么？这是一个将“当前时间”（按下按钮的时间）插入自定义图形特性的按钮吗？还是别的什么？也许是CDATE？

Conor · 发表于 2022-7-7 00:04:52

你好，贝金格里奇，

谢谢你的回复。
我需要选择按钮时的当前时间。
我向DWGPROPS添加了额外的数据，重要的是要注意添加数据的时间。

bgingerich · 发表于 2022-7-7 00:09:28

我不知道您使用什么语言来放置这些属性，但在LISP中，这将以“mm/dd/yy”格式返回当前日期：
希望这能让你走上正轨。

Conor · 发表于 2022-7-7 00:10:22

感谢贝金格里奇，
让我确切地解释一下我想做什么。
我运行了一个lsp，它允许我将信息添加到dwg特性中。
这会更新文件的状态；我从“阶段1”开始，这被“阶段2”等替代。
因此，我需要一个额外的自定义属性来显示文件阶段升级的时间。
因此，目前我使用cui文件中的下面一行添加舞台。
C^C（加载“AssignStatus.lsp”）；sfld；对图纸状态；第1阶段完成；；不
如果我对时间使用相同的想法，它会加载公式而不是值。
^C^C（加载“P:/Assigntime.lsp”）；sfld；对时间；（LOAD“P:/Assigntime.lsp”）；；不

登录/注册后可看大图

我还想知道在年月日出现的时间
当做
康纳

bgingerich · 发表于 2022-7-7 00:14:46

能够看到lisp文件会有很大帮助。

顺便说一句，这将以您要求的格式返回日期：DD/MM/YYYY

copy

Conor · 发表于 2022-7-7 00:19:06

谢谢你的时间格式，我会用的。
我使用的代码如下。我使用以下方式加载lsp：
^C^C（加载“P:/Assigntime.lsp”）；sfld；对时间；（LOAD“P:/Assigntime.lsp”）；；不

Lsp；
（defun c:sfld（/ftitle fautor fsubject fproj infoobj num num1 deside deside deside1 deside2 fld fldv pop）（vl load com）（setq ftitle“”）（setq fautor“Ciaran McCreary”）（setq fsubject“”）（setq infoobj（vla get SummaryInfo（vla get activeDocument（vlax get acad object）））（vla put Title infoobj ftitle）（vla put Author infoobj fautor）（vla put Subject infoobj fsubject）（vla put KeyWords infoObj FTITLE）（vla put Comments infoObj FPROJ）（setq num（vla NumCustomInfo infoObj））（if（>num 0）（progn（setq num1（rtos num 2 0））（setq question（strcat“You have“num1”CUSTOM FIELDS You want to preview them？”）（initget 1“Yes No”）（setq deside1（getkword question））（if（=deside1“Yes”）（命令“dwgprops”）））（initget 1“Yes No”）（setq deside2（getkword“\n是否要创建自定义字段？：”）（if（=deside2“No”）（quit））（while（setq FLD（getstring T”\n字段名：）（if（=FLD“”）（setq FLD“XXX”）（setq FLDV（getstring T”\n字段值：）（if（=FLDV“”）（setq FLDV“XXX”）（vla addCustomInfo infoObj FLD FLDV）（setq pop（strcat“%\\AcVar CustomDP）fld“>%”）（setq PT（getpoint“\n字段插入点：”）（命令“mtext”PT“w”“0”pop”“）（initget 1“Yes No”）（setq deside（getkword“\n是否要创建另一个自定义字段？：”）（if（=deside“No”）（quit））（princ）