给排水设计给排水ｃａｄ软件开发实例 . 13页

'　　给排水设计给排水ＣＡＤ软件开发实例.;【摘要】本文介绍了用户幻灯菜单及功能和开发方法,并给出了标高标注和图例绘制程序的开发方法以及程序注解。１用户幻灯菜单简介用户幻灯菜单（下文简称幻灯菜单）是在ａｕｔｏｃａｄ平台上开发的一种高效实用的用户图形界面,由幻灯和相应的ａｕｔｏｌｉｓｐ实用程序组成。其功能及用法类似于ａｕｔｏｃａｄ的图标菜单。调用时幻灯菜单屏幕上出现一幅幻灯,幻灯显示不同图形界面,由幻灯和相应的ａｕｔｏｃａｄ实用程序组成。其功能及用法的功能区域,每个区域对应相应的功能,用鼠标点取即可调用该功能。I8-3-ttPLJ8&"xQ[州学习工学水利.gzU521.]I8-3-ttPLJ8&"xQ幻灯菜单可以用于开发本部门使用的工具软件或是商业化的ｃａｄ软件,可以大大提高开发效率以及设计绘图速度。下面以我院开发的标高标注程序为例介绍幻灯菜单的功能:在ｃｏｍｍａｎｄ:状态下从下拉菜单中点取“标高标注１”后屏幕上出现如图１所示幻灯,用鼠标在某一标高种类格中点击后幻灯消失,恢复前一图面,在提示行中提示“请输入起点”,给点后又提示:“标高值” ,输入数值后自动按选择的种类画好标高符号并写好标高值;然后重复提示“请输入起点”标注下一个,回车则回到图１幻灯重复使用,点ｅｘｉｔ退出。２幻灯菜单的特点幻灯菜单可以实现ａｕｔｏｃａｄ的图标菜单的各项功能,并且有如下优点:ａ．制作、修改效率高。制作图标菜单时,要实现的功能数与幻灯数及菜单项的数量相同。而制作一个幻灯菜单只需要作一个幻灯,幻灯数量大幅减少,修改也容易得多。ｂ．使用效率高。为了提高软件效率,尽量减少击键次数是今后软件的发展方向。幻灯菜单可以将多种形式的选择以图形形式直观地显示出来,以供选择。以标高标注为例,以前的方法是先问标高符号形式,再问方向,而使用幻灯菜单只需点取一次即可。ｃ．界面美观,制作灵活多样,使用方便。幻灯菜单在一幅幻灯中划分的功能区数量不限,并且可以根据需要制作成方格、横格、竖格、扇型格、圆环格等多种形式,甚至可以达到可编程序对话框的很多功能。 ｄ．适用性强,移植方便。幻灯菜单适用于ｒ９．０版以上的各种中、西文ａｕｔｏｃａｄ版本。使用幻灯菜单时,由于它包含在用ａｄｓ或ａｕｔｏｌｉｓｐ等语言编制的程序中,所以只要能运行程序即可调出幻灯菜单,版本升级时不必改变新的菜单文件。而图标菜单的菜单项必须逐条加入到新的菜单文件中。ｅ．可以作成定型模块重复使用,从而大大提高编程效率。３幻灯菜单的制作幻灯菜单的原理是:将ａｕｔｏｃａｄ绘图区分为若干规则的图形区域,每一区域可以对应一组功能,在程序调用幻灯菜单时,要求用户根据需要在某一图形区域中选取一点,然后程序自动计算出该点所在的区域位置,从而调用所对应的程序功能。点的定位是幻灯菜单制作编程的关键所在,以矩形格幻灯菜单为例,其ｗｈｉｌ１.=M=
b6? TYS[州学习工学水利.gzU521.].=M=
b6? TYS（ｃｏｍｍａｎｄ″ｖｓｌｉｄｅ″（ｓｔｒｃａｔｔｌｐａｔｈ″ａｔｌ″ｔｌｓｌｄｎ））（ｉｎｉｔｇｅｔ１）（ｓｅｔｑｐｐ（ｇｅｔｐｏｉｎｔ″＼ｎ请连续点取图例,并点取〈确定〉″））（ｓｅｔｑｈ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″））（ｓｅｔｑｐｃｅｎ（ｇｅｔｖａｒ″ｖｉｅｗｃｔｒ″））图例绘制主程序赋初始值图例图块路径提示当ｗｈｉｌ１为真执行下面程序调出幻灯（幻灯名由三个变量连接而成,图２为第一页）不接受空值以下内容同标高标注程序（ｓｅｔｑｐｍａｘ（ｇｅｔｖａｒ″ｖｓｍａｘ″））（ｓｅｔｑｐｍｉｎ（ｇｅｔｖａｒ″ｖｓｍｉｎ″））（ｓｅｔｑｗ（*（／（-（ｃａｒｐｍａｘ）（ｃａｒｐｍｉｎ）） （-ｃａｄｒｐｍａｘ）（ｃａｄｒｐｍｉｎ）））ｈ））（ｓｅｔｑｐｐ０（ｌｉｓｔ（-（ｃａｒｐｃｅｎ）（*ｗ０．４４））（-（ｃａｄｒｐｃｅｎ）（*ｈ０．２６））））（ｓｅｔｑｐｐ１（ｌｉｓｔ（+（ｃａｒｐｃｅｎ）（*ｗ０．４４））lZ`Wk€)k`5_€yTkEy[此文;（（＝ｘｈ１３）（ｓｅｔｎｉｌ））-7p|~xXhM y[州学习工学水利.gzU521.]-7p|~xXhM y（（＝ｘｈ１４）（ｓｅｔｏｋ））））（ｄｅｆｕｎｌａｓｔｓｌｄ（））（ｄｅｆｕｎｎｅｘｔｓｌｄ（））（ｄｅｆｕｎｓｅｔｎｉｌ（））（ｄｅｆｕｎｓｅｔｏｋ（））如点在上半部分运行ｄｑ１,否则运行ｄｑ２ｗｈｉｌｅ；ｄｅｆｕｎ图例主程序结束定义ｄｑ１子函数点落在左面ａｏｒｂ为１点在右面ａｏｒｂ为２;ｉｆ计算纵向序号计算图例图块名（由４部分连接组成）ｄｑ１结束定义ｄｑ２子函数计算横向序号运行ｌａｓｔｓｌｄ子函数,向前翻页运行ｎｅｘｔｓｌｄ子函数,向后翻页运行ｓｅｔｎｉｌ子函数,赋空退出运行ｓｅｔｏｋ子函数,插入图例定义ｌａｓｔｓｌｄ子函数,略定义ｎｅｘｔｓｌｄ子函数,略定义ｓｅｔｎｉｌ子函数,略vn y（（＝ｘｈ１４）（ｓｅｔｏｋ））））（ｄｅｆｕｎｌａｓｔｓｌｄ（））（ｄｅｆｕｎｎｅｘｔｓｌｄ（））（ｄｅｆｕｎｓｅｔｎｉｌ（））（ｄｅｆｕｎｓｅｔｏｋ（））如点在上半部分运行ｄｑ１,否则运行ｄｑ２ｗｈｉｌｅ；ｄｅｆｕｎ图例主程序结束定义ｄｑ１子函数点落在左面ａｏｒｂ为１点在右面ａｏｒｂ为２;ｉｆ计算纵向序号计算图例图块名（由４部分连接组成）ｄｑ１结束定义ｄｑ２子函数计算横向序号运行ｌａｓｔｓｌｄ子函数,向前翻页运行ｎｅｘｔｓｌｄ子函数,向后翻页运行ｓｅｔｎｉｌ子函数,赋空退出运行ｓｅｔｏｋ子函数,插入图例定义ｌａｓｔｓｌｄ子函数,略定义ｎｅｘｔｓｌｄ子函数,略定义ｓｅｔｎｉｌ子函数,略vn ~l *
},x8jT[此文'