给排水设计给排水ＣＡＤ软件开发实例

灯菜单左右代码,左面为１,右面为２;ｃ代表幻灯菜单中上下序号,分别为１～８。
　　
　　本软件设计的核心思想是通过点的定位计算出的所对应的图例图块名,然后插入图例,多重选择由表处理语句来完成。本文中第７节的ｂ部分给出ａｔｌ．ｌｓｐ中与幻灯菜单有关的程序清单及注解。后面还有几个子函数,由于篇幅有限本文不详细列出程序,只做简单介绍:
　　
　　ｌａｓｔｓｌｄ子函数对幻灯名字符串进行运算,求出上一页幻灯名;
　　
　　ｎｅｘｔｓｌｄ子函数对幻灯名字符串进行运算,求出下一页幻灯名;
　　
　　ｓｅｔｎｉｌ子函数对各变量（必须包括ｗｈｉｌｌ）赋空值,并退出程序:
　　
　　ｓｅｔｏｋ子函数对被选择的图例表进行处理,并逐项连续插入图例。
　　
　　６小结
　　
　　ａ．标高标注程序是利用幻灯菜单调出相应的标高标注子程序。
　　
　　ｂ．图例程序是利用幻灯菜单给图例名称赋值,然后运用字符串处理和表处理技术求得图例名称的列表,从而连续逐项插入被选中的图例。
　　
　　ｃ．图例幻灯菜单分两个大区,上面是图例区,下面是幻灯菜单的操作区,可见幻灯菜单能做成复杂高效的菜单。
　　
　　７程序清单
　　
　　ａ．ａｂｇ．ｌｓｐ程序及注解;
　　
　　（ｄｅｆｕｎＣ：ＢＧＢＺ（）
　　
　　（ｓｅｔｑｗｈｉｌ１ｔ）
　　
　　（ｗｈｉｌｅｗｈｉｌ１）
　　
　　（
　　
　　
　　
　　ｃｏｍｍａｎｄ″ｖｓｌｉｄｅ″″ａｃｄ１″）
　　
　　（ｉｆ（ｓｅｔｑｐｐ（ｇｅｔｐｏｉｎｔ″请点取标高种类″））
　　
　　（ｐｒｏｇｎ
　　
　　（ｒｅｄｒａｗ）
　　
　　（ｓｅｔｑｈ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″）
　　
　　ｐｃｅｎ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″）
　　
　　ｐｍａｘ（ｇｅｔｖａｒ″ｖｓｍａｘ″）
　　
　　ｐｍｉｍ（ｇｅｔｖａｒ″ｖｓｍｉｎ″）虚拟屏幕左下角）
　　
　　（ｓｅｔｑｗ（*（／（-（ｃａｒｐｍａｘ）（ｃａｒｐｍｉｎ））
　　
　　（-（ｃａｄｒｐｍａｘ）（ｃａｄｒｐｍｉｎ）））ｈ））
　　
　　（ｓｅｔｑｐｐ０（ｌｉｓｔ（-（ｃａｒｐｃｅｎ）（／ｗ３））
　　
　　（-（ｃａｄｒｐｃｅｎ（
　　
　　／ｈ３））））
　　
　　（ｓｅｔｑｐｐ１（ｌｉｓｔ（+（ｃａｒｐｃｅｎ）（／ｗ３））
　　
　　（+（ｃａｄｒｐｃｅｎ）（／ｈ３））））
　　
　　（ｓｅｔｑｄｘ（／ｗ６）ｄｙ（／ｈ６））
　　
　　（ｓｅｔｑｌｘ（ｃａｒｐｐ）ｌｙ（ｃａｄｒｐｐ））
　　
　　（ｓｅｔｑｐｌｘ（ｃａｒｐｐ０）ｐｌｙ（ｃａｄｒｐｐ０））
　　
　　（ｓｅｔｐｌｘ（-ｌｘｐｌｘ）ｌｙ（-ｌｙｐｌｙ））
　　
　　（ｓｅｔｐｘ（ｆｉｘ（１+（／（-ｐｘｐｘ０）ｄｘ））））
　　
　　（ｓｅｔｑｙ（ｆｉｘ（１+（／（-ｐｙｐｙ０）ｄｙ））））
　　
　　（ｓｅｔｑｎｎ（ｓｔｒｃａｔ（ｉｔｏａｘ）（ｉｔｏａｙ）））
　　
　　（ｃｏｎｄ（（＝ｎｎ１４）（ａｂｇ１））
　　
　　（（＝ｎｎ１３）（ａｂｇ２））
　　
　　（（＝ｎｎ１２）（ａｂｇ３））
　　
　　（（＝ｎｎ１１）（ａｂｇ４））
　　
　　主程序ＢＧＢＺ开始
　　
　　设ｗｈｉｌ１值为真
　　
　　当ｗｈｉｌ１为真时执行下列程序
　　
　　显示幻灯在幻灯菜单中选点
　　
　　重画恢复原画面
　　
　　绘图区高
　　
　　绘图区中心点
　　
　　虚拟屏幕右上角
　　
　　共获取系统变量
　　
　　求绘图区宽
　　
　　有效区左下角,（有效区宽和高占绘图宽和高的三分之二）
　　
　　有效区右上角
　　
　　每格宽和高
　　
　　ＰＰ点的Ｘ和Ｙ坐标
　　
　　左下角点坐标
　　
　　ＰＰ点和ＰＰ０点Ｘ和Ｙ坐标差;
　　
　　Ｘ方向格序号
　　
　　Ｙ方向格序号
　　
　　将Ｘ和Ｙ连接
　　
　　多项选择条件函数
　　
　　ｎｎ＝１３时运行ａｂｅ２子函数

《给排水设计给排水ＣＡＤ软件开发实例(第2页)》