Question

如何用cad vba 编写一段代码写入横向文字或数字？

Answer 1

下面的程序你可以参考一下
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