VB编程对AutoCAD实体进行复制操作

复制实体对象根据不同的需要，可以采用不同的方法。 利用Copy方法实现实体的复制，实体对象的Copy方法对实体进行原地复制并返回复制生成的新对象。 newobj=object.Copy newobj表示新创建的实体对象，object要进行复制操作的实体对象。 利用Offset方法实现实体的复制，实体对象的OffSet方法创建一个新的实体对象，并与源对象又一个偏移。 newobj=object.offset(distance) newobj变体型，新创建的偏移对象数组，object可以是Arc、Circle、Ellipse、Line、LightweightPolyline、Polyline、Spline或Xline等图形对象。distance双精度型偏移量。 利用Mirror方法实现实体的复制，实体对象的Mirror方法创建平面对象的镜像图像。 newobj=object.Mirror（point1，point2） newobj镜像图像，object所有图形对象，point1、point2双精度型镜像轴的两个端点坐标。 利用ArrayPolar方法实现实体的复制，实体对象的ArrayPolar方法创建对象的圆形阵列。 newobj=objec.ArrayPolar(NumberOfObjects,AngleToFill,CenterPoint) newobj变体型新创建的阵列对象数组，object所有图形对象，numberofobject整型阵列对象的数目，angletofill双精度型阵列范围的弧度角度，正数为逆时针，负数为顺时针，centerpoint双精度型阵列中心点坐标。 利用ArrayRectangle方法实现实体的复制，实体对象的ArrayRectangle方法创建对象的二维或三维矩形阵列。 newobj=object.ArrayRectangleular(NumberOfRows,NumberOfColumns,NumberOfLevels,DistBetweenRows,DistBetweenColumns,DistBetweenLevels) newobj变体型新创建的阵列对象数组，object所有图形对象，NumberOfRows、NumberOfColumns、NumberOfLevels整型分别表示阵列的行数、列数和层数，行列层分别平行于X、Y、Z轴，如果只进行平面阵列，可令NumberOfLevels=1。DistBetweenRows、DistBetweenColumns、DistBetweenLevels双精度型分别表示阵列的行间距、列间距和层间距，间距可为正数或负数，正数代表沿坐标轴的正方向进行阵列，负数代表沿坐标轴的付方向进行阵列，当NumberOfLevels=1时，DistBetweenLevels无效。