注子程序。

ｂ．图例程序是利用幻灯菜单给图例名称赋值,然后运用字符串处理和表处理技术求得图例名称的列表,从而连续逐项插入被选中的图例。

ｃ．图例幻灯菜单分两个大区,上面是图例区,下面是幻灯菜单的操作区,可见幻灯菜单能做成复杂高效的菜单。

７程序清单

ａ．ａｂｇ．ｌｓｐ程序及注解;

（ｄｅｆｕｎＣ：ＢＧＢＺ（）

（ｓｅｔｑｗｈｉｌ１ｔ）

（ｗｈｉｌｅｗｈｉｌ１）

（ｃｏｍｍａｎｄ″ｖｓｌｉｄｅ″″ａｃｄ１″）

（ｉｆ（ｓｅｔｑｐｐ（ｇｅｔｐｏｉｎｔ″请点取标高种类″））

（ｐｒｏｇｎ

（ｒｅｄｒａｗ）

（ｓｅｔｑｈ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″）

ｐｃｅｎ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″）

ｐｍａｘ（ｇｅｔｖａｒ″ｖｓｍａｘ″）

ｐｍｉｍ（ｇｅｔｖａｒ″ｖｓｍｉｎ″）虚拟屏幕左下角）

（ｓｅｔｑｗ（*（／（-（ｃａｒｐｍａｘ）（ｃａｒｐｍｉｎ））

（-（ｃａｄｒｐｍａｘ）（ｃａｄｒｐｍｉｎ）））ｈ））

（ｓｅｔｑｐｐ０（ｌｉｓｔ（-（ｃａｒｐｃｅｎ）（／ｗ３））

（-（ｃａｄｒｐｃｅｎ（

／ｈ３））））

（ｓｅｔｑｐｐ１（ｌｉｓｔ（+（ｃａｒｐｃｅｎ）（／ｗ３））

（+（ｃａｄｒｐｃｅｎ）（／ｈ３））））

（ｓｅｔｑｄｘ（／ｗ６）ｄｙ（／ｈ６））

（ｓｅｔｑｌｘ（ｃａｒｐｐ）ｌｙ（ｃａｄｒｐｐ））

（ｓｅｔｑｐｌｘ（ｃａｒｐｐ０）ｐｌｙ（ｃａｄｒｐｐ０））

（ｓｅｔｐｌｘ（-ｌｘｐｌｘ）ｌｙ（-ｌｙｐｌｙ））

（ｓｅｔｐｘ（ｆｉｘ（１+（／（-ｐｘｐｘ０）ｄｘ））））

（ｓｅｔｑｙ（ｆｉｘ（１+（／（-ｐｙｐｙ０）ｄｙ））））

（ｓｅｔｑｎｎ（ｓｔｒｃａｔ（ｉｔｏａｘ）（ｉｔｏａｙ）））

（ｃｏｎｄ（（＝ｎｎ１４）（ａｂｇ１））

（（＝ｎｎ１３）（ａｂｇ２））

（（＝ｎｎ１２）（ａｂｇ３））

（（＝ｎｎ１１）（ａｂｇ４））

主程序ＢＧＢＺ开始

设ｗｈｉｌ１值为真

当ｗｈｉｌ１为真时执行下列程序

显示幻灯在幻灯菜单中选点

重画恢复原画面

绘图区高

绘图区中心点

虚拟屏幕右上角

共获取系统变量

求绘图区宽

有效区左下角,（有效区宽和高占绘图宽和高的三分之二）

有效区右上角

每格宽和高

ＰＰ点的Ｘ和Ｙ坐标

左下角点坐标

ＰＰ点和ＰＰ０点Ｘ和Ｙ坐标差;

Ｘ方向格序号

Ｙ方向格序号

将Ｘ和Ｙ连接

多项选择条件函数

ｎｎ＝１３时运行ａｂｅ２子函数

（（＝ｎｎ２４）（ａｂｇ５））

（（＝ｎｎ２３）（ａｂｇ６））

（（＝ｎｎ２２）（ａｂｇ７））

（（＝ｎｎ２１）（ａｂｇ８））

（（＝ｎｎ３４）（ａｂｇ９））

（（＝ｎｎ３３）（ａｂｇ１０））

（（＝ｎｎ３２）（ａｂｇ１１））

（（＝ｎｎ３１）（ａｂｇ１２））

（（＝ｎｎ４４）（ａｂｇ１３））

（（＝ｎｎ４３）（ａｂｇ１４））

（（＝ｎｎ４２）（ａｂｇ１５））

（（＝ｎｎ４１）（ｓｅｔｑｗｈｉｌ１ｎｉｌ））

）;ｃｏｎｄ）

）））;ｐｒｏｇｎ；ｉｆ；ｗｈｉｌｅ；ｄｅｆｕｎ

（ｄｅｆｕｎａｂｇ１（）

（ｗｈｉｌｅ（ｓｅｔｑｐ１（ｇｅｔｐｏｉｎｔ″输入起点″））

（ｉｎｉｔｇｅｔ１）

（ｓｅｔｑｓ１（ｇｅｔｒｅａｌ″标高值:″））

（ｓｅｔｑｐ２（ｐｏｌａｒｐ１０８））

（ｓｅｔｑｐ３（ｐｏｌａｒｐ２（／ｐｉ４）３．２））

（ｓｅｔｑｐ４（ｌｉｓｔ（+（ｃａｒｐ２）０）（+（ｃａｄｒｐ２）２．９）））

（ｉｆ（＝ｓ１０）（ｓｅｔｐｓ２″%%ｐ０．００″）（ｓｅｔｑｓ２（ｒｔｏｓｓ１２２）））

（ｃｏｍｍａｎｄ″ｌｉｎｅ″ｐ１″＠１４＜０″″″″ｌｉｎｅ″ｐ３ｐ２

″＠３．２＜１３５″″＠１２．８＜０″″″

″ｔｅｘｔ″ｐ４２．８０ｓ２）））;……

ｂ．ａｔｌ．ｌｓｐ程序及注解

为１１-４４格规定功能,即每一格对应一个子函数

主程序ＢＧＢＺ结束

定义ａｂｇ１子函数

标高符号起点

不接受空值

标高值

计算各点位置

标高为０时加“±”

画标高符号

写标高值ｃｏｍｍａｎｄ

ｗｈｉｌｅ；ｄｅｆｕｎ-ａｂｇ１ａ

ｂｇ２～ａｂｇ１５子函数省略

（ｄｅｆｕｎＣ：ＴＬ（）

（ｓｅｔｑａｔｌｌｉｓｔｎｉｌｔｌｓｌｄ″ａｔｌａ″ｔｌｓｌｄｎ″１″ｗｈｉｌ１ｔ）

（ｓｅｔｑｔｌｐａｔｈ″／ｃａｄ／ａｔｌ″）

（ｐｒｏｍｔｐ″＼ｎ给排水图例程序
—ＢＥＲＩＳ″）

（ｗｈｉｌｅｗｈｉｌ１

（ｃｏｍｍａｎｄ″ｖｓｌｉｄｅ″（ｓｔｒｃａｔｔｌｐａｔｈ″ａｔｌ″ｔｌｓｌｄｎ））

（ｉｎｉｔｇｅｔ１）

（ｓｅｔｑｐｐ（ｇｅｔｐｏｉｎｔ″＼ｎ请连续点取图例,并点取〈确定〉″））

（ｓｅｔｑｈ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″））

（ｓｅｔｑｐｃｅｎ（ｇｅｔｖａｒ″ｖｉｅｗｃｔｒ″））

图例绘制主程序

赋初始值

图例图块路径

提示

当ｗｈｉｌ１为真执行下面程序调出幻灯（幻灯名由三个变量连接而成,图２为第一页）

不接受空值

以下内容同标高标注程序

（ｓｅｔｑｐｍａｘ（ｇｅ

上一页  [1] [2] [3]  下一页