评价网 > 科教论文 > 理学毕业论文 > 理工论文 > 正文

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

2013-06-30 01:00

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

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

（ｉｆ（＜ｐｙｐｙ０）（ｄｑ２）（ｄｑ１））））

（ｄｅｆｕｎｄｑ１（）（ｉｆ（＜ｐｘ（ｃａｒｐｃｅｎ））

（ｓｅｔｑａｏｒｂ″１″）

（ｓｅｔｑａｏｒｂ″２″））

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

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

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

（ｄｅｆｕｎｄｑ２（）

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

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

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


ｌｄ））

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

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

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

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

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

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

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

点落在左面ａｏｒｂ为１

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

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

ｄｑ１结束

定义ｄｑ２子函数

计算横向序号

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

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

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

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

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

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

定义ｓｅｔｎｉｌ子函数,略 （转载自科教范文网http://fw.nseac.com）

定义ｓｉｔｏｋ子函数,略 论文出处(作者):
论“城市优化供配水系统”研究与开发—建设节水型城市的
给排水专业ＣＡＤ软件开发方法探讨