AutoCAD编程应用例程

.子程序 AddMText绘多行文字, 对象, 公开, 〈对象(IAcadMText)〉 对象．对象型方法 （"AddMText"，InsertionPoint，Width，Text）, 解释：在插入点和边框宽度定义的矩形中创建多行文字图元
.参数 参插入点, 坐标, 可空, 参数<1>的名称为“InsertionPoint”，类型为“变体型”。Variant[变体] (三元素双精度数组); 仅用于输入多行文字边框的插入点。
.参数 参宽, 双精度小数型, , 参数<2>的名称为“Width”，类型为“双精度小数型”。Double[双精度]; 仅用于输入多行文字边框的宽度。
.参数 参文本, 文本型, , 参数<3>的名称为“Text”，类型为“文本型”。String[字符串]; 仅用于输入 MText 对象的实际文本字符串。

返回 (CAD对象.ModelSpace.对象型方法 (“AddMText”, CAD转_坐标3d转变体形3d (参插入点), 参宽, 参文本))

.子程序 AddPoint绘点, 对象, 公开, 〈对象(IAcadPoint)〉 对象．对象型方法 （"AddPoint"，Point）, 解释：在给定的位置创建 Point 对象
.参数 参三维坐标, 坐标, 可空, 参数<1>的名称为“Point”，类型为“变体型”。Variant[变体] (三元素双精度数组); 仅用于输入要创建点的坐标。

返回 (CAD对象.ModelSpace.对象型方法 (“AddPoint”, CAD转_坐标3d转变体形3d (参三维坐标)))

.子程序 AddPolyfaceMesh绘多面网格, 对象, 公开, 〈对象(IAcadPolyfaceMesh)〉 对象．对象型方法 （"AddPolyfaceMesh"，VertexList，FaceList）, 解释：从顶点列表创建多面网格, 创建多面网格和创建矩形网格相似。要创建多面网格，必须指定顶点的坐标以及面的所有顶点的顶点数量。在以下图例中，面1是由顶点1、5、6和2定义的。面2是由顶点1、4、3和2定义的。面3是由顶点1、4、7和5定义的，而面4是由顶点3、4、7和8定义的。 要使边不可见，可输入将边的顶点号输为负值。如下图，要使顶点5和7形成的边不可见，可以这样设置：面 3, 顶点 3: -7
.参数 参多面网格顶点坐标集, 坐标集, , 参数<1>的名称为“VertexList”，类型为“变体型”。Variant[变体] (双精度数组); 仅用于输入用于创建多面网格顶点的三维WCS坐标数组。至少需要4个点(12个元素)来构成多面网格对象。该数组大小必须为3的倍数。
.参数 参多面顶点索引数组, 整数型, 数组, 参数<2>的名称为“FaceList”，类型为“变体型”。Variant[变体] (Integers[整数]数组); 仅用于输入表示每个面顶点数的整数数组。面是由一组4个顶点索引值定义的，所以数组必须为4的倍数。
.局部变量 变体型, 变体型
.局部变量 i, 整数型

变体型.创建数组 (2, 取数组成员数 (参多面顶点索引数组))
.计次循环首 (取数组成员数 (参多面顶点索引数组), i)
变体型.赋值 (参多面顶点索引数组 [i], i)
.计次循环尾 ()
返回 (CAD对象.ModelSpace.对象型方法 (“AddPolyfaceMesh”, CAD转_坐标集3d转变体形n (参多面网格顶点坐标集), 变体型))