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

　　
　　（（＝ｎｎ２４）（ａｂｇ５））
　　
　　（（＝ｎｎ２３）（ａｂｇ６））
　　
　　（（＝ｎｎ２２）（ａｂｇ７））
　　
　　（（＝ｎｎ２１）（ａｂｇ８））
　　
　　（（＝ｎｎ３４）（ａｂｇ９））
　　
　　（（＝ｎｎ３３）（ａｂｇ１０））
　　
　　（（＝ｎｎ３２）（ａｂｇ１１））
　　
　　（（＝ｎｎ３１）（ａｂｇ１２））
　　
　　（（＝ｎｎ４４）（ａｂｇ１３））
　　
　　（（＝ｎｎ４３）（ａｂｇ１４））
　　
　　（（＝ｎｎ４２）（ａｂｇ１５））
　　
　　（（＝ｎｎ４１）（ｓｅｔｑｗｈｉｌ１ｎｉｌ））
　　
　　）;ｃｏｎｄ）
　　
　　）））;ｐｒｏｇｎ；ｉｆ；ｗｈｉｌｅ；ｄｅｆｕｎ
　　
　　（ｄｅｆｕｎａｂｇ１（）
　　
　　（ｗｈｉｌｅ（ｓｅｔｑｐ１（ｇｅｔｐｏｉｎｔ″输入起点″））
　　
　　（ｉｎｉｔｇｅｔ１）
　　
　　（ｓｅｔｑｓ１（ｇｅｔｒｅａｌ″标高值:″））
　　
　　（ｓｅｔｑｐ２（ｐｏｌａｒｐ１０８））
　　
　　（ｓｅｔｑｐ３（ｐｏｌａｒｐ２（／ｐｉ４）３．２））
　　
　　（ｓｅｔｑｐ４（ｌｉｓｔ（+（ｃａｒｐ２）０）（+（ｃａｄｒｐ２）２．９）））
　　
　　（ｉｆ（＝ｓ１０）（ｓｅｔｐｓ２″%%ｐ０．００″）（ｓｅｔｑｓ２（ｒｔｏｓｓ１２２）））
　　
　　（ｃｏｍｍａｎｄ″ｌｉｎｅ″ｐ１″＠１４＜０″″″″ｌｉｎｅ″ｐ３ｐ２
　　
　　″＠３．２＜１３５″″＠１２．８＜０″″″
　　
　　″ｔｅｘｔ″ｐ４２．８０ｓ２）））;……
　　
　　ｂ．ａｔｌ．ｌｓｐ程序及注解
　　
　　为１１-４４格规定功能,即每一格对应一个子函数
　　
　　主程序ＢＧＢＺ结束
　　
　　定义ａｂｇ１子函数
　　
　　标高符号起点
　　
　　不接受空值
　　
　　标高值
　　
　　计算各点位置
　　
　　标高为０时加“±”
　　
　　画标高符号
　　
　　写标高值ｃｏｍｍａ
　　
　　
　　
　　ｎｄ
　　
　　ｗｈｉｌｅ；ｄｅｆｕｎ-ａｂｇ１ａ
　　
　　ｂｇ２～ａｂｇ１５子函数省略
　　
　　（ｄｅｆｕｎＣ：ＴＬ（）
　　
　　（ｓｅｔｑａｔｌｌｉｓｔｎｉｌｔｌｓｌｄ″ａｔｌａ″ｔｌｓｌｄｎ″１″ｗｈｉｌ１ｔ）
　　
　　（ｓｅｔｑｔｌｐａｔｈ″／ｃａｄ／ａｔｌ″）
　　
　　（ｐｒｏｍｔｐ″＼ｎ给排水图例程序
　　—ＢＥＲＩＳ″）
　　
　　（ｗｈｉｌｅｗｈｉｌ１
　　
　　（ｃｏｍｍａｎｄ″ｖｓｌｉｄｅ″（ｓｔｒｃａｔｔｌｐａｔｈ″ａｔｌ″ｔｌｓｌｄｎ））
　　
　　（ｉｎｉｔｇｅｔ１）
　　
　　（ｓｅｔｑｐｐ（ｇｅｔｐｏｉｎｔ″＼ｎ请连续点取图例,并点取〈确定〉″））
　　
　　（ｓｅｔｑｈ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″））
　　
　　（ｓｅｔｑｐｃｅｎ（ｇｅｔｖａｒ″ｖｉｅｗｃｔｒ″））
　　
　　图例绘制主程序
　　
　　赋初始值
　　
　　图例图块路径
　　
　　提示
　　
　　当ｗｈｉｌ１为真执行下面程序调出幻灯（幻灯名由三个变量连接而成,图２为第一页）
　　
　　不接受空值
　　
　　以下内容同标高标注程序
　　
　　（ｓｅｔｑｐｍａｘ（ｇｅｔｖａｒ″ｖｓｍａｘ″））
　　
　　（ｓｅｔｑｐｍｉｎ（ｇｅｔｖａｒ″ｖｓｍｉｎ″））
　　
　　（ｓｅｔｑｗ（*（／（-（ｃａｒｐｍａｘ）（ｃａｒｐｍｉｎ））
　　
　　（-ｃａｄｒｐｍａｘ）（ｃａｄｒｐｍｉｎ）））ｈ））
　　
　　（ｓｅｔｑｐｐ０（ｌｉｓｔ（-（ｃａｒｐｃｅｎ）（*ｗ０．４４））
　　
　　（-（ｃａｄｒｐｃｅｎ）（*ｈ０．２６））））
　　
　　（ｓｅｔｑｐｐ１（ｌｉｓｔ（+（ｃａｒｐｃｅｎ）（*ｗ０．４４））
　　
　　（+（ｃａｄｒｐｃｅｎ）（*ｈ０．４４））））
　　
　　（ｓｅｔｑｄｘ（／（*ｗ０．８８）４）ｄ

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