分类
给排水设计给排水ＣＡＤ软件开发实例3
（ｓｅｔｑｐｃｅｎ（ｇｅｔｖａｒ″ｖｉｅｗｃｔｒ″））
图例绘制主程序
赋初始值
图例图块路径
提示
当ｗｈｉｌ１为真执行下面程序调出幻灯（幻灯名由三个变量连接而成,图２为第一页）
不接受空值
以下内容同标高标注程序
（ｓｅｔｑｐｍａｘ（ｇｅｔｖａｒ″ｖｓｍａｘ″））
（ｓｅｔｑｐｍｉｎ（ｇｅｔｖａｒ″ｖｓｍｉｎ″））
（ｓｅｔｑｗ（*（／（-（ｃａｒｐｍａｘ）（ｃａｒｐｍｉｎ））
（-ｃａｄｒｐｍａｘ）（ｃａｄｒｐｍｉｎ）））ｈ））
（ｓｅｔｑｐｐ０（ｌｉｓｔ（-（ｃａｒｐｃｅｎ）（*ｗ０．４４））
（-（ｃａｄｒｐｃｅｎ）（*ｈ０．２６））））
（ｓｅｔｑｐｐ１（ｌｉｓｔ（+（ｃａｒｐｃｅｎ）（*ｗ０．４４））
（+（ｃａｄｒｐｃｅｎ）（*ｈ０．４４））））
（ｓｅｔｑｄｘ（／（*ｗ０．８８）４）ｄｙ（／（*ｈ０．７）８））
（ｓｅｔｑｐｘ（ｃａｒｐｐ）ｐｙ（ｃａｄｒｐｐ））
（ｓｅｔｑｐｘ０（ｃａｒｐｐ０）ｐｙ０（ｃａｄｒｐｐ０））
（ｉｆ（＜ｐｙｐｙ０）（ｄｑ２）（ｄｑ１））））
（ｄｅｆｕｎｄｑ１（）（ｉｆ（＜ｐｘ（ｃａｒｐｃｅｎ））
（ｓｅｔｑａｏｒｂ″１″）
（ｓｅｔｑａｏｒｂ″２″））
（ｓｅｔｑｘｈ（ｆｉｘ（１+（／（-ｐｙｐｙ０）ｄｙ））））
（ｓｅｔｑｂｌｋｎａｍｅ
（ｓｔｒｃａｔ″ａｔｌ″ｔｌｓｌｄｎａｏｒｂ（ｉｔｏａｘｈ））））
（ｄｅｆｕｎｄｑ２（）
（ｓｅｔｑｘｈ１（ｆｉｘ（１+（／（-ｐｘｐｘ０）ｄｘ））））
（ｃｏｎｄ（（＝ｘｈ１１）（ｌａｓｔｓｌｄ））
（（＝ｘｈ１２）（ｎｅｘｔｓ
ｌｄ））
（（＝ｘｈ１３）（ｓｅｔｎｉｌ））
（（＝ｘｈ１４）（ｓｅｔｏｋ））））
（ｄｅｆｕｎｌａｓｔｓｌｄ（））
（ｄｅｆｕｎｎｅｘｔｓｌｄ（））
（ｄｅｆｕｎｓｅｔｎｉｌ（））
（ｄｅｆｕｎｓｅｔｏｋ（））
如点在上半部分运行ｄｑ１,否则运行ｄｑ２ｗｈｉｌｅ；ｄｅｆｕｎ图例主程序结束定义ｄｑ１子函数
点落在左面ａｏｒｂ为１
点在右面ａｏｒｂ为２;ｉｆ
计算纵向序号计算图例图块名（由４部分连接组成）
ｄｑ１结束
定义ｄｑ２子函数
计算横向序号
运行ｌａｓｔｓｌｄ子函数,向前翻页
运行ｎｅｘｔｓｌｄ子函数,向后翻页
运行ｓｅｔｎｉｌ子函数,赋空退出
运行ｓｅｔｏｋ子函数,插入图例
定义ｌａｓｔｓｌｄ子函数,略
定义ｎｅｘｔｓｌｄ子函数,略
定义ｓｅｔｎｉｌ子函数,略
定义ｓｉｔｏｋ子函数,略