维普资讯 http://www.cqvip.com 机械设计与制造 —．４６—． Ｍａｃｈｉｎｅｒｙ Ｄｅｓｉｇｎ＆ Ｍａｎｕｆａｃｔｕｒｅ 第７期 ２００６年７月 文章编号：１００１—３９９７（２００６）０７—００４６—０２ 基于ＡｕｔｏＣＡＤ ＶＢＡ的曲面面积计算功能开发 苏旭武 吴斌方 游达章ｅ＾ 李 奕（湖北工业大学机械工程学院。武汉４３００６８） Ｄｅｖｅｌｏｐｍｅｎｔ ｏｆ ｓｕｒｆａｃｅ ａｒｅａ ｃａｌｃｕｌａｔｉｏｎ ｆｕｎｃｔｉｏｎ ｂａｓｅｄ ｏｎ ＶＢＡ ｆｏｒ ＡｕｔｏＣＡＤ ＳＵ Ｘｕ—ＷＵ，ＷＵ Ｂｉｎ—ｆａｎｇ，ＹＯＵ Ｄａ—ｚｈａｎｇ，ＬＩ Ｙｉ （Ｓｃｈｏｏｌ ｏｆ Ｍｅｃｈａｎｉｃａｌ Ｅｎｇｉｎ．。Ｈｕｂｅｉ Ｕｎｉｖ．ｏｆ Ｔｅｃｈｎｏｌｏｇｙ。Ｗｕｈａｎ ４３００６８。Ｃｈｉｎａ） 【摘要】基于ＡｕｔｏＣＡＤ ＶＢＡ技术为ＡｕｔｏＣＡＤ开发了曲面面积计算功能。由于ＡｕｔｏＣＡＤ中曲面 均采用线框模型多边形网格，面积查询命令不能计算。根据多边形网格的特点，将其分解为小面片， 然后计算小面片面积之和近似曲面的面积，并研究了提高精度的方法。实践证明，该方法具有一定 精度，能够满足工程需要。 关键词：曲面；面积计算；ＶＢＡ；ＡｕｔｏＣＡＤ 【Ａｂｓｔｒａｃｔ】Ａ ｓｕｒｆａｃｅ ａｒｅａ ｃａｌｃｕｌａｔｉｏｎ ｆｕｎｃｔｉｏｎ ｉｓ ｄｅｖｅｌｏｐｅｄ ｂａｓｅｄ ｏｎ ＶＢＡ ｆｏｒ ＡｕｔｏＣＡＤ．Ｂｅｃａｕｓｅ ｓｕｒｆａｃｅｓ ｉｎ ＡｕｔｏＣＡＤ ａｒｅ ｗｉｒｅ—ｆｒａｍｅ—ｍｏｄｅｌｅｄ Ｐｏｌｙｇｏｎｍｅｓｈｓ，ｔｈｅ ａｒｅａ ｑｕｅｒｙ ｃｏｍｍａｎｄ ＡＲＥＡ ｃａｎ ｎｏｔ ａｐｐｌｙ ｔｏ ｔｈｅｍ．Ａｃｃｏｒｄｉｎｇ ｔｏ ｃｈａｒａｃ￣ｒｉｓｔｉｃｓ ｏｆ Ｐｏｌｙｇｏｎｍｅｓｈ，ｉｔ ｉｓ ｅｘｐｌｏｄｅｄ ｔｏ ｌｉｔｔｌｅ ｆａｃｅ￣．Ｔｈｅｎ ａｌｌ ｔｅ ｈｆａｃｅｔｓ’ａｒｅａｓ ａｒｅ ａｄｄ ｕｐ ｆｏｒ ａｐｐｒｏｘｉｍａｔｉｏｎ ｔｏ ｓｕｒｆｃｅ ａｒａｅａ．Ｔｈｅ ｍｅａａｓ ｆｏｒ ｉｍｐｒｏｖｉｎｇ ａｃｃｕｒａｃｙ ａｒｅ ａｌｓｏ ｓｔｕｄｉｅｄ．Ｐｒａｃｔｉｃｅｐｒｏｖｅｄ ｔｈａｔ ｔｈｉｓ ｍｅｔｈｏｄ ｈａｓ ｃｅｒｔａｉｎ ａｃｃｕｒａｃｙ ａｎｄ ｃａｎ ｍｅｅｔ ｔｈｅ ｎｅｅｄｓ ，ｌ ｅｎｇｉｎｅｅｒｉｎｇ． Ｋｅｙ ｗｏｒｄｓ：Ｓｕｒｆａｃｅ；Ａｒｅａ ｃａｌｃｕｌａｔｉｏｎ；ＶＢＡ：ＡｕｔｏＣＡＤ 中图分类号：ＴＰ３９１．７文献标识码：Ａ １ ＡｕｔｏＣＡＤ ＶＢＡ技术简介【 】【 】 ＡｕｔｏＣＡＤ软件能够长盛不衰的一个重要原因就是它有很 强的定制和二次开发能力。它提供的开发工具有ＡｕｔｏＬＩＳＰ、 ＯｂｊｅｃｔＡＲＸ、ＡｃｔｉｖｅＸ、ＶＢＡ等。其中，ＶＢＡ（Ｖｉｓｕａｌ Ｂａｓｉｃ ｆｏｒ Ａｐｐｌｉ． ｃａｔｉｏｎｓ）具有一系列优点：完全内嵌的Ｖｉｓｕａｌ Ｂａｓｉｃ集成开发环 境简单易学；ＶＢＡ与ＡｕｔｏＣＡＤ在同一进程空间中运行，程序执 行快；图形界面和对话框的构造简洁高效；工程既可以，也 可以嵌入到图形中，便于发布。 ＶＢＡ通过ＡｕｔｏＣＡＤ ＡｃｔｉｖｅＸ Ａｕｔｏｍａｔｉｏｎ接口将消息发送到 ＡｕｔｏＣＡＤ，进而访问各种丰富的ＡｕｔｏＣＡＤ ＡｃｔｉｖｅＸ对象，如直线、 圆弧、线型、图层、标注、属性等。通过ＶＢＡ可以创建、修改Ａｃ． 图１边界曲面 Ｆｉｇ．１ Ｂｏ￣ｅｒ ｓｕｒｆａｃｅ （ｄ） ｔｉｖｅＸ对象，实现参数化绘图等高级ＣＡＤ功能，或者提取图形信 ２．２提高曲面计算精度的措施 措施之一：提高网格密度。这需要在生成曲面之前，修改系 息用于复杂的数据处理，如优化设计、特征识别等。 ２曲面面积计算原理 ２．１ ＡｕｔｏＣＡＤ中的曲面表示方法 统变量ＳＵＲＦｒＡＢ１和ＳＵＲＦｒＡＢ２的数值。可以根据计算精度要 求，选择面片的大小，再用曲面的二维轮廓尺寸分别除以面片 的二维尺寸得到ＳＵＲ兀 Ｂ１和ＳＵＲＦｒＡＢ２。图１（ｂ）是 ＡｕｔｏＣＡＤ中的曲面建模方法生成的全部是多边形网格对 ＳＵＲＦｒＡＢ１＝ＳＵＲＦＴＡＢ２＝１０时的边界曲面。 象（ＰｏｌｙｇｏｎＭｅｓｈ），一个多边形网格有Ｍ ｘＮ个顶点。Ｍ代表行 措施之二：通过拟合并提高插值密度。ＡｕｔｏＣＡＤ中的多边 方向的点数，Ｎ代表列方向的点数。系统变量ＳＵＲＦｒＡＢ１和 形网格曲面有四种类型：简单无拟合曲面、二次Ｂ样条拟合曲 ＳＵＲＦＴＡＢ２分别决定了Ｍ、Ｎ方向的线框段数，其初始值均为６， 面、三次Ｂ样条拟合曲面和Ｂｃｚｉｅｒ拟合曲面。拟合之后，曲面的 所以在默认情况下，Ｍ、Ｎ均为７。如图１（ａ）所示的７ Ｘ７顶点边 平滑程度提高，且不再通过Ｍ Ｘ Ｎ个顶点。这时的曲面片数由另 界曲面，实际上是由６ Ｘ６个空间四边面片组成，面片的四条边 外两个系统变量ＳＵＲＦＵ和ＳＵＲＦＶ决定，它们分别控制Ｍ和Ｎ 均为直线。因此曲面的面积可以通过计算各面片的面积之和近 方向插值密度，其初始值均为６。同样可以根据需要提高其数 似得到，但精度较低。 ★来稿日期：２００５—０９—１９ 值。图１（ｃ）是在（ｂ）基础上修改ＳＵＲＦＵ＝ＳＵＲＦＶ＝１０的二次Ｂ 维普资讯 http://www.cqvip.com 第７期 苏旭武等：基于ＡｕｔｏＣＡＤ ＶＢＡ的曲面面积计算功能开发 一４７一 样条拟合曲面，（ｄ）是三次 ＴｈｉｓＤｒａｗｉｎｇ．ＳｅｔＶａｒｉａｂｌｅ“ＳＵＲＦＵ”，Ｖａｌ（ＴｅｘｔＢｏｘ１．Ｔｅｘｔ） Ｂ样条拟合曲面。 ＴｈｉｓＤｒａｗｉｎｇ．ＳｅｔＶａｒｉａｂｌｅ“ＳＵＲＷ”，Ｖａｌ（ＴｅｘｔＢｏｘ２．Ｔｅｘｔ） ２．３曲面的离散化 ＡＲＥＡ＝０ 在合理地选择面片大 ｐｏｌｙｍｅｓｈｔｙｐｅ（０）＝ａｃＳｉｍｐｌｅＭｅｓｈ’简单无拟合 小、拟合方式、插值密度并 ｐｏｌｙｍｅｓｈｔｙｐｅ（１）＝ａｃＱｕａｄＳｕｒｆａｃｅＭｅｓｈ’二次样条 ｐｏｌｙｍｅｓｈｔｙｐｅ（２）＝ａｃＣｕｂｉｃＳｕｒｆａｃｅＭｅｓｈ’三次样条 生成曲面后，需要将曲面 ｐｏｌｙｍｅｓｈｔｙｐｅ（３）＝ａｃＢｅｚｉｅｒＳｕｒｆａｃｅＭｅｓｈ’Ｂｅｚｉｅｒ拟合 离散化为小面片，以便计 ’隐藏对话框，选择曲面 算小面片的面积。ＡｕｔｏＣＡＤ ＵｓｅｒＦｏｒｍ １．Ｈｉｄｅ 提供了一个命令“分解” ＴｈｉｓＤｒａｗｉｎｇ．Ｕｔｉｌｉｔｙ．ＧｅｔＥｎｔｉｔｙ ｓｕｒｆａｃｅ，ｂａｓｅＰｎｔ，“Ｓｅｌｅｃｔ ａｎ ｓｕｒｆａｃｅ” （Ｅｘｐｌｏｄｅ）可以实现该功 ｓｕｒｆａｃｅ．Ｕｐｄａｔｅ 能。经分解后，多边形网格 Ｉｆ ｓｕｒｆａｃｅ．ＥｎｔｉｔｙＮａｍｅ。“ＡｃＤｂＰｏｌｙｇｏｎＭｅｓｈ’’Ｔｈｅｎ 变成许多的小面片（三维 Ｉ－￣￣１１０．Ｃａｐｔｉｏｎ＝“对象选择不符要求，请重选！” 面）。面片不能继续“分 ＵｓｅｒＦｏｒｍ１．Ｓｈｏｗ 解”，其面积可以转化为两 Ｅｌｓｅ 个三角形面积之和。 ’根据指定曲面类型参数重设曲面类型 ３程序实现 ｓｕｒｆａｃｅ．Ｔｙｐｅ＝ｐｏｌｙｍｅｓｈｔｙｐｅ（ＣｏｍｂｏＢｏｘ１．Ｌｉｓｔｌｎｄｅｘ） ｓｕｒｆａｃｅ．ｕｐｄａｔｅ’曲面更新 ３．１程序流程（图２） ｆａｃｅｔｓ＝ｓｕｒｆａｃｅ．Ｅｘｐｌｏｄｅ’曲面分解 由于网格密度也就是 Ｄｉｍ ｉ Ａｓ Ｉｎｔｅｇｅｒ 图２程序框图 曲面的Ｍ×Ｎ个顶点在曲 Ｆｉｇ．２ Ｆｒａｍｅ ｏｆ ｐｒｏｃｅｓｓ Ｄｉｍ ｐｏｉｎｔｓ Ａｓ Ｖａｒｉａｎｔ 面生成后不能动态改变，所以对于简单无拟合曲面只能事先设 ’遍历分解后的面片阵列 Ｆｏｒｉ＝０ Ｔｏ ＵＢｏｕｎｄ（ｆａｃｅｔｓ） 定好系统变量ＳＵＲＦＴＡＢ１和ＳＵＲＦＴＡＢ２。而曲面经过拟合，就可 ｆａｃｅｔｓ（ｉ）．ｕｐｄａｔｅ 以通过改变ＳＵＲＦＵ和ＳＵＲＦＶ变量动态地改变曲面的面片数 ’取顶点坐标属性 量，调整计算精度。曲面分解后生成一个面片阵列，待执行完计 ｏｐｉｎｔｓ＝ｆａｃｅｔｓ（ｉ）．Ｃｏｏｒｄｉｎａｔｅｓ 算后将该阵列删去，对原曲面没有影响，仍然可以调整参数重复 ｆａｒｅａ＝ｃａｌｃａｒｅａ（ｐｏｉｎｔｓ） 计算。 ＡＲＥＡ＝ＡＲＥＡ＋ｆａｒｅａ ３．２ ＶＢＡ主要代码及界面 ’计算完后删除面片 本程序的主界面如图３。 ｆａｃｅｔｓ（ｉ）．Ｄｅｌｅｔｅ Ｎｅｘｔ ＴｅｘｔＢｏｘ３．Ｔｅｘｔ＝Ｓｔｒ（ＡＲＥＡ） ＵｓｅｒＦｏｒＩｎ１．Ｓｈｏｗ Ｅｎｄ Ｉｆ Ｅｎｄ Ｓｕｂ ’面片面积计算函数 Ｐｒｉｖａｔｅ Ｆｕｎｃｔｉｏｎ ｃａｌｃａｒｅａ（ＢｙＶａｌ ｐｘｙｚ Ａｓ Ｖａｒｉａｎｔ）Ａｓ Ｄｏｕｂｌｅ ’定义面片四个顶点坐标 Ｄｉｍ ｐｌｘ，ｐｌｙ，ｐｌｚ Ａｓ Ｄｏｕｂｌｅ Ｄｉｍ ｐ２ｘ，ｐ２ｙ，ｐ２ｚ Ａｓ Ｄｏｕｂｌｅ 图３主界面 Ｄｉｍ ｐ３ｘ，ｐ３ｙ，ｐ３ｚ Ａｓ Ｄｏｕｂｌｅ Ｆｉｇ．３ Ｍａｉｎｉｎｔｅｒｆａｃｅ Ｄｉｍ ｐ４ｘ，ｐ４ｙ，ｐ４ｚ Ａｓ Ｄｏｕｂｌｅ 主要代码如下： ’定义四条边和对角线 Ｐｒｉｖａｔｅ Ｓｕｂ ＣｏｍｍａｎｄＢｕｔｔｏｎ１ ｃｌｉｃｋ（） Ｄｉｍ ｅｌ，ｅ２，ｅ３，ｅ４，ｄｊｘ Ａｓ Ｄｏｕｂｌｅ Ｄｉｍ ｓｕｒｆａｃｅ Ａｓ ＡｃａｄＰｏｌｙｇｏｎＭｅｓｈ Ｄｉｍ ｓｌ，ｓ２ Ａｓ Ｄｏｕｂｌｅ’定义半周长 Ｄｉｍ ｆａｃｅｔｓ Ａｓ Ｖａｒｌａｎｔ ’定义两个三角形面积 Ｄｉｍ ｂａｓｅＰｎｔ Ａｓ Ｖａｒｉａｎｔ Ｄｉｍ ａｒｅａｌ，ａｒｅａ２ Ａｓ Ｄｏｕｂｌｅ Ｄｉｍｆａｒｅａ Ａｓ Ｄｏｕｂｌｅ ’从面片的坐标阵列中提取各顶点坐标 ’定义曲面类型数组 ｐｌｘ：ｐｘｙｚ（Ｏ）：ｐｌｙ＝ｐｘｙｚ（１）：ｐｌｚ＝ｐｘｙｚ（２） Ｄｉｍ ｐｏｌｙｍｅｓｈｔｙｐｅ（０ Ｔｏ ３）Ａｓ Ｉｎｔｅｇｅｒ ｐ２ｘ＝ｐｘｙｚ（３）：ｐ２ｙ：ｐｘｙｚ（４）：ｐ２ｚ＝ｐｘｙｚ（５） Ｄｉｍ ＡＲＥＡ Ａｓ Ｄｏｕｂｌｅ ｐ３ｘ＝ｐｘｙｚ（６）：ｐ３ｙ＝ｐｘｙｚ（７）：ｐ３ｚ＝ｐｘｙｚ（８） Ｏｎ Ｅｒｒｏｒ Ｒｅｓｕｍｅ Ｎｅｘｔ ｐ４ｘ＝ｐｘｙｚ（９）：ｐ４ｙ：ｐｘｙｚ（１０）：ｐ４ｚ＝ｐｘｙｚ（１１） ’霞新设置插值密度系统变量 ’计算各边长，对角线长度，三角形半周长及面积 维普资讯 http://www.cqvip.com 机械设计与制造 ——４８—— Ｍａｃｈｉｎｅｒｙ Ｄｅｓｉｇｎ＆ Ｍａｎｕｆａｃｔｕｒｅ 第７期 ２００６年７月 文章编号：１００１—３９９７（２００６）０７—００４８—０３ 零件多源图像特征提取和识别的研究呋 夏庆观温秀兰盛党红（南京工程学院，南京２１００１３） Ｒｅｓｅａｒｃｈ ｏｎ ｆｅａｔｕｒｅｓ ｅｘｔｒａｃｔｉｏｎ ａｎｄ ｒｅｃｏｇｎｉｔｉｏｎ ｏｆ ｐａｒｔｓ ｍｕｌｔｉ——ｓｏｕｒｃｅ ｉｍａｇｅ ＸＩＡ Ｑｉｎｇ—ｇｕａｎ，ＷＥＮ Ｘｉｕ—ｌａｎ，ＳＨＥＮＧ Ｄａｎｇ—ｈｏｎ（Ｎａｎｊｉｎｇ Ｉｎｓｔｉｔｕｔｅ ｏｆ Ｔｅｃｈｎｏｌｏｇｙ，Ｎａｎｊｉｎｇ ２１００１３，Ｃｈｉｎａ） 【摘要】提出了基于小波变换的零件多源图像融合和提取零件图像特征的方法。首先，应用小波变 换对多源图像进行多尺度分解，利用小波分解系数融合零件多源图像。然后，对融合图像进行多尺度 边缘检测，被检测的图像分成若干个子区域并分别统计其中的边缘像素量，各区域中的相对边缘像素 系数作为零件图像特征。最后，应用神经网络和网络技术，进行远程零件多源图像识别。实验结果表 明，文中提出的方法是有效的。 关键词：像素；小波变换；特征提取；网络 【Ａｂｓｔｒａｃｔ】Ａ ｍｅｔｈｏｄ ｔｏｆｕｓｅ ｐａｒｔ ｍｕｌｔｉ—ｓｏｕｒｃｅ ｉｍａｇｅ ａｎｄ ｔｏ ｅｘｔｒａｃｔ ｐａｒｔ ｉａｇｅｆｅａｔｍｕｒｅ ｂａｓｅｄ ｏｎ ｗａｖｅｌｅｔ ｔｒａｎｓｆｏｒｍ ｉｓ ｐｒｅｓｅｎｔｅｄ．Ｆｉｒｓｔｌｙ，ｔｈｅ ｐａｒｔ ｍｕｌｔｉ——ｓｏｕｒｃｅ ｉａｇｅ ｍｓｉ ａｎａｌｙｚｅｄ ｕｓｉｎｇ ｗａｖｅｌｅｔ ｍｕｌｔｉ——ｓｃａｌｅ ｔｒａｎｓｆｏｒｍ ｔｏ ｏｂｔａｉｎ ｔｈｅ ｃｏｅｆｉｃｉｆｅｎｔｓ ｏｆｗａｖｅｌｅｔ ｔｒａｎｓｆｏｒｍ，ｗｈｉｃｈｆｕｓｅｓ ａｐａｒｔ ｍｕｌｔｉ——ｓｃａｌｅ ｉｍａｇｅ．Ｔｈｅｎ，ｔｅ ｅｄｇｅｈｓｆ￣ｏｍ ｆｕｓｅｄ ｐａｒｔ ｍｕｌｔｉ——ｓｏｕｒｃｅ ｉａｇｅ ｉｍｓ ｄｅｔｅｃｔｅｄ ｕｓｉｎｇ ｗａｖｅｌｅｔ ｍｕｌｔｉ——ｓｃａｌｅ ｅｄｇｅ ｄｅｔｅｃｔｉｏｎ，ｅｄｇｅ ｉａｇｅ ｄｉｍｖｉｄｅｓ ｉｎｔｏ ｓｅｖｅｒａｌ ａｒｅａｓ ａｎｄ ｃｏｕｎ￣ｅｄｇｅｐｉｘｅｌｓ ｉｎ ｔｅｓｅｈ ａｒｅａｓ，ｔｈｅ ｒａｔｉｏ ｆｅｄｏｇｅｐｉｘｅｌｓ ｉｎ ａｎ ａｒｅａ ｔｏ ｔｏｔａｌｐｉｘｅｌｓ ｉｎ ｔｈｅ ａｒｅａ ｉｓｐａｒｔ ｉａｇｅｆｅａｔｕｒｍｅ．Ｆｉａｌｎｌｙ，ｔｈｅｐａｒｔ ｍｕｌｔｉ——ｓｏｕｒｃｅ ｉａｇｅｍ ｉｓ ｒｅａｌｉｚｅｄｐａｔｔｅｒｎ ｒｅｃｏｇｎｉｔｉｏｎ ｕｓｉｎｇ ｎｅｕｒａｌ ｎｅｔ．－ ｗｏｒｋｓ ａｎｄ ｎｅｔｗｏｒｋ ｔｅｃｈｎｏｌｏｇｙ．Ｅｘｐｅｒｉｅｎｔｍ ｒｅｓｕｌｔｓ ｔｈａｔ ｔｈｅ ｐｒｏｐｏｓｅｄ ｍｅｔｈｏｄ ｃａｎ ｅｆｉｆｃｉｅｎｔｌｙ ｒｅｃｏｇｎｉｚｅ ｍｕｌｔｉ—— ｓｏｕｒｃｅｐａｒｔｓ． Ｋｅｙ ｗｏｒｄｓ：Ｐｉｘｅｌ；Ｗａｖｅｌｅｔ ｔｒａｎｓｆｏｒｍ；Ｆｅａｔｕｒｅｓ ｅｘｔｒａｃｔｉｏｎ；Ｎｅｔｗｏｒｋ 中图分类号：ＴＰ３９１ 文献标识码：Ａ １弓ｆ言 环境因素的影响，难以获取图像较完整的信息，不利于零件图 图像传感器在获取零件图像时，由于传感器固有的缺陷、 像的特征提取和零件的识别，为了提高识别精度，常采用多传 ★来稿日期：２００５—０９—２６★基金项目：江苏省教育厅自然科学研究研项目（Ｏ５｝（ＪＢ４６００３６） ｅｌ＝Ｓｑｒ（（ｐｌｘ—ｐ２ｘ） ２＋（ｐｌｙ—ｐ２ｙ） ２十（ｐｌｚ—ｐ２ｚ） ２） ｅ２＝ｓｑｒ（（ｐ２ｘ—ｐ３ｘ）‘２＋（ｐ２ｙ—ｐ３ｙ） ２十（ｐ２ｚ—ｐ３ｚ） ２） ｅ３＝Ｓｑｒ（（ｐ３ｘ—ｐ４ｘ） ２＋（ｐ３ｙ—ｐ４ｙ）‘２十（ｐ３ｚ—ｐ４ｚ） ２） ｅ４＝ｓｑｒ（（ｐ４ｘ—ｐｌｘ）‘２＋（ｐ４ｙ—ｐｌｙ）‘２＋（ｐ４ｚ—ｐｌｚ） ２） ｄｊｘ＝Ｓｑｒ（（ｐ３ｘ—ｐｌｘ） ２＋（ｐ３ｙ—ｐｌｙ） ２＋（ｐ３ｚ—ｐｌｚ） ２） ｓｌ＝（ｅｌ＋ｅ２＋ｄｊｘ）／２ ｓ２＝（ｅ３＋ｅ４＋ｄｊｘ）／２ ａｒｅａｌ＝Ｓｑｒ（ｓｌ★（ｓｌ—ｅ１）★（ｓｌ—ｅ２）★（ｓｌ—ｄｊｘ）） “一ｖｂａｌｏａｄ”“ｓｕｒｆａｒｅａ．一ｄｖｂ”））。 通过定制ＡｕｔｏＣＡＤ的工具栏文件和菜单文件，还可以在工 具栏和菜单里执行“宏”功能，具体参阅文献…。 ４结语 利用ＡｕｔｏＣＡＤ ＶＢＡ技术开发曲面面积计算功能弥补了 ＡｕｔｏＣＡＤ面积查询功能的不足。虽然采用了非数学的方法，但本 程序方法新颖简便，在合理设置计算参数的情况下，计算结果具 ａｒｅａ２＝Ｓｑｒ（ｓ２－ｋ（ｓ２一ｅ３）★（ｓ２一ｅ３）★（ｓ２一ａｊｘ）） ｃｓｌｃａｒｅ８＝ａｒｅ８ １＋８ｒｅ８ ２ Ｅｎｄ Ｆｕｎｃｔｉｏｎ 有一定的精度，能够满足工程上的需要。 参考文献 １ Ａｕｔｏｄｅｓｋ公司，ＡｃｔｉｖｅＸ和ＶＢＡ开发人员指南，ＡｕｔｏＣＡＤ２００５ 随机文档． ３．３ ＶＢＡ的加载 】 加载ＶＢＡ工程文件★．ｄｖｂ文件然后运行其中的“宏”。也可以 ＶＢＡ程序通常编成“宏”的形式发布、运行。一般可以手工 ２ Ａｕｔｏｄｅｓｋ公司，ＡｅｔｉｖｅＸ ａｎｄ ＶＢＡ Ｒｅｆｅｒｅｎｃｅ。ＡｕｔｏＣＡＤ２００５随机 文档． 在每次启动绘图任务时自动加载ＶＢＡ，方法是在ａｃａｄ．１ｓｐ文件 ３李绍彬，ＡｕｔｏＣＡＤ ２０００中基于ＶＢＡ的二次开发…，重庆师范 中编写如下Ａｕｔｏｌｉｓｐ语句：（ｄｅｆｕｎ ｓ：：ＳＴＡＲＴＵＰ（）（ｃｏｍｍａｎｄ 学院学报（自然科学版），２００３，２０（１）：３５—３８．
