VB控制AutoACD编程备查.doc

《VB控制AutoACD编程备查.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VB控制AutoACD编程备查首先要引用AutoACD应用程序对象（相当于C语言在程序开始的头文件），再在Module1模块定义公共变量Public例如：ACADAPPAsAcadApplication，然后就可编写连接AutoACD和其它控制程序了。**连接AutoACD首先要引用AutoACD对象库，选择[工程]→[引用]命令，打开[引用]对话框，选中AutoACD2000TypeLibrary复选框。在Module1模块定义公共变量PublicACADAPPAsAcadApplication在绘图控制窗体中编写下列代码：PrivateSubForm_L

2、oad()OnErrorResumeNext'连接AutoACDSetACADAPP=GetObject(,"AUTOCAD.APPLICATION")IfErrThenErr.ClearSetACADAPP=CreateObject("AUTOCAD.APPLICATION")IfErrThenMsgBox("不能运行AutoCAD,请检查是否安装了AutoCAD2000")ExitSubEndIfEndIfACADAPP.Visible=TrueACADAPP.WindowState=acMax**图形文件的使用DimFILAsStringFIL=App

3、.Path&"A3-1.DWG"IfDir(FIL)<>""ThenACADAPP.Documents.OpenFIL'打开文件ElseMsgBox("文件"&FIL&"不存在")EndIfACADAPP.ActiveDocument.Save‘以当前文件名和路径保存文件ACADAPP.ActiveDocument.SaveAsApp.Path&"CKSC"&DA$&"BZT.DWG"'另存为ACADAPP.ActiveDocument.Close‘以当前文件名和路径保存文件，然后关闭文件ACADAPP.ActiveDocument.Close（Fal

4、se）不保存文件的修改，关闭文件**退出AutoCADACADAPP.Quit‘退出AutoCADSetACADAPP=Nothing‘释放系统及内存资源**由程序绘直线PrivateSubCommand2_Click()DimPN1(0To2)AsDoubleDimPN2(0To2)AsDoubleDimli1AsAcadLinePN1(0)=10:PN1(1)=100:PN1(2)=0‘起点座标PN2(0)=300:PN2(1)=100:PN2(2)=0‘终点座标'绘制直线Setli1=ACADAPP.ActiveDocument.ModelSpace.

5、AddLine(PN1,PN2)DimLI2AsAcadLWPolyline'多义线DimPN3(7)AsDouble'多义线的点（二维）PN3(0)=15:PN3(1)=20PN3(2)=30:PN3(3)=20PN3(4)=30:PN3(5)=40PN3(6)=50:PN3(7)=40SetLI2=ACADAPP.ActiveDocument.ModelSpace.AddLightWeightPolyline(PN3)EndSub**由程序绘圆PrivateSubCommand3_Click()DimPN1(0To2)AsDoubleDimRAAsDou

6、bleDimCIAsAcadCircle'绘制圆PN1(0)=200:PN1(1)=100:PN1(2)=0‘圆心座标RA=50‘半径SetCI=ACADAPP.ActiveDocument.ModelSpace.AddCircle(PN1,RA)AppActivateACADAPP.Caption'切换到AutoACD界面EndSub**创建点DimpaintjobAsAcadPointSetpaintjob=ACADAPP.ActiveDocument.ModelSpace.AddPoint(PN1)ACADAPP.ActiveDocument.SetV

7、ariable”PDMODE”,35‘外形ACADAPP.ActiveDocument.SetVariable”PDSIZE”,5‘大小**由窗体文本框控制绘图PrivateSubCommand2_Click()DimPN1(0To2)AsDoubleDimPN2(0To2)AsDoubleDimli1AsAcadLine'窗体文本框控制绘图PN1(0)=Text1.Text:PN1(1)=Text2.Text:PN1(2)=0PN2(0)=Me.Text3:PN2(1)=Me.Text4:PN1(2)=0'绘制直线Setli1=ACADAPP.Active

8、Document.ModelSpace.AddLin