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 原文链接:https://www.f2er.com/vb/259346.htmlSub test()
Dim TextPosition(2) As Double
TextPosition(0) = 2#
TextPosition(1) = 2# TextPosition(2) = 0# ThisDrawing.ModelSpace.AddText Date & " " & Time,TextPosition,1 End Sub 原文链接:https://www.f2er.com/vb/259346.html