浅谈如何利用autocadvb接口开发拓展autocad.docVIP

浅谈如何利用autocad的vb接口开发拓展autocad 由于各个行业特点，autocad功能不可能满足各行业的需求，那么我们就必须基于autocad本身开发它的符合行业特点的功能，其中autocad的vb接口提供我们很便捷的平台。 以下我讲一些本人实际操作的一些小技巧： 利用鼠标双击快速启动子窗体。 譬如我们想启动一个叫”工具选项板”的窗体的话 我们在ThisDrawing的代码窗写下以下代码 Option Explicit Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant) 工具选项板.Show End Sub Autocad会很快启动那个叫”工具选项板”的窗体 在此一级子窗体中我们还可以启动其他子窗体 例如： 在工具选项板中我们还可以启动其他子窗体 如果我们想单击CommandButton74按钮来启动一个叫“标注KL主筋”的小程序我们可以在按钮CommandButton74的代码窗写下写下下列代码 Private Sub CommandButton74_Click() On Error GoTo ErrTrap GJ.Show Me.Hide Call 标注KL主筋 Me.Show GJ.Hide Exit Sub ErrTrap: Me.Show On Error GoTo 0 End Sub 当然同时我们要在模块中编写“标注KL主筋”这个小程序的代码。 来响应按钮CommandButton74的命令 在工程中添加模块1,再写入你想要的程序 现在我写个实例程序代码 Sub 标注KL主筋() Dim dimObj As AcadDimAligned Dim point1 As Variant Dim point2 As Variant Dim s As Single Dim a As Single Dim location(0 To 2) As Double Dim pt(0 To 2) As Double Dim pt1(0 To 2) As Double Dim F As Variant Dim 抗震级别 As Single, 钢筋级别 As Single, 砼号C As Single, 钢筋直径 As Single Dim b1 As Single Dim W1 As Single Dim W2 As Single Dim W1x As Single Dim W2x As Single 抗震级别 = GJ.KZJB.text 钢筋级别 = GJ.GJJB.text 砼号C = GJ.THC.text 钢筋直径 = GJ.GJφ.text b1 = GJ.LTEN.text W1 = GJ.W1.text W2 = GJ.W2.text W1x = GJ.W1TEN.text W2x = GJ.W2TEN.text If b1 = 0 Then a = Round(钢筋直径 * 12, 0) If a = (W1 - 25) / 2 Then If W1x = 1 Then W1 = Min(W1 - 65, a) Else W1 = a End If Else W1 = W1 / 2 + 50 End If If a = (W2 - 25) / 2 Then If W2x = 1 Then W2 = Min(W2 - 65, a) Else W2 = a End If Else W2 = W2 / 2 + 50 End If Else If W1x = 0 Then W1 = MG(抗震级别, 钢筋级别, 砼号C, 钢筋直径) Else W1 = W1 -