黄玉宏 发表于 2006-11-7 12:03:00

“自动绘制横断面图”软件更新(XP样式菜单)

<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt" align=left>为回报论坛,我用<FONT face="Times New Roman">VB</FONT>引用<FONT face="Times New Roman">AutoCAD</FONT>及<FONT face="Times New Roman">Excel</FONT>自编了<FONT face="Times New Roman">“</FONT>自动绘制横断面图<FONT face="Times New Roman">”</FONT>程序,请论坛各位同行试用,并请各位多提出宝贵意见。<BR>  软件功能及使用对象:为公路或水利部门技术人员特别是公路基层施工单位的测量人员或测量监理工程师自动画横断面图及计算断面土方用<FONT face="Times New Roman">(</FONT>本软件就此功能没有其它多余功能<FONT face="Times New Roman">)</FONT>。<BR>  软件要求<FONT face="Times New Roman">:AutoCAD2004</FONT>及以上中文版<FONT face="Times New Roman"> + Excel2000</FONT>及以上中文版 <BR>  本次更新:①调整了软件界面,增加了多种<FONT face="Times New Roman">OfficeXP</FONT>风格的菜单,并可自己更换菜单风格<FONT face="Times New Roman">! </FONT>②增加了对用户播放音乐时无意关闭Excel数据文件的检测;③优化了局部代码!<BR><FONT color=#000000>无法下载本软件用户如需要我直接将此软件发送到你的邮箱中!</FONT><BR>  <BR> <FONT face="Times New Roman"> </FONT>作<FONT face="Times New Roman"> </FONT>者:黄玉宏  二○○六年十一月七日 联系:<FONT face="Times New Roman"><A href="mailto:htgsgcc@163.com" target="_blank" >htgsgcc@163.com</A></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt" align=left><FONT face="Times New Roman">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <FONT color=#0938f7>本软件共4个附件(其中有2个为分卷附件),要全部下载才能运行!</FONT></FONT><BR style="mso-special-character: line-break"><BR style="mso-special-character: line-break"></P><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt" align=left>☆☆特别说明:请先将HookMenuCtl.ocx复制到WinXP系统C:\WINDOWS\system32\下!<o:p></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; mso-char-indent-count: 2.0"><o:p><FONT face="Times New Roman">&nbsp;</FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 20pt; mso-char-indent-count: 2.0">以下是软件的<FONT face="Times New Roman">“</FONT>帮助文件<FONT face="Times New Roman">”</FONT>:<BR>三、使用方法<BR><FONT face="Times New Roman">1</FONT>、本软件适用于公路或水利各种横断面图绘制<FONT face="Times New Roman">,</FONT>提供<FONT face="Times New Roman">1:100</FONT>和<FONT face="Times New Roman">1:200</FONT>两种比例。主要功能有<FONT face="Times New Roman">3</FONT>种:①绘制基本横断面图;②绘制路面顶层及原地面压实后断面图<FONT face="Times New Roman">(</FONT>戴帽子求土方<FONT face="Times New Roman">)</FONT>;③绘制任意断面的填方或挖方横断面。<BR><FONT face="Times New Roman">2</FONT>、打开已输入数据的<FONT face="Times New Roman">“</FONT>横断面数据模板<FONT face="Times New Roman">”</FONT>文件<FONT face="Times New Roman">,</FONT>关闭其它所有<FONT face="Times New Roman">Excel</FONT>文件后方可打开本软件。软件启动时要输入绘图比例参数<FONT face="Times New Roman">,1:100</FONT>比例绘图参数为<FONT face="Times New Roman">1,1:200</FONT>比例参数为<FONT face="Times New Roman">2</FONT>;只有输入<FONT face="Times New Roman">1</FONT>或<FONT face="Times New Roman">2</FONT>时<FONT face="Times New Roman">“</FONT>绘图参数输入<FONT face="Times New Roman">”</FONT>界面才会自动消失<FONT face="Times New Roman">(</FONT>因输入该参数后软件立即读入数据<FONT face="Times New Roman">,</FONT>故数据较多时本过程可能要几秒钟<FONT face="Times New Roman">),</FONT>输入其它数字软件自动关闭。<FONT face="Times New Roman">“</FONT>绘图分类<FONT face="Times New Roman">”</FONT>菜单选择<FONT face="Times New Roman">3</FONT>种绘图类别中的一种<FONT face="Times New Roman">,</FONT>点<FONT face="Times New Roman">“</FONT>绘图<FONT face="Times New Roman">”</FONT>按钮即可自动进入<FONT face="Times New Roman">CAD</FONT>界面。如使用<FONT face="Times New Roman">CAD</FONT>模板则要在启动本软件之前打开它<FONT face="Times New Roman">(</FONT>即:<FONT face="Times New Roman">“</FONT>横断面数据模板<FONT face="Times New Roman">”--“CAD</FONT>模板<FONT face="Times New Roman">”--“</FONT>本软件<FONT face="Times New Roman">”)</FONT>。<BR><FONT face="Times New Roman">3</FONT>、<FONT face="Times New Roman">CAD</FONT>中处理:断面图可在<FONT face="Times New Roman">CAD</FONT>任意位置捕捉或输入捕捉点坐标。图形移动前基点坐标为<FONT face="Times New Roman">(0,0),</FONT>捕捉点<FONT face="Times New Roman">Y</FONT>坐标应为<FONT face="Times New Roman">50</FONT>的整数倍<FONT face="Times New Roman">,X</FONT>坐标宜为图纸中心线或图纸左边线。每次点<FONT face="Times New Roman">“</FONT>绘图<FONT face="Times New Roman">”</FONT>按钮软件都自动最小化并进入<FONT face="Times New Roman">CAD</FONT>界面<FONT face="Times New Roman">(</FONT>绘制首横断面该过程会耗时几秒钟<FONT face="Times New Roman">),CAD</FONT>软件可一直最大化<FONT face="Times New Roman">,</FONT>通过任务栏本软件最小化米格纸图标和<FONT face="Times New Roman">CAD</FONT>相互切换。<BR><FONT face="Times New Roman">4</FONT>、本软件的智能:对路基填方或挖方能自动修剪坡脚线和自动延伸不够长的原地面线;能自动计算填挖面积;能将断面积汇总到<FONT face="Times New Roman">“</FONT>面积汇总<FONT face="Times New Roman">”</FONT>工作表;汇总时能自动清除重复桩号值;能对断面桩号自动排序<FONT face="Times New Roman">(</FONT>此功能须<FONT face="Times New Roman">Excel2002</FONT>及以上版本<FONT face="Times New Roman">)</FONT>;能自动将用户输入的文本型或数字桩号转换成标准桩号。<BR><FONT face="Times New Roman">5</FONT>、界面<FONT face="Times New Roman">•</FONT>流程<FONT face="Times New Roman">•</FONT>编程:①为界面简洁<FONT face="Times New Roman">,</FONT>软件使用了隐藏式提示文字<FONT face="Times New Roman">,</FONT>软件打开<FONT face="Times New Roman">2</FONT>分钟提示文字消失;每次按<FONT face="Times New Roman">“</FONT>绘图<FONT face="Times New Roman">”</FONT>按钮时按钮文字显示当前绘图类别且按钮变为紫色<FONT face="Times New Roman">,</FONT>释放鼠标按钮恢复原状;主界面空白处、图片、文本框、<FONT face="Times New Roman">“</FONT>帮助教程<FONT face="Times New Roman">”</FONT>界面右击将弹出快捷菜单<FONT face="Times New Roman">(</FONT>末者为智能菜单<FONT face="Times New Roman">)</FONT>且文本框可定制颜色。②<FONT face="Times New Roman">“</FONT>横断面数据模板<FONT face="Times New Roman">”</FONT>文件提供基础数据<FONT face="Times New Roman">,</FONT>软件读入数据并处理同时向<FONT face="Times New Roman">CAD</FONT>发送绘图命令和将部分数据<FONT face="Times New Roman">(</FONT>如面积<FONT face="Times New Roman">)</FONT>发送到<FONT face="Times New Roman">“</FONT>横断面数据模板<FONT face="Times New Roman">”</FONT>文件中。③源代码使用了大量数组且经过了长时间优化<FONT face="Times New Roman">,</FONT>软件启动相当快<FONT face="Times New Roman">,</FONT>特别是大量数据时效果明显<FONT face="Times New Roman">!(P4 2.4G + 256M</FONT>计算机<FONT face="Times New Roman">60000</FONT>个数据启动时间约<FONT face="Times New Roman">5</FONT>秒<FONT face="Times New Roman">!)<BR>6</FONT>、☆使用注意:要改变绘图比例须关闭本软件并重新打开。<FONT face="Times New Roman">“</FONT>横断面数据模板<FONT face="Times New Roman">”</FONT>文件可改名但其各工作表则千万不能改名<FONT face="Times New Roman">,</FONT>输入数据时其各工作表有粉红色图案特征单元格前不能删除及插入行或列;并且在整个绘图过程中该文件不能关闭<FONT face="Times New Roman">(</FONT>本次更新增加了对关闭<FONT face="Times New Roman">Excel</FONT>数据文件的检测<FONT face="Times New Roman">),</FONT>也不能向其内写入数据<FONT face="Times New Roman">,</FONT>如要新增或修改数据亦须关闭本软件并重新打开。<BR>四、音乐播放<BR>软件能播放:<FONT face="Times New Roman">*.mid</FONT>、<FONT face="Times New Roman">*.mp3</FONT>、<FONT face="Times New Roman">*.wma</FONT>、<FONT face="Times New Roman">*.wav</FONT>文件及部分视频文件<FONT face="Times New Roman">(*.wmv</FONT>、<FONT face="Times New Roman">*.mpg)</FONT>。方法:右击<FONT face="Times New Roman">“</FONT>杜枚<FONT face="Times New Roman">”</FONT>快捷菜单中选<FONT face="Times New Roman">“</FONT>选择音乐<FONT face="Times New Roman">”(</FONT>可连续或不连续选择音乐文件<FONT face="Times New Roman">),</FONT>加载音乐文件后软件能立即自动连续播放所选音乐;<FONT face="Times New Roman">“</FONT>显示列表<FONT face="Times New Roman">”</FONT>指所选音乐文件列表<FONT face="Times New Roman">,</FONT>其窗口能动态显示当前播放音乐名。单击<FONT face="Times New Roman">“</FONT>显示列表<FONT face="Times New Roman">”</FONT>下拉框能即时更改并从最新所选音乐开始向下至<FONT face="Times New Roman">“</FONT>显示列表<FONT face="Times New Roman">”</FONT>末连续播放。注意:只能<FONT face="Times New Roman">(</FONT>单选或连续<FONT face="Times New Roman">)</FONT>播放当前<FONT face="Times New Roman">(</FONT>最新<FONT face="Times New Roman">)“</FONT>选择音乐<FONT face="Times New Roman">”</FONT>歌曲,再次单击<FONT face="Times New Roman">“</FONT>选择音乐<FONT face="Times New Roman">”</FONT>则以前所选全部音乐将不可播放。</P>

堕落王 发表于 2006-11-7 20:12:00

<P>hehe 呵呵,楼主,你怎么在这里没有提供下载啊 ?</P>
<P>谢谢</P>

cy4162465 发表于 2006-11-12 00:26:00

堕落王发表于2006-11-7 20:12:00static/image/common/back.gif
hehe 呵呵,楼主,你怎么在这里没有提供下载啊 ?
谢谢

<BR>收费的哦

zkc568300 发表于 2007-4-19 00:48:00

<p>等于没说,你他妈的放屁</p><p></p>

shzhxz 发表于 2007-11-24 06:28:00

<p>hehe 呵呵,楼主,你怎么在这里没有提供下载啊 ?</p><p>谢谢</p>

tntqboy 发表于 2009-3-7 15:31:00

下载链接在什么地方呢??

zzcc00 发表于 2009-3-25 04:23:00

下载链接在什么地方呢??

tiger3010 发表于 2010-5-16 11:50:00

让我学习一下,我的邮箱是:maner3010@163.com.谢谢.

sdt1356 发表于 2010-8-25 16:17:00

你怎么在这里没有提供下载啊

测绘人之歌 发表于 2012-1-12 15:45:54

楼主,怎么没下载链接呢?我很想看看哦
页: [1] 2
查看完整版本: “自动绘制横断面图”软件更新(XP样式菜单)