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

Sub test()@H_301_1@ Dim TextPosition(2) As Double

@H_301_1@

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