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_CommandButton_Click() UnloadMe 卸载窗体 End 结束应用程序 End Sub 例4—1：将AutoCAD应用程序窗口放在屏幕的左上角，并将其大小调整为宽400像素、高400像素。ok Sub Ch4_PositionApplicationWindow() ThisDrawing.Application.WindowTop = 0 ThisDrawing.Application.WindowLeft = 0 ThisDrawing.Application.Width = 400 ThisDrawing.Application.Height = 400 End Sub 例4—2：最大化应用程序窗口。ok Sub Ch4_MaximizeApplicationWindow() ThisDrawing.Application.WindowState=acMax End Sub 例4—3：查询应用程序窗口的当前状态，并将该状态以消息框的形式显示给用户。ok Sub Ch4_CurrentWindowState() Dim CurrWindowState As Integer Dim Msgstr As String CurrWindowState = ThisDrawing.Application.WindowState Msgstr = Choose(CurrWindowState, 正常, 最小化, 最大化) MsgBox AutoCAD窗口当前状态为： + Msgstr End Sub 例4—4：用QNewTemplateFile属性设置默认样板图文件acadiso．dwt。bad Sub Ch4_QnewTemplateFile() Dim MyTemplate As IAcadPreferencesFiles2 Set MyTemplate = AcadApplication.Preferences.Files MyTemplate.QnewTemplateFile = c:\AutoCAD2005\acadiso.dwt， End Sub 例4—5：使用Add方法根据样板图创建新图形。 若未指定样板图，则没有后面的参数。如： Set acadDoc=ThisDrawing.Application.Documents.Add ok Sub Ch4_NewDrawing() Dim acadDoc As AcadDocument Set acadDoc = ThisDrawing.Application.Documents.Add _ c:\AutoCAD2004\Gb_a3 - NamedPlotStyle.dwt End Sub 例4—6：打开一个图形文件(包括路径的图形名)，先用VB中的Dir函数检查它是否存在，若不存在，可显示警告，再改换为新建方式。bad Sub Ch4_OpenDrawing() Dim FileNameStr As String FileNameStr