|
|
水利冬修填塘固基断面勘测设计程序应用
( K2 H) D4 `& v5 r+ z& |- @+ s: I+ u
关键词：VBA 程序 勘测 断面, e4 o- e G0 H/ |( ]0 F
; i. f, a& C1 p3 S1． 前言) b7 _/ e/ M, [/ |2 N% j; b x' s
在设计中，没有专业设计软件的情况下，绘制断面图是很繁琐的事，需要进行大量的、重复的操作，既劳神，又容易出错。
2 X; J) H' w) |" @ w8 G
6 \4 }: {" ]' j) ]利用AUTOCAD提供的VBA功能，编制程序进行计算、绘制，又能读取桩号、地面高程等信息在AUTOCAD里以文字、线条的方式写出来。 ^- `& p( |. K( @; f2 U' j
5 K+ e" r. I8 }
VBA作为一个集成的开发环境，它提供了高质量的用户化编程能力。基于AUTOCAD的VBA应用程序就是高级程序语言的计算功能与AUTOCAD的绘图功能结合，使用VBA程序语句来控制对AUTOCAD图形的操作。0 W$ P0 N! F: D$ W
/ r% ^' D; A2 ?( \; j0 X. o: O
2． 断面勘测计算画图工作. y# y6 e# u+ b. T
水利冬修填塘固基断面设计工作，主要是通过数据的获取和处理，输出得到设计图。设计图是断面设计的主要成果，是重要的技术文件之一。在断面设计图上有两条主要的线，一条是根据各点的高程而绘制的实际断面线；另一条是设计断面线，它是经过技术上、经济上的处理而制定出来的线。4 R( X/ i% Q, [ o% U
* C6 H. o! Z8 H0 w8 W. G* q' \（1）组织结构图如下:) p# ]3 ^& o% A- g
3 p( S2 @! R" J1 N
(输入原始数据)实际数值
' y b" W( j1 v6 T8 |. C8 s& K9 A+ b
（经过计算获取）各点坐标位置
% g. B6 j* X5 f: Y& {9 c- [
|$ X% v) `' h3 w; ]! J（画图、书写文字）连接各点的坐标位置+标注文字等
! C t7 p$ V7 p; p. u6 ^8 y' {1 z/ l5 O( h- o' u1 c' B) k
（2）具体各点名称及坐标位置为:：
6 P3 @ n' f, q& y
. J( i _2 z/ h1 F5 g' B" m8 G, a名称 代码 坐标代码（二维）
! q9 J. m$ J0 B- ~外坡最低点 ee: ee(Xe,Ye)0 C5 \/ x9 @/ j3 e: d$ X
面宽左位置点 ff: ff(Xf,Yf)! Q2 F/ O1 f" ]( G+ `. t0 O+ Y% s
第一高程点 bb: bb(Xb,Yb)
$ X* e! K" u6 C( a9 N第二高程点 cc: cc(Xc,Yc)
# ]. d% i9 Q( F; e% {第三高程点 dd: dd(Xd,Yd)
/ }; d8 f5 W5 ~。。。
8 k1 e# o. P( |) f1 ] K。。。- t- |6 `& g6 p
（3）经过实地测量获取的实际数据为：( a' e2 m8 b& @! L5 g+ k {% r
5 N' J+ t8 \( w' c& b- G2 m* A* H面宽实际数值为:m * E# V' D+ N4 V. B/ A r2 f9 z
各高程实际数值为h1 h2 h3 。。。
' v( u# T% _+ L$ r R各斜长实际数值为l1 l2 l3 。。。
% a1 Q) \3 K4 P/ J: ]
: p1 m0 ~1 |) I1 i: c4 Y( t& R* z（4）以上具体数据如图示：0 u9 Y6 _1 W& D* d2 g$ j
. i, A \4 E/ e) I. K
（5）设计的基本思路和原理5 X( f4 C$ i( g$ o1 B
根据勾股定理计算确定各高程点之间的坐标位置，然后连接各点实现制图。( ~+ E4 n" P: Z6 w" c; c; a8 j5 R% U
) R! f; i K o( H0 W5．程序的编辑步骤简介0 B$ x2 K. j- o" p- E
（1）打开AUTOCAD' t; @) X+ s0 t2 y K% _3 s/ P) P
（2）按ALT+F8键进入VBA界面，选择“宏编辑”进入编辑画面，/ t) o9 a( F" P/ }$ o
（3）在上面新建一个工程，取名为：“断面画图程序。PRF”文件，
1 O' m+ \5 t9 P（4）在界面上添加两个FORM，一个为“录入。”，一个为“修改”。FRM如图示控件，如图：
. {" X4 f0 |' }5 X0 U ) R) d) M* a+ x+ v" j8 Z* ~
# l4 r6 C% M( N9 i/ T
, E$ T3 j' X: z: ]! Z0 O2 h（5）在录入里面，分别双击“第一断面”按钮、“修改”按钮、“退出”按钮，在上面书写代码，: Z/ A0 f% o# R3 e6 S& R9 s! j# C( C
（6）书写代码，略，完成保存之。
4 ]( ^; G% T1 C) N) ^1 m，
) y9 |) r9 M0 ]* T% E, G# @
( f/ v7 W5 ~ N" N) _7 ?. a/ N6．程序应用的具体操作步骤0 ^, k3 y8 N! I J& Z Q
（1）打开AUTOCAD
0 F! i+ Q/ j' E# W; i（2）按ALT+F8键进入VBA界面，打开“断面画图程序。PRF”文件，执行之，进入如图示的界面：
9 ]: F7 o; ?' G6 N5 z3 w, K
8 |9 w2 N5 P" u8 _（3）按TAB键顺序输入数据，然后点击“第一断面”按钮。依次操作下去，7 @& W" ? t( r. f- k/ F
。。。。。。即可。
2 ^+ r( H- \1 f' F9 ~0 j! l按“退出”按钮退出。
2 `, _+ m4 Z( L7 w* Q8 b（4）（执行后）输出结果如图示：1 e6 F" U$ [8 m( E" u8 O9 F
9 X/ y. v5 z. i* c8 _, W# Y
（5）修改
* m1 n; U4 o. B0 C' y& x( t6 X, T画完后，再进入界面，点击“修改”按钮，进入修改界面，如图示：3 n# E' ]! w! x# Q
& }% C: c9 W5 F2 o' g) @8 _1 U, |; D6 I$ C/ [4 G, a
6．注意事项：
0 a0 B9 ]2 k' y9 e5 b+ [（1）如果是二台，高差为零的，则后一高程值=前一高程。
2 i" Z1 |7 M \3 W2 i（2）如果存在跌坎，则斜长为前后高程差（只需要口算下，输入到斜长文本框里）。 |
|
发表于 2009-8-13 13:41
楼主