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

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

2013-06-30 01:00

ＰＰ点的Ｘ和Ｙ坐标

左下角点坐标

ＰＰ点和ＰＰ０点Ｘ和Ｙ坐标差;

Ｘ方向格序号

Ｙ方向格序号

将Ｘ和Ｙ连接

多项选择条件函数

ｎｎ＝１３时运行ａｂｅ２子函数

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

（（＝ｎｎ２３）（ａｂｇ６））

（（＝ｎｎ２２）（ａｂｇ７））

（（＝ｎｎ２１）（ａｂｇ８））

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

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

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

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

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

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

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

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

）;ｃｏｎｄ）

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

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

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

（ｉｎｉｔｇｅｔ１）

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

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

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

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

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

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

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

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

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

为１１-４４格规定功能,即每一格对应一个子函数 （科教范文网 lw.nseaC.Com编辑发布）

主程序ＢＧＢＺ结束

定义ａｂｇ１子函数

标高符号起点

不接受空值

标高值

计算各点位置

标高为０时加“±”

画标高符号

写标高值ｃｏｍｍａｎｄ

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

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

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

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

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

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

（ｗｈｉｌｅｗｈｉｌ１

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

（ｉｎｉｔｇｅｔ１）

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

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

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

图例绘制主程序

赋初始值

图例图块路径

提示

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

不接受空值

以下内容同标高标注程序

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

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

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

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

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

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

（ｓｅｔｑｐｐ１（ｌｉｓｔ（ （ｃａｒｐｃｅｎ）（*ｗ０．４４）） （科教范文网http://fw.ΝsΕΑc.com编辑）

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

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