VB控制AutoACD编程备查.docVIP

VB控制AutoACD编程备查 首先要引用AutoACD应用程序对象（相当于C语言在程序开始的头文件），再在Module1模块定义公共变量Public 例如：ACADAPP As AcadApplication，然后就可编写连接AutoACD和其它控制程序了。 ** 连接AutoACD 首先要引用AutoACD对象库，选择[工程]→[引用]命令，打开[引用]对话框，选中AutoACD2000 Type Library 复选框。 在Module1模块定义公共变量Public ACADAPP As AcadApplication 在绘图控制窗体中编写下列代码： Private Sub Form_Load() On Error Resume Next 连接AutoACD Set ACADAPP = GetObject(, AUTOCAD.APPLICATION) If Err Then Err.Clear Set ACADAPP = CreateObject(AUTOCAD.APPLICATION) If Err Then MsgBox (不能运行AutoCAD,请检查是否安装了AutoCAD 2000) Exit Sub End If End If ACADAPP.Visible = True ACADAPP.WindowState = acMax ** 图形文件的使用 Dim FIL As String FIL = App.Path \A3-1.DWG If Dir(FIL) Then ACADAPP.Documents.Open FIL 打开文件 Else MsgBox (文件 FIL 不存在) End If ACADAPP.ActiveDocument.Save ‘以当前文件名和路径保存文件 ACADAPP.ActiveDocument.SaveAs App.Path \CKSC\ DA$ BZT.DWG 另存为 ACADAPP.ActiveDocument.Close ‘以当前文件名和路径保存文件，然后关闭文件 ACADAPP.ActiveDocument.Close（False）不保存文件的修改，关闭文件 ** 退出AutoCAD ACADAPP.Quit ‘退出AutoCAD Set ACADAPP = Nothing ‘释放系统及内存资源 ** 由程序绘直线 Private Sub Command2_Click() Dim PN1(0 To 2) As Double Dim PN2(0 To 2) As Double Dim li1 As AcadLine PN1(0) = 10: PN1(1) = 100: PN1(2) = 0 ‘起点座标 PN2(0) = 300: PN2(1) = 100: PN2(2) = 0 ‘终点座标 绘制直线 Set li1 = ACADAPP.ActiveDocument.ModelSpace.AddLine(PN1, PN2) Dim LI2 As AcadLWPolyline 多义线 Dim PN3(7) As Double 多义线的点（二维） PN3(0) = 15: PN3(1) = 20 PN3(2) = 30: PN3(3) = 20 PN3(4) =30: PN3(5) = 40 PN3(6) =50: PN3(7) = 40 Set LI2 = ACADAPP.ActiveDocument.ModelSpace.AddLightWeightPolyline(PN3) End Sub ** 由程序绘圆 Private Sub Command3_Click() Dim PN1(0 To 2) As Double Dim RA As Double Dim CI As AcadCircle 绘制圆 PN1(0) = 200: PN1(1) = 100: PN1(2) = 0 ‘圆心座标 RA = 50 ‘半径 Set CI = ACADAPP.ActiveDocument.ModelSpace.AddCircle(PN1, RA) AppActivate ACADAPP.Caption 切换到AutoACD界面 End Sub ** 创建点 Dim paintjob As AcadPoint Set paintjob = ACADAPP.ActiveDocument.ModelSpace.AddPoint(PN1) ACADAPP.ActiveDocument. Set Variable”PDMODE”,35 ‘外形 ACADAPP.ActiveDoc