vba源程序.docVIP

例1-1 Private Sub CommandButton1_Click() Dim textPoint(0 To 2) As Double 声明文字插入点 Dim textHeight As Double 声明文字高度 Dim textStr As String 声明字符串 Dim textObject As AcadText 声明文字对象 textPoint(0) = 20 设置插入点的X坐标 textPoint(1) = 40 设置插入点的Y坐标 textPoint(2) = 0 设置插入点的Z坐标 textHeight = 10 设置文字高度为10 textStr = AutoCAD ActiveX/VBA 设置字符串 Set textObject = ThisDrawing.ModelSpace.AddText(textStr, textPoint, textHeight) 创建text对象 ThisDrawing.Application.ZoomExtents 根据实际范围计算缩放 textObject.Update 更新显示图形对象 End Sub Private Sub_