AutoCAD二次开发.ppt

AutoCAD二次开发AutoCAD的主要功能之一就是绘制各种二维和三维图形，用VB编程实现AutoCAD绘图，就是用Add方法在AutoCAD模型空间（MoodelSpace）创建二维或三维图形对象，也可在图纸空间（PaperSpace）或块（Block）中创建对象。§1创建直线例：创建两点(1,1,0)与(15,15,0)之间的直线。
DimZxAsAcadLine
DimPs(2)AsDouble
DimPe(2)AsDouble
Ps(0)=1:Ps(1)=1:Ps(2)=0
Pe(0)=15:Pe(1)=15:Pe(2)=0
SetZx=AcadApp.ActiveDocument.ModelSpace.AddLine(Ps,Pe)
AcadApp.ZoomAll
§2创建轻便多段线例：创建过三点(1,1)、(3,2)、(4,9)的轻便多段线。
DimDxAsAcadLWPolyline
DimPo(5)AsDouble
Po(0)=1:Po(1)=1
Po(2)=3:Po(3)=2
Po(4)=4:Po(5)=9
SetDx=AcadApp.ActiveDocument.ModelSpace.AddLightWeightPolyline(Po)
Acadapp.ZoomExtents
AcadApp.ZoomAll
§3创建圆例：创建圆心为(20,30,0)，半径为5的圆。
DimYAsAcadCircle
DimPc(2)AsDouble
DimrAsDouble
Pc(0)=20:Pc(1)=30:Pc(2)=0
r=5
SetY=Acadapp.ActiveDocument.ModelSpace.AddCircle(Pc,r)
Acadapp.ZoomExtents§4创建圆弧例：创建圆心为(20,30,0)，半径为5，起始角为π，终止角π/8的圆弧。
DimYhAsAcadArc
DimPtcen(2)AsDouble
DimraAsDouble
DimsaAsDouble,eaAsDouble
stang=4*Atn(1)
enang=Atn(1)/2
Ptcen(0)=20:Ptcen(1)=30:Ptcen(2)=0
ra=5
SetYh=Acadapp.ActiveDocument.ModelSpace.AddArc(Ptcen,ra,stang,enang)
Acadapp.ZoomExtents§5接收用户输入点例：创建圆心为(20,30,0)，半径为5，起始角为π，终止角π/8的圆弧。
DimYhAsAcadArc
DimPcAsVariant
DimrAsDouble
DimsaAsDouble,eaAsDouble
Pc=Acadapp.ActiveDocument.Utility.GetPoint(,“指定圆心:")
r=Acadapp.ActiveDocument.Utility.GetDistance(,“输入半径：")
sa=Acadapp.ActiveDocument.Utility.GetAngle(,“输入起始角度")
ea=Acadapp.ActiveDocument.Utility.GetAngle(,“输入终止角度")
SetYh=Acadapp.ActiveDocument.ModelSpace.AddArc(Pc,r,sa,ea)
Acadapp.ZoomExtents本章小结§1AutoCAD对象AutoCAD对象根据它们的不同功能，具有一定的隶属关系。§2连接AutoCAD一、引用AutoCAD对象库
［工程］/［引用］——AutoCAD2006TypeLibrary

二、创建AutoCAD对象，启动AutoCAD
实质是：引用AutoCAD应用程序对象（Application）

AutoCAD应用程序对象的引用采用对象变量来完成。首先声明变量类型，然后使用Set语句将对象引用赋给变量。
DimAcadAppasAcadApplication（在窗体代码声明段定义）
PrivateSubForm_Load()
OnErrorResumeNext
SetAcadapp=GetObject(,“AutoCAD.Application”)
IfErrThen
Err.Clear
SetAcadapp=CreatObject(,“AutoCAD.Application”)
IfErrThen
MsgBox(“请检查是否安装了AutoCAD2006”)
ExitSub
EndIf
EndIf
AcadApp.Visible=Ture
EndSub三、说明
1、GetObject函数
返回文件中的ActiveX对象的引用。
格式：GetObject([Pathname]