Autocad二次开发概述.ppt

《Autocad二次开发概述.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、对象创建及选择集的使用©2006nameofcompany.Allrightsreserved.对象的创建你可创建各类对象，包括从简单的线和圆到样条曲线、椭圆和关联阴影区域等。一般情况下，使用Add方法以添加到模型空间。也可在图纸空间或图块中创建对象对象创建后，可更改对象的图层、颜色和线型。也可添加文本以注释图形确定容器对象图形对象是创建于ModelSpace集合、PaperSpace集合或Block对象中。ModelSpace集合是通过ModelSpace属性返回，PaperSpace集合是通过PaperSpace属性返回你可直接引用这些对象，或通过用户定义变量引用。直接引用对象，必须

2、包含调用层次对象。例如，以下语句添加直线到模型空间中。SetlineObj=ThisDrawing.ModelSpace.AddLine(stratpt,endpt)©2006nameofcompany.Allrightsreserved.对象的创建AutoCAD中对象包括：直线多义线复线二维或三维多线段圆弧圆椭圆样条曲线点文字填充区域面域阴影©2006nameofcompany.Allrightsreserved.对象的创建AutoCAD中常用的对象包括：直线直线AutoCAD中最基本的对象。你创建多种不同的线-单一的直线和带有圆弧或不带圆弧的复线。一般情况下，你通过指定坐标点来绘制线

3、。默认的线型为CONTINUOUS，一种不间断的直线，还有许多使用点划线的线型可供选用。SubExample_AddLine()DimlineObjAsAcadLineDimstartpt(0To2)AsDoubleDimendpt(0To2)AsDoublestartpt(0)=1#:startpt(1)=1#:startpt(2)=0#endpt(0)=5#:endpt(1)=5#:endpt(2)=0#SetlineObj=ThisDrawing.ModelSpace.AddLine(startpt,endpt)ZoomAllEndSub©2006nameofcompany.All

4、rightsreserved.对象的创建AutoCAD中常用的对象包括：多义线轻量多线段是由直线和圆弧组成的宽度可调的线。多线段是旧版的轻量多线段对像，是由直线和圆弧段组成的可调宽度的二维线或者不可调宽度的三维线和网络。创建多线段和轻量多线段，系统默认的方法都是由一个数组作为参数，要编写创建段多线段的函数，只要将两个点(Variant)作为参数，然后将点的坐标撮到数组中，创建符合要求的多线段。SubExample_AddLightWeightPolyline()DimplineObjAsAcadLWPolylineDimpts(0To9)AsDoublepts(0)=1:pts(1)=1

5、:pts(2)=1:pts(3)=2pts(4)=2:pts(5)=2:pts(6)=3:pts(7)=2pts(8)=4:pts(9)=4SetplineObj=ThisDrawing.ModelSpace.AddLightWeightPolyline(pts)EndSub©2006nameofcompany.Allrightsreserved.对象的创建AutoCAD中常用的对象包括：二维或三维多线段二维多线段与三维多线段，是测绘中经常使用的线型。对于二维多线段，等高线数据中经常使用，区别两者除了都包含横坐标与纵坐标以外，二维多线段多了一个elevation属性值(这跟多线段属性一样

6、)。而三维多线段包含了一个z值，这是这二者之间的本质区别。SubExample_AddPolyline()DimplineObjAsAcadPolylineDimpolyObjAsAcad3DPolylineDimpts(0To8)Asptspts(0)=1:pts(1)=1:pts(2)=10pts(3)=1:pts(4)=2:pts(5)=10pts(6)=2:pts(7)=2:pts(8)=10SetplineObj=ThisDrawing.ModelSpace.AddPolyline(pts)SetpolyObj=ThisDrawing.ModelSpace.Add3DPoly(

7、pts)EndSub©2006nameofcompany.Allrightsreserved.对象的创建AutoCAD中常用的对象包括：圆根据圆和半径创建圆形，可心直接调用系统提供的AddCircle方法，将这种方法封装到函数中，可以作为基准函数。根据圆心和直径创建圆，则可以由直径计算半径，再调用基准函数即可。SubExample_AddCircle()DimcircleObjAsAcadCircleDimcenterpt(0To2