插入日期的宏或脚本
所以我尝试做的每件事都需要AutoLISP，但现在我正在尝试自动填充标题栏的过程，以节省时间，这让我很恼火。我已经控制了-attedit代码，但我不知道是否有办法克服没有autolisp为修订块插入今天的日期的问题。我可以用脚本插入代码%%，但文本是###，而不是实际日期。最好是一个宏，但如果我仍然需要使用脚本文件，那也没什么大不了的。我不想更新日期。谢谢你的帮助。
以下是我到目前为止对脚本的了解：
layer
t
REV1
-attedit
n
y
*
REV1_Date
*
c
0,0
3000,3000
XX/XX/XXXX
%<\AcVar Date \f "M/d/yyyy">%
^C^C-style;technic;technic_.ttf;;;;;3.5";-text;1',1';0;REVISED ON:($M=$(EDTIME,0,MON DD"," YYYY H:MM AM/PM));save;
这段代码可能会有所不同，但对我的代码有效。将以蓝色突出显示的内容更改为您使用的文本样式。您可能需要运行-style命令才能知道在这两个空格中填充什么。将红色部分更改为您希望文本的高度。它在坐标1'x1'处插入文本，以便您可以将其移动到以后需要的任何位置。日期不会在每次使用时更新。您的revdate命令将在每次使用时更新日期。如果你想让我改变什么，或者如果你有困难，请确切地告诉我你需要什么，我会根据需要改变。但是，如果您已经有了默认文本大小，那么这将更好地工作：
还有，欢迎来到CADTUTOR！ 这很好，但我需要它将标题栏中的默认属性值更改为当前日期。我们有一个标题栏的属性填写，我使用QP，但它会更快地点击一个按钮，编辑属性值，并与我的一天。 哦隐马尔可夫模型。。。把画放在这里，我会处理的。
谢谢，我只是发布了DWG的版块部分，它是标题栏的一部分。我不想把其余的部分放在这里，因为他们可能会对这样的事情非常挑剔。但是，这正是它在标题栏上的位置。 标签为REV（1-12）U日期。其默认值为XX/XX/XXXX。我选择它们从来没有问题。我的问题是进入里面的东西。
穿越窗口右上角的30003000之后需要额外的返回键。 ^C^C-attedit;y;;REV1_Date;;0,3000;3000,0;;v;r;($M=$(EDTIME,0,M/DD/YYYY));;save;
给你。它应该有效。我看到的唯一缺点是你有多个修订日期。如果您有第二次修订，那么您必须将“REV1\u日期”更改为“REV2\u日期”，以此类推。如果它不起作用，或者你想添加其他内容，请随时提问。
非常感谢你，你刚刚帮我省去了那么多烦人的工作！ 哦，很抱歉。
4
需要注意的是：它不会检查原始值，因此如果不想更新，请小心。它只会找到选定的属性并将其替换为新属性。我这样做是因为出于某种原因，换绳子是一件让人头疼的事。
我认为那样更好。我唯一需要改变的是，柴油机的两端都有一个额外的括号，所以里面有日期。但再次感谢你。事实上我正在实习，所以我看起来也会很棒！
页:
[1]
2