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

  

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

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

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

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

）;ｃｏｎｄ）  

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

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

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

（ｉｎｉｔｇｅｔ１）  

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

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

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

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

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

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

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

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

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

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

主程序ＢＧＢＺ结束  

定义ａｂｇ１子函数  

标高符号起点  

不接受空值  

标高值  

计算各点位置  

标高为０时加“±”  

画标高符号  

写标高值ｃｏｍｍ

ａｎｄ  

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

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

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

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

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

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

（ｗｈｉｌｅｗｈｉｌ１  

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

（ｉｎｉｔｇｅｔ１）  

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

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

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

图例绘制主程序  

赋初始值  

图例图块路径  

提示  

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

不接受空值  

以下内容同标高标注程序  

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

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

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

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

（ｓｅｔｑｐｐ０（ｌｉｓｔ（-（ｃａｒｐｃｅｎ）（*ｗ０．４４））  

（-（ｃａｄｒｐｃｅｎ）（*ｈ０．２６））））  

（ｓｅｔｑｐｐ１（ｌｉｓｔ（+（ｃａｒｐｃｅｎ）（*ｗ０．４４））  

（+（ｃａｄｒｐｃｅｎ）（*ｈ０．４４））））  

（ｓｅｔｑｄｘ（／（*ｗ０．８８）４）ｄｙ（／（*ｈ０．７）８））  

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

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

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

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

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

（ｓｅｔ

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