在图纸中添加日期和时间

发布时间：2020-12-16 22:16:42 所属栏目：大数据来源：网络整理

导读：下面是一个往图纸中添加日期和时间的样例程序代码。 Sub test() Dim TextPosition(2) As Double TextPosition(0) = 2# TextPosition(1) = 2# TextPosition(2) = 0# ThisDrawing.ModelSpace.AddText Date " " Time,TextPosition,1 End Sub

下面是一个往图纸中添加日期和时间的样例程序代码。

Sub test()

Dim TextPosition(2) As Double

TextPosition(0) = 2#

TextPosition(1) = 2# TextPosition(2) = 0# ThisDrawing.ModelSpace.AddText Date & " " & Time,TextPosition,1 End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!