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 ACADAP