AutoCAD二次开发汇完整版.pptx

AutoCAD二次开发;AutoCAD的主要功能之一就是绘制;§1创建直线

用AddLine方法可以创建直线，应用该方法时要给出直线起点与终点的三维

坐标。：i.Evaluationonly.iii

D?r~r戶-It

imZxasAcadLine

?SetZx=AcadAzZ-ActivaDocument.;例：创建两点(1，1,0)与(15,15,0)之间的直线

DimZxAsAcadLine

DimPs(2)AsDouble

DimPe(2)AsDouble

Ps(0)=1:Ps(1)=1:Pa⑵

th^Aspos^SlidespfOr)net315ciienOProfiSetCopyright2004-2011AsposePOyLOd.

Zx=AcadApp.AcOiveDocumenO.ModelSpace.Ad

dLine(Ps,Pe)

AcadApp.ZoomAlliiiiiii;§2创建轻便多段线

用AddLightWeightPolyline方法可以创建轻便直线，

应用该方法时要给出轻便多段线各顶点的二维坐标。

?DimQxasAcaEvaluationonly.

tSetos.eAcalAde.AftivaDocjment.

MoodCopyright2004-2011i(ASnOSe(PtyTtd

?多段线的凸度设置：使用SetBulge方法

SetBulge起点数，n

n——凸出参数，0代表直线，1代表半圆，介于0?1之间的劣弧为圆心角四分之一的正切值。;例：创建过三点(1,1)、(3,2)、(4,9)的轻便多段线。

DimDxAsAcadLWPolylineDimPo(5)AsDouble

Po(0)=1:Po(1)=1

Po(2)=3:So(3)=2

Po(4)=4:So(5)=9

Set

Dx=AcadApp.ActiveDocument.ModelSpace.AddLightWeightPolyline(Po)

Acadapp.ZoomExtentsAcadApp.ZoomAll;§3创建圆

用AddCircle方法可以创建圆，应用该方法时要给出圆的圆心坐标和半径。

?DimyasAcadClrcle

镶AsposeASlideS.for:iNrTG3T51Clienlpr;例：创建圆心为(20,30,0)，半径为5的圆。DimYAsAcadCircle

DimPc(2)AsDouble

DimrAsDouble

Pc(0)=20:PcEvaluationconly.0

th^spose:.Slidesfo(.呻丁3.5ClientPfSetCopyright2004-2011AsposePtyLtd.

Acadapp.ActiveDocument.ModelSpace.^AddCircle(Pc,r)

Acadapp.ZoomExtents;;011?AQnoQe=p-;§5接收用户输入点;“输入;本章小结

-掌握创建二维图形的原理；-能创建直线、多段线、圆、圆弧对象;?会接收用户Evaluationonly.ii;ere;AutoCAD对象根据它们的不同功能，具有一定的隶属关系。

Application（应用程序）;§2连接AutoCAD

用VB语言编程进行AutoCAD二次开发，首先将VB与AutoCAD连接起来，需要以下两个步骤：

?在Copyright2004-201LAsposePtyLtd.?编写VB程序代码，创建AutoCAD对象，启动AutoCADo;▲、引用AutoCAD对象库;?DimAcadAppasAcadApplication(在窗体代码声明段定义)

?PrivateSubForm_Load()

?OnErrorResumeNext

?SetAcadapp=GetObject(,^AutoCAD.Application^)

?IfErrThen

?Err.Clear

?SetAcadapp=CreatObject(,

thAspose,.Slidegfof).NET3.5ClientPfof

?ICopyright2004—2011AsposeiPtyiLtd.

?MsgBox(“请检查是否安装了AutoCAD2006”)

?