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

ｙ（／（*ｈ０．７）８））
　　
　　（ｓｅｔｑｐｘ（ｃａｒｐｐ）ｐｙ（ｃａｄｒｐｐ））
　　
　　（ｓｅｔｑｐｘ０（ｃａｒｐｐ０）ｐｙ０（ｃａｄｒｐｐ０））
　　
　　（ｉｆ（＜ｐｙｐｙ０）（ｄｑ２）（ｄｑ１））））
　　
　　（ｄｅｆｕｎｄｑ１（）（ｉｆ（＜ｐｘ（ｃａｒｐｃｅｎ））
　　
　　（ｓｅｔｑａｏｒｂ″１″）
　　
　　（ｓｅｔｑａｏｒｂ″２″））
　　
　　（ｓｅｔｑｘｈ（ｆｉｘ（１+（／（-ｐｙｐｙ０）ｄｙ））））
　　
　　（ｓｅｔｑｂｌｋｎａｍｅ
　　
　　（ｓｔｒｃａｔ″ａｔｌ″ｔｌｓｌｄｎａｏｒｂ（ｉｔｏａｘｈ））））
　　
　　（ｄｅｆｕｎｄｑ２（）
　　
　　（ｓｅｔｑｘｈ１（ｆｉｘ（１+（／（-ｐｘｐｘ０）ｄｘ））））
　　
　　（ｃｏｎｄ（（＝ｘｈ１１）（ｌａｓｔｓｌｄ））
　　
　　（（＝ｘｈ１２）（ｎｅｘｔｓ
　　
　　
　　ｌｄ））
　　
　　（（＝ｘｈ１３）（ｓｅｔｎｉｌ））
　　
　　（（＝ｘｈ１４）（ｓｅｔｏｋ））））
　　
　　（ｄｅｆｕｎｌａｓｔｓｌｄ（））
　　
　　（ｄｅｆｕｎｎｅｘｔｓｌｄ（））
　　
　　（ｄｅｆｕｎｓｅｔｎｉｌ（））
　　
　　（ｄｅｆｕｎｓｅｔｏｋ（））
　　
　　如点在上半部分运行ｄｑ１,否则运行ｄｑ２ｗｈｉｌｅ；ｄｅｆｕｎ图例主程序结束定义ｄｑ１子函数
　　
　　点落在左面ａｏｒｂ为１
　　
　　点在右面ａｏｒｂ为２;ｉｆ
　　
　　计算纵向序号计算图例图块名（由４部分连接组成）
　　
　　ｄｑ１结束
　　
　　定义ｄｑ２子函数
　　
　　计算横向序号
　　
　　运行ｌａｓｔｓｌｄ子函数,向前翻页
　　
　　运行ｎｅｘｔｓｌｄ子函数,向后翻页
　　
　　运行ｓｅｔｎｉｌ子函数,赋空退出
　　
　　运行ｓｅｔｏｋ子函数,插入图例
　　
　　定义ｌａｓｔｓｌｄ子函数,略
　　
　　定义ｎｅｘｔｓｌｄ子函数,略
　　
　　定义ｓｅｔｎｉｌ子函数,略
　　
　　定义ｓｉｔｏｋ子函数,略
　　
　　
　

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