VB对AutoCAD的二次开【DOC精选】.docVIP

实验　VB对AutoCAD的二次开发 实验目的 了解CAD二次开发的几种形式，掌握VB对AutoCAD进行二次开发，实现参数化绘图的技巧。 实验要求 了解AutoCAD二次开发的基本原理 掌握运用VB开发界面的方法 掌握运用VB调用AutoCAD库函数，完成相关功能的方法 实验步骤 建立AutoCAD和VB之间的连接 启动VB，建立“标准exe”程序，选择菜单“工程”——“引用”，选择“AutoCAD 2004 Type Library”。 创建界面 程序编码 定义全局变量 Dim AcadApp As AcadApplication AutoCAD应用程序变量 Dim AcadDoc As AcadDocument AutoCAD文档变量 引用AutoCAD应用程序 Private Sub Command1_Click() On Error Resume Next If Err Then Err.Clear End If Set AcadApp = New AcadApplication If Err Then MsgBox Err.Description Exit Sub End If 设置AutoCAD应用程序参数 AcadApp.WindowTop = 0 AcadApp.WindowLeft = 400 AcadApp.Width = 600 AcadApp.Height = 800 AcadApp.Visible = True AcadApp.Documents.Add Set AcadDoc = AcadApp.ActiveDocument AcadDoc.WindowState = acMax Command4.Enabled = True End Sub 参数化绘图 Private Sub Command4_Click() 设置新图层 Dim layer1 As AcadLayer Dim layer2 As AcadLayer Set layer0 = AcadApp.ActiveDocument.Layers.Item(0) Set layer1 = AcadApp.ActiveDocument.Layers.Add(粗实线层) Set layer2 = AcadApp.ActiveDocument.Layers.Add(中心线层) layer1.Lineweight = acLnWt080 粗实线的线宽 layer1.Color = acWhite layer2.Color = acRed AcadDoc.Linetypes.Load centerx2, acad.lin layer2.Linetype = centerx2 输入原始参数 Dim Center(0 To 2) As Double Dim Vert(0 To 7) As Double Dim L04 As Double Dim L01 As Double Dim b As Double Dim r As Double b = Val(Text2.Text): r = Val(Text1.Text) / 2: L01 = r - Val(Text3.Text) L04 = Sqr(r * r - (b / 2) ^ 2) Center(0) = 100: Center(1) = 100: Center(2) = 0 画中心线 AcadDoc.ActiveLayer = layer2 Dim line1 As AcadLine Dim line2 As AcadLine 定义两直线的端点 Dim pl1s(0 To 2) As Double Dim pl1e(0 To 2) As Double Dim pl2s(0 To 2) As Double Dim pl2e(0 To 2) As Double pl1s(0) = Center(0) - r - 1.5: pl1s(1) = Center(1): pl1s(2) = 0 pl1e(0) = Center(0) + r + 1.5: pl1e(1) = Center(1): pl1e(2) = 0 pl2s(0) = Center(0): pl2s(1) = Center(1) + r + 1.5: pl2s(2) = 0 pl2e(0) = Center(0): pl2e(1) = Center(1) - r - 1.5: pl2e(2) = 0 Set line1 = AcadDoc.ModelSpace.AddLine(pl1s, pl1e) Set line2 = AcadDoc.ModelSpace.AddL