[分享]二次更新后的“自动绘制横断面图”程序
<P>为回报在论坛所学，我用VB引用AutoCAD及Excel自编了“自动绘制横断面图”程序，请论坛各位同行试用，并请各位多提出宝贵意见。</P><P>黄玉宏 二○○六年十月二十日 联系：<A href="mailto:htgsgcc@163.com" target="_blank" >htgsgcc@163.com</A></P>
<P>以下是软件的“帮助”文件：</P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0; mso-line-height-alt: 0pt"><FONT face="Times New Roman">1</FONT>、本软件适用于公路或水利各种横断面图绘制<FONT face="Times New Roman">,</FONT>提供1:100和1:200两种比例。主要功能有<FONT face="Times New Roman">3</FONT>种：①绘制基本横断面图；②绘制路面顶层及原地面压实后断面图(戴帽子求土方)；③绘制任意断面的填方或挖方横断面。</P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0; mso-line-height-alt: 0pt">2、打开已输入数据的“横断面数据模板”文件,关闭其它所有Excel文件后方可打开本软件。软件启动时要输入绘图比例参数,1:100比例绘图参数为1,1:200比例参数为2；只有输入1或2时“绘图参数输入”界面才会自动消失(因输入该参数后软件立即读入数据,故数据较多时本过程可能要几秒钟),输入其它数字软件自动关闭。“绘图分类”菜单选择3种绘图类别中的一种,点“绘图”按钮即可自动进入CAD界面。如使用CAD模板则要在启动本软件之前打开它(即：“横断面数据模板”--“CAD模板”--“本软件”)。<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0; mso-line-height-alt: 0pt"><FONT face="Times New Roman">3</FONT>、CAD中处理：断面图可在CAD任意位置捕捉或输入捕捉点坐标。图形移动前基点坐标为(0,0)<FONT face="Times New Roman">,</FONT>捕捉点Y坐标应为50的整数倍,X坐标宜为图纸中心线或图纸左边线。<B style="mso-bidi-font-weight: normal">每次</B>点“绘图”按钮软件<B style="mso-bidi-font-weight: normal">都</B>自动最小化并进入CAD界面(绘制首横断面该过程会耗时几秒钟),CAD软件可一直最大化,通过任务栏本软件最小化米格纸图标和CAD相互切换。<o:p></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0; mso-line-height-alt: 0pt">4、本软件的智能：对路基填方或挖方能自动修剪坡脚线和自动延伸不够长的原地面线；能自动计算填挖面积；能将断面积汇总到“面积汇总”工作表；汇总时能自动清除重复桩号值；能对断面桩号自动排序(此功能须Excel2002及以上版本)；能自动将用户输入的文本型或数字桩号转换成标准桩号。<FONT face="Times New Roman"> </FONT>花<FONT face="Times New Roman">300</FONT>元购买本软件绝物超所值<FONT face="Times New Roman">!<o:p></o:p></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0; mso-line-height-alt: 0pt"><FONT face="Times New Roman">5</FONT>、界面·流程·编程：①为界面简洁,软件使用了隐藏式提示文字,软件打开超过<B style="mso-bidi-font-weight: normal">2</B><B style="mso-bidi-font-weight: normal">分钟</B>提示文字将不再出现；每次按下“绘图”按钮时按钮文字显示当前绘图类别且按钮变为紫色,释放鼠标时按钮恢复原状。②“横断面数据模板”文件提供基础数据,软件读入数据并处理后同时向CAD发送绘图命令和将部分数据(如面积)发送到“横断面数据模板”文件中。③源代码使用了大量数组且经过了长时间优化,软件启动速度相当快,特别是大量数据时效果明显!(P4 2.4G + 256M计算机60000个数据启动时间约6秒!)</P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt; mso-char-indent-count: 2.0; mso-line-height-alt: 0pt"><FONT face="Times New Roman">6</FONT>、☆使用注意：要改变绘图比例须关闭本软件并重新打开。“横断面数据模板”文件可改名但其各工作表则千万不能改名,输入数据时其各工作表有粉红色图案特征单元格前不能删除及插入行或列；并且在整个绘图过程中该文件不能关闭,也不能向其内写入数据,如要新增或修改数据亦须关闭本软件并重新打开。<o:p></o:p></P> <P> 各位如有需要，请直接与我联系，联系：<A href="mailto:htgsgcc@163.com" target="_blank" >htgsgcc@163.com</A>,明经通道网站上我怎么也无法上传附件。另：与“晓东CAD家园”网站上一起使用我的软件的朋友前20名享受免费注册的，请各位及时反馈使用意见，我将不断改进此软件！</P>
<P>现在第1位免费注册者已经产生：新疆阿克苏农一师文化路<SPAN lang=EN-US>35＃，周维金</SPAN></P>
<P>黄玉宏 二○○六年十月二十一日</P> 谢谢分享，支持
页:
[1]