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

ｑａｏｒｂ″２″））  

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

（ｓｅｔｑｂｌｋｎａｍｅ  

（ｓｔｒｃａｔ″ａｔｌ″ｔｌｓｌｄｎａｏｒｂ（ｉｔｏａｘｈ））））  

（ｄｅｆｕｎｄｑ２（）  

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

（ｃｏｎｄ（（＝ｘｈ１１）（ｌａｓｔｓｌｄ））  

（（＝ｘｈ１２）（ｎｅｘｔｓ  

   
ｌｄ））  

（（＝ｘｈ１３）（ｓｅｔｎｉｌ））  

（（＝ｘｈ１４）（ｓｅｔｏｋ））））  

（ｄｅｆｕｎｌａｓｔｓｌｄ（））  

（ｄｅｆｕｎｎｅｘｔｓｌｄ（））  

（ｄｅｆｕｎｓｅｔｎｉｌ（））  

（ｄｅｆｕｎｓｅｔｏｋ（））  

如点在上半部分运行ｄｑ１,否则运行ｄｑ２ｗｈｉｌｅ；ｄｅｆｕｎ图例主程序结束定义ｄｑ１子函数  

点落在左面ａｏｒｂ为１  

点在右面ａｏｒｂ为２;ｉｆ  

计算纵向序号计算图例图块名（由４部分连接组成）  

ｄｑ１结束  

定义ｄｑ２子函数  

计算横向序号  

运行ｌａｓｔｓｌｄ子函数,向前翻页  

运行ｎｅｘｔｓｌｄ子函数,向后翻页  

运行ｓｅｔｎｉｌ子函数,赋空退出

运行ｓｅｔｏｋ子函数,插入图例  

定义ｌａｓｔｓｌｄ子函数,略  

定义ｎｅｘｔｓｌｄ子函数,略  

定义ｓｅｔｎｉｌ子函数,略  

定义ｓｉｔｏｋ子函数,略  

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