下面是一个往图纸中添加日期和时间的样例程序代码。
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#