AutoCAD二次开发演示文稿.pptVIP

AutoCAD二次开发 第二讲 创建二维图形 §1 创建直线 用AddLine方法可以创建直线，应用该方法时要给出直线起点与终点的三维坐标。 Dim Zx as AcadLine Set Zx=AcadApp.ActivaDocument. MoodlSpace.AddLine(ptst,pten) 例：创建两点(1,1,0)与(15,15,0)之间的直线。 Dim Zx As AcadLine Dim Ps(2) As Double Dim Pe(2) As Double Ps(0)=1:Ps(1)=1:Ps(2)=0 Pe(0)=15:Pe(1)=15:Pe(2)=0 Set Zx=AcadApp.ActiveDocument.ModelSpace.AddLine(Ps,Pe) AcadApp.ZoomAll §2 创建轻便多段线 用AddLightWeightPolyline方法可以创建轻便直线，应用该方法时要给出轻便多段线各顶点的二维坐标。 Dim Qx as AcadLWPolyline Set Qx=AcadApp.ActivaDocument. MoodlSpace.AddLightWeightPolyline(points) 多段线的凸度设置：使用SetBulge方法 SetBulge 起点数，n n——凸出参数，0代表直线，1代表半圆，介于 0～1之间的劣弧为圆心角四分之一的正切值。 例：创建过三点(1,1)、(3,2)、(4,9) 的轻便多段线。 Dim Dx As AcadLWPolyline Dim Po(5) As Double Po(0)=1:Po(1)=1 Po(2)=3: Po(3)=2 Po(4)=4: Po(5)=9 Set Dx=AcadApp.ActiveDocument.ModelSpace.AddLightWeightPolyline(Po) Acadapp.ZoomExtents AcadApp.ZoomAll §3 创建圆 用AddCircle方法可以创建圆，应用该方法时要给出圆的圆心坐标和半径。 Dim y as AcadCircle Set y=AcadApp.ActivaDocument. MoodlSpace.AddCircle(ptcen,ra) 例：创建圆心为(20,30,0)，半径为5的圆。 Dim Y As AcadCircle Dim Pc(2) As Double Dim r As Double Pc(0) = 20: Pc(1) = 30: Pc(2) = 0 r = 5 Set Y = Acadapp.ActiveDocument.ModelSpace.AddCircle(Pc, r) Acadapp.ZoomExtents §4 创建圆弧 用AddArc方法可以创建圆弧，应用该方法时要给出圆弧的圆心坐标、半径、起始角度和终止角度。 Dim yh as AcadArc Set yh=AcadApp.ActivaDocument. MoodlSpace.AddArc(ptcen,ra,stang,enang) 例：创建圆心为(20,30,0)，半径为5，起始角为π，终止角π/8的圆弧。 Dim Yh As AcadArc Dim Ptcen(2) As Double Dim ra As Double Dim sa As Double, ea As Double stang = 4 * Atn(1) enang = Atn(1) / 2 Ptcen(0) = 20: Ptcen(1) = 30: Ptcen(2) = 0 ra = 5 Set Yh = Acadapp.ActiveDocument.ModelSpace.AddArc(Ptcen, ra, stang, enang) Acadapp.ZoomExtents §5 接收用户输入点 用ActivaDocument.Utility 的GetPoint、GetDistance、GetAngle函数可以接收用户输入的点坐标、半径、起始角度和终止角度。 ptcen = acadapp.ActiveDocument.Utility.GetPoint(, “指定圆心) ra = acadapp.ActiveDocument.Utility.GetDistance(, “输入半径) stang = acadapp.ActiveDocument.Utility.GetAngle(, “输入起始角度) enang = acadapp.ActiveDocument.Utility.GetAngle(, “输入终止角度