You will have to modify this for your needs if you know Visual Basics.
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
' Define the text object
textString = Date
insertionPoint(0) = 8.7208: insertionPoint(1) = 0.4937:
insertionPoint(2) = 0
height = 0.056
' Create the text object in paper space
Set textObj = ThisDrawing.PaperSpace.AddText(textString,
Polytechforum.com is a website by engineers for engineers. It is not affiliated with any of manufacturers or vendors discussed here.
All logos and trade names are the property of their respective owners.