严重的同意呀，毕竟编程是杀死脑细胞的一项活动呀
同意，助人为乐
同意
<P>斑竹你好：我现在需要应用VBA编写一个程序，作为回报我可以捐款支持本站啊</P>
<P>我的QQ；82607180</P>
<P>邮箱hjs1115@163.com</P>
<P> </P>
同意
同意！
我支持
同意vvvvvv
<p>我写的软件希望与大家分享，请板主帮助，简介如下：</p><p>
</p><p class="MsoNormal" style="TEXT-INDENT: 21pt; mso-char-indent-count: 2.0; mso-char-indent-size: 10.5pt;">一个辅助使用AutoCAD的工具软件，目的是为了方便工程量的计算和三维建模。</p><p class="MsoNormal">主要功能简介如下：</p><p class="MsoNormal" style="MARGIN-LEFT: 18pt; TEXT-INDENT: -18pt; mso-list: l1 level1 lfo1; tab-stops: list 18.0pt;">1、<span style="FONT: 7pt "Times New Roman";"> </span>计算菜单下的用途为获取图形中的长度、面积、体积等几何信息。</p><p class="MsoNormal">2、线段长度可计算连续的由多个图元对象组成的总长度</p><p class="MsoNormal" style="MARGIN-LEFT: 21pt; TEXT-INDENT: -21pt; mso-char-indent-count: -2.0; mso-char-indent-size: 10.5pt;">3、平面面积以点集和区域两种方式计算面积，点集计算以连续闭合的点形成的多边形（Closed Polyline）的面积；区域计算以连续的线段组成的region的面积，如线段不闭合则用直线将起点和终点连接使之闭合，要求所选线段应能用region命令创建区域。</p><p class="MsoNormal" style="MARGIN-LEFT: 18pt; TEXT-INDENT: -18pt; mso-list: l0 level1 lfo2; tab-stops: list 18.0pt;">4、<span style="FONT: 7pt "Times New Roman";"> </span>三维实体的体积计算所选实体的体积。</p><p class="MsoNormal" style="MARGIN-LEFT: 18pt; TEXT-INDENT: -18pt; mso-list: l0 level1 lfo2; tab-stops: list 18.0pt;">5、<span style="FONT: 7pt "Times New Roman";"> </span>实体的表面如由多块面拼接而成，可选出单独的一块查询其表面积。查询时如系曲面可点击曲面的构造线后得到，还可点击两个面交接的边线选择其中之一，在命令行中输入数字1后确定选择的面。</p><p class="MsoNormal" style="MARGIN-LEFT: 18pt; TEXT-INDENT: -18pt; mso-list: l0 level1 lfo2; tab-stops: list 18.0pt;">6、<span style="FONT: 7pt "Times New Roman";"> </span>网格建模可将网格曲面转换为包含这个曲面的实体。网格建模之一要求按行列顺序捕捉网格顶点然后按世界坐标系（WCS）的Z轴方向拉伸一定的高度，高度值必须设定大于网格顶点Z坐标在拉伸的Z方向的最大值。网格建模之二则先将网格转换为三角形的集合然后在各三角形的法矢方向扫琼拉伸。</p><p class="MsoNormal" style="MARGIN-LEFT: 18pt; TEXT-INDENT: -18pt; mso-list: l0 level1 lfo2; tab-stops: list 18.0pt;">7、<span style="FONT: 7pt "Times New Roman";"> </span>平移分布使对象沿起点和终点之间的直线方向以指定的数目复制。</p><p class="MsoNormal" style="MARGIN-LEFT: 18pt;">切矢分布使对象沿曲线的路径和切矢以指定的数目复制并旋转，如同坐标的平移量，旋转的量为路径起点切矢旋转到曲线指定位置切矢的角度值。</p><p class="MsoNormal" style="MARGIN-LEFT: 18pt; TEXT-INDENT: -18pt; mso-list: l0 level1 lfo2; tab-stops: list 18.0pt;">8、<span style="FONT: 7pt "Times New Roman";"> </span>变更记录钮改变数据链中的当前记录，但不保存。数据保存必须通过保存菜单。</p><p class="MsoNormal"> <p></p></p><p class="MsoNormal">本人的E-mail:zhangxinsu@yeah.net</p><p class="MsoNormal"> <p></p></p><p></p>
我写的AutoCAD2002的工具软件，希望与大家分享：<p class="MsoNormal" style="TEXT-INDENT: 21pt; mso-char-indent-count: 2.0; mso-char-indent-size: 10.5pt;">一个辅助使用AutoCAD的工具软件，目的是为了方便工程量的计算和三维建模。</p><p class="MsoNormal">主要功能简介如下：</p><p class="MsoNormal" style="MARGIN-LEFT: 18pt; TEXT-INDENT: -18pt; mso-list: l1 level1 lfo1; tab-stops: list 18.0pt;">1、<span style="FONT: 7pt "Times New Roman";"> </span>计算菜单下的用途为获取图形中的长度、面积、体积等几何信息。</p><p class="MsoNormal">2、线段长度可计算连续的由多个图元对象组成的总长度</p><p class="MsoNormal" style="MARGIN-LEFT: 21pt; TEXT-INDENT: -21pt; mso-char-indent-count: -2.0; mso-char-indent-size: 10.5pt;">3、平面面积以点集和区域两种方式计算面积，点集计算以连续闭合的点形成的多边形（Closed Polyline）的面积；区域计算以连续的线段组成的region的面积，如线段不闭合则用直线将起点和终点连接使之闭合，要求所选线段应能用region命令创建区域。</p><p class="MsoNormal" style="MARGIN-LEFT: 18pt; TEXT-INDENT: -18pt; mso-list: l0 level1 lfo2; tab-stops: list 18.0pt;">4、<span style="FONT: 7pt "Times New Roman";"> </span>三维实体的体积计算所选实体的体积。</p><p class="MsoNormal" style="MARGIN-LEFT: 18pt; TEXT-INDENT: -18pt; mso-list: l0 level1 lfo2; tab-stops: list 18.0pt;">5、<span style="FONT: 7pt "Times New Roman";"> </span>实体的表面如由多块面拼接而成，可选出单独的一块查询其表面积。查询时如系曲面可点击曲面的构造线后得到，还可点击两个面交接的边线选择其中之一，在命令行中输入数字1后确定选择的面。</p><p class="MsoNormal" style="MARGIN-LEFT: 18pt; TEXT-INDENT: -18pt; mso-list: l0 level1 lfo2; tab-stops: list 18.0pt;">6、<span style="FONT: 7pt "Times New Roman";"> </span>网格建模可将网格曲面转换为包含这个曲面的实体。网格建模之一要求按行列顺序捕捉网格顶点然后按世界坐标系（WCS）的Z轴方向拉伸一定的高度，高度值必须设定大于网格顶点Z坐标在拉伸的Z方向的最大值。网格建模之二则先将网格转换为三角形的集合然后在各三角形的法矢方向扫琼拉伸。</p><p class="MsoNormal" style="MARGIN-LEFT: 18pt; TEXT-INDENT: -18pt; mso-list: l0 level1 lfo2; tab-stops: list 18.0pt;">7、<span style="FONT: 7pt "Times New Roman";"> </span>平移分布使对象沿起点和终点之间的直线方向以指定的数目复制。</p><p class="MsoNormal" style="MARGIN-LEFT: 18pt;">切矢分布使对象沿曲线的路径和切矢以指定的数目复制并旋转，如同坐标的平移量，旋转的量为路径起点切矢旋转到曲线指定位置切矢的角度值。</p><p class="MsoNormal" style="MARGIN-LEFT: 18pt; TEXT-INDENT: -18pt; mso-list: l0 level1 lfo2; tab-stops: list 18.0pt;">8、<span style="FONT: 7pt "Times New Roman";"> </span>变更记录钮改变数据链中的当前记录，但不保存。数据保存必须通过保存菜单。</p><p class="MsoNormal"> <p></p></p><p class="MsoNormal">本人的E-mail:zhangxinsu@yeah.net</p><p class="MsoNormal"> <p></p></p>