如何用cad vba 編寫壹段代碼寫入橫向文字或數字？

Public Sub HelloWorld()

' 打開新圖形

ThisDrawing.Application.Documents.Add

Dim insPoint(0 To 2) As Double ' 聲明插入點

Dim textHeight As Double ' 聲明文字高度

Dim textStr As String ' 聲明字符串

Dim textObj As AcadText ' 聲明文字對象

insPoint(0) = 10 ' 設置插入點的 X 坐標

insPoint(1) = 10 ' 設置插入點的 Y 坐標

insPoint(2) = 0 ' 設置插入點的 Z 坐標

textHeight = 10 ' 將文字高度設置為 10

textStr = "Hello World" ' 設置字符串

' 創建 Text 對象

Set textObj = ThisDrawing.ModelSpace.AddText(textStr, insPoint, textHeight)

' 保存圖形

ThisDrawing.SaveAs ("Hello.dwg")

End Sub