|
|
水利冬修填塘固基断面勘测设计程序应用
; t4 X2 D# Z$ v( a. x& L
7 W$ r$ t8 q. a) n+ b关键词：VBA 程序 勘测 断面: B" Z Q6 E! S4 Q/ Q6 s
: p( g& v5 }. H$ A! l: V9 l4 b1． 前言
* i$ X9 A& r p7 X# U5 I在设计中，没有专业设计软件的情况下，绘制断面图是很繁琐的事，需要进行大量的、重复的操作，既劳神，又容易出错。8 Q2 E7 M' Z9 ?& k# D0 D1 H. s
( i: z* w/ g, W% e) Z9 I利用AUTOCAD提供的VBA功能，编制程序进行计算、绘制，又能读取桩号、地面高程等信息在AUTOCAD里以文字、线条的方式写出来。: t& m& n! x2 a0 a
" ^" z% ?- ^4 j9 J OVBA作为一个集成的开发环境，它提供了高质量的用户化编程能力。基于AUTOCAD的VBA应用程序就是高级程序语言的计算功能与AUTOCAD的绘图功能结合，使用VBA程序语句来控制对AUTOCAD图形的操作。. ]% l2 w0 g: j& D. J( ?% v
5 y. Z( v1 ^. l: C7 T$ c" x
2． 断面勘测计算画图工作
" k, ^2 q; f3 G7 v1 U" v0 c' T 水利冬修填塘固基断面设计工作，主要是通过数据的获取和处理，输出得到设计图。设计图是断面设计的主要成果，是重要的技术文件之一。在断面设计图上有两条主要的线，一条是根据各点的高程而绘制的实际断面线；另一条是设计断面线，它是经过技术上、经济上的处理而制定出来的线。+ ]' A7 M# `- ]) c
9 P; }% `9 w( y: P
（1）组织结构图如下:
, _! D/ S8 _! V. L9 w. S9 l A) t4 @, w
(输入原始数据)实际数值1 |( d0 F8 F% v9 l+ H
$ \ a( J( i: Q' e* ~（经过计算获取）各点坐标位置; C1 _& f: Z( |) y" `) ^! R
! S) E0 J) F1 {" c; _ Z
（画图、书写文字）连接各点的坐标位置+标注文字等; |: X: U3 S* e: e: ]. t! A, B
- U0 r7 n! c$ h3 i F8 g* |
（2）具体各点名称及坐标位置为:：
, b! `5 ], Z3 H: y! W3 @7 d, R1 q5 @0 e, N7 i
名称 代码 坐标代码（二维）
; B( A" o3 {' k外坡最低点 ee: ee(Xe,Ye)
; h7 c; B1 }" g% h7 g, d' V面宽左位置点 ff: ff(Xf,Yf)
( i& ~5 Y0 B; |第一高程点 bb: bb(Xb,Yb)
, b; x" [: _+ \( r% l第二高程点 cc: cc(Xc,Yc)5 x6 T, p0 R- M
第三高程点 dd: dd(Xd,Yd)
/ @+ ]& u2 o" B L。。。+ @2 Q; ]3 N! d+ b
。。。
( Q# e. t" Y U8 f2 b! l0 \（3）经过实地测量获取的实际数据为：
$ e8 f9 m' `0 j' ~* g" G( ]
) N/ A3 t8 K, b5 S, X5 ]面宽实际数值为:m
& i* |% H( T7 ]3 o4 M1 B各高程实际数值为h1 h2 h3 。。。, y1 R) @6 S3 l/ l3 s
各斜长实际数值为l1 l2 l3 。。。$ L5 C4 t& W- D$ D; ]6 m
! \- G6 i0 n% Q% ?6 z
（4）以上具体数据如图示： a* F5 X4 F9 |: L) H
0 q @% [/ F% F) u. f7 L9 z
（5）设计的基本思路和原理
0 ~+ C1 ]3 U: d- ^( E根据勾股定理计算确定各高程点之间的坐标位置，然后连接各点实现制图。
- I% n0 D, x; _& O8 t6 o; C4 h( f" D; y1 y. z
5．程序的编辑步骤简介
4 r' L; }6 U. ?6 X! s0 E5 T（1）打开AUTOCAD
3 @" M! \- X3 d* Y（2）按ALT+F8键进入VBA界面，选择“宏编辑”进入编辑画面，, m- W: O! y7 \# Q
（3）在上面新建一个工程，取名为：“断面画图程序。PRF”文件，
0 C# B8 J8 C9 f8 [: O3 z o2 |（4）在界面上添加两个FORM，一个为“录入。”，一个为“修改”。FRM如图示控件，如图：+ ]$ f7 I9 E! v1 S
/ w* M2 G' m p1 z
! _5 E( J1 k* E, E" v. p6 i
* {1 J$ ]# N7 F
（5）在录入里面，分别双击“第一断面”按钮、“修改”按钮、“退出”按钮，在上面书写代码，
) C- u$ [4 _+ G/ s. Z（6）书写代码，略，完成保存之。+ [* l; w% V# S- {$ G+ {; b
，2 U' b( x8 u/ c, Y9 i" H7 v# z
Q. A7 F8 E, f; s6．程序应用的具体操作步骤% [; F7 O; Z+ s
（1）打开AUTOCAD9 A* P+ Y$ B& l) {
（2）按ALT+F8键进入VBA界面，打开“断面画图程序。PRF”文件，执行之，进入如图示的界面：% B& h) o; D8 t2 v+ @' J
/ C/ J8 b8 O( m. S& Q! O) {. i（3）按TAB键顺序输入数据，然后点击“第一断面”按钮。依次操作下去，) W9 ^" J0 z5 R9 l* G- V g
。。。。。。即可。# U. a2 `- ?) u: ]9 s; j: [& m* A
按“退出”按钮退出。
( f! I V/ @7 R& M（4）（执行后）输出结果如图示：
+ m: @" ]9 N) a- s8 y) q# d 4 c2 {% H/ k; K) l) l( `5 U
（5）修改
) V4 x/ E1 L! F. @画完后，再进入界面，点击“修改”按钮，进入修改界面，如图示：
" Q( l9 {- }+ N& t: v s; U" |7 p
; m+ H. b' x- R/ n3 w+ @
1 ^ v9 U7 Z2 I3 u, m6．注意事项：
5 H; D$ d# h) `9 U |! d/ Z（1）如果是二台，高差为零的，则后一高程值=前一高程。
; }' |9 Q8 W1 h+ P0 l5 m: ~（2）如果存在跌坎，则斜长为前后高程差（只需要口算下，输入到斜长文本框里）。 |
|
发表于 2009-8-13 13:41
楼主