|
|
水利冬修填塘固基断面勘测设计程序应用 : a i6 r+ d9 F1 P2 B3 G
! U: b# D( O" D. n0 G8 Z }6 j关键词：VBA 程序 勘测 断面0 K8 }+ B/ X" n6 J' p' O3 y
5 Z# F6 p$ J" t8 X' G: x1． 前言) ~! r4 r) F6 h
在设计中，没有专业设计软件的情况下，绘制断面图是很繁琐的事，需要进行大量的、重复的操作，既劳神，又容易出错。9 ~0 b7 ]0 Z( B8 y* \! h' @, S& S
7 h" Z. y4 |. o9 p! ~0 t/ n
利用AUTOCAD提供的VBA功能，编制程序进行计算、绘制，又能读取桩号、地面高程等信息在AUTOCAD里以文字、线条的方式写出来。2 f" g* {, B6 J, M. k/ b) v" _
# m* x) ?2 [/ ~/ E$ zVBA作为一个集成的开发环境，它提供了高质量的用户化编程能力。基于AUTOCAD的VBA应用程序就是高级程序语言的计算功能与AUTOCAD的绘图功能结合，使用VBA程序语句来控制对AUTOCAD图形的操作。' r" z: X+ [5 c! @" Z& E: a, q
- _% x Q' H( B6 L7 R) F
2． 断面勘测计算画图工作
9 j0 V3 T& D3 O5 w0 y8 e4 w 水利冬修填塘固基断面设计工作，主要是通过数据的获取和处理，输出得到设计图。设计图是断面设计的主要成果，是重要的技术文件之一。在断面设计图上有两条主要的线，一条是根据各点的高程而绘制的实际断面线；另一条是设计断面线，它是经过技术上、经济上的处理而制定出来的线。
' v& m/ S- [1 d b7 b( F; s9 c3 T+ v2 p! c8 A0 ?( P) u, F" E8 y
（1）组织结构图如下:
7 V8 F9 g4 K. g# \2 z' g
, H" T1 `6 c6 q! C+ }: D& o E# J(输入原始数据)实际数值. k* Y1 U2 {* E( n! {" H
# ^+ a( j. ]6 a
（经过计算获取）各点坐标位置) W( i/ V$ @. P- u2 K
0 w. t" j" G; s8 y. B! U（画图、书写文字）连接各点的坐标位置+标注文字等
% A: m- o$ k3 R0 P, w4 u7 T0 b
' y" W& f, @: P, q8 o7 ]9 c（2）具体各点名称及坐标位置为:：" s) L; v' T/ a5 }7 Q: P
8 \' i; k2 d$ @( T/ p名称 代码 坐标代码（二维）
" N4 [' {! D8 \( ^: ~6 l外坡最低点 ee: ee(Xe,Ye), C) E- u! I! K: `% m2 ^
面宽左位置点 ff: ff(Xf,Yf)
* n" W6 t- ~. \. ^! E E2 ]: v* e; c第一高程点 bb: bb(Xb,Yb)
+ S9 d1 n7 E/ @! F+ d第二高程点 cc: cc(Xc,Yc)
- y) H: M& [+ {3 s9 W ^7 h& L第三高程点 dd: dd(Xd,Yd)1 {6 d `# _ S
。。。) M5 Z4 p. K$ ^3 g
。。。' _7 @0 O9 s* I7 w1 K9 [9 ~. r
（3）经过实地测量获取的实际数据为：
# v/ Y y4 g; I4 q- q! c: k( d% r& ?9 [+ S4 ^+ s
面宽实际数值为:m
5 L% H6 Q5 g$ K( q- _各高程实际数值为h1 h2 h3 。。。
- Z g+ ?( O! n1 R: Q V, b% T各斜长实际数值为l1 l2 l3 。。。( l' Q8 @7 j' ^3 w1 r9 [6 ~; J, c
$ y: J( L2 R1 ?0 e（4）以上具体数据如图示：" |. h/ m# y, x# G$ O9 R) z
- X: t$ n# h5 Z. @! n! r% B（5）设计的基本思路和原理
1 s' q, V# ?- ?7 ]根据勾股定理计算确定各高程点之间的坐标位置，然后连接各点实现制图。
6 w1 r. A: w( w, Q" E1 i$ v: q
" ^" Z" N, ] b6 B) g# C9 ~5．程序的编辑步骤简介
6 q' Q! F; K$ w4 y! `8 k" h（1）打开AUTOCAD. {6 e# _% B+ M. ^+ ^7 Q
（2）按ALT+F8键进入VBA界面，选择“宏编辑”进入编辑画面， w- L: J# d/ D- g8 `! V9 J9 u
（3）在上面新建一个工程，取名为：“断面画图程序。PRF”文件，$ P7 ]' P) a- y0 V
（4）在界面上添加两个FORM，一个为“录入。”，一个为“修改”。FRM如图示控件，如图：
) A) P ], }; J* d ) U0 R' O. n, ]. \3 f# M( C, G
" O( N+ D* N" T9 c8 d% ~& I0 C5 B
4 N) }* G- u3 u9 S! m8 q$ n（5）在录入里面，分别双击“第一断面”按钮、“修改”按钮、“退出”按钮，在上面书写代码，5 S# _- v4 f4 M1 y3 y
（6）书写代码，略，完成保存之。
5 m" m& a! R+ q9 P+ A3 K* v3 s8 ]，
$ M3 `' H. h- T$ T& Q6 k9 C; o3 O& F1 H& P b% A. ]5 j* P
6．程序应用的具体操作步骤% |8 ^1 G& H" z& n8 U9 J P
（1）打开AUTOCAD4 {6 W( ^$ j% d1 Z" H2 V, l
（2）按ALT+F8键进入VBA界面，打开“断面画图程序。PRF”文件，执行之，进入如图示的界面：
! P4 k; Z% w; S 8 f P* {; Z. Q. U( M z$ u
（3）按TAB键顺序输入数据，然后点击“第一断面”按钮。依次操作下去，5 {% S5 R9 K1 l1 d( n
。。。。。。即可。+ v, {3 n k2 y: q2 ~$ @4 P
按“退出”按钮退出。/ d: G' }4 `6 m5 v9 D Y+ B! l
（4）（执行后）输出结果如图示： H2 O$ D4 j# \7 v
1 s3 W" _5 Z0 L& ~ _7 ^# i9 @' g! w* J（5）修改
7 J8 R* j! P, T& c! s2 h- G画完后，再进入界面，点击“修改”按钮，进入修改界面，如图示：. a, O( D; l; }/ t1 R
3 b/ F. Z8 n: s' _! x. ?
! _" {+ }- j6 I, r# e6．注意事项：
# g e5 s: f, f+ T* \6 W（1）如果是二台，高差为零的，则后一高程值=前一高程。2 U6 ]; b2 k) R5 K1 Q
（2）如果存在跌坎，则斜长为前后高程差（只需要口算下，输入到斜长文本框里）。 |
|
发表于 2009-8-13 13:41
楼主