|
|
水利冬修填塘固基断面勘测设计程序应用
. H7 H' h9 i' Z1 T! c4 p! h/ y; S& a0 P7 N+ a `; a
关键词：VBA 程序 勘测 断面5 ^0 h1 S! E7 z2 ~2 {
" U9 k: s3 u* r& X( _* p1． 前言
) [& m2 m: J) d1 R2 u9 R5 H在设计中，没有专业设计软件的情况下，绘制断面图是很繁琐的事，需要进行大量的、重复的操作，既劳神，又容易出错。
3 V! t5 U2 Q7 v( x/ b) J; q6 V2 h; `$ c4 x! w5 F( u: H' g D
利用AUTOCAD提供的VBA功能，编制程序进行计算、绘制，又能读取桩号、地面高程等信息在AUTOCAD里以文字、线条的方式写出来。
9 E& b6 C4 A0 X' j2 p* j% p6 K/ _2 o0 S
VBA作为一个集成的开发环境，它提供了高质量的用户化编程能力。基于AUTOCAD的VBA应用程序就是高级程序语言的计算功能与AUTOCAD的绘图功能结合，使用VBA程序语句来控制对AUTOCAD图形的操作。
9 F; M s# P; I7 p4 b6 [7 w, [8 S9 o, c
2． 断面勘测计算画图工作
C) b6 a0 I; v. T 水利冬修填塘固基断面设计工作，主要是通过数据的获取和处理，输出得到设计图。设计图是断面设计的主要成果，是重要的技术文件之一。在断面设计图上有两条主要的线，一条是根据各点的高程而绘制的实际断面线；另一条是设计断面线，它是经过技术上、经济上的处理而制定出来的线。" w: b k: r0 C3 W) G/ W5 a* P4 I/ a2 z
8 O# q' D2 w3 k
（1）组织结构图如下:
% m' h5 q) T4 S$ C: E+ q) G5 b; H# f+ J+ X5 ~5 C0 C3 ^: t
(输入原始数据)实际数值/ ]: x* X/ ?6 {
& K7 k n& m& u! Z: }$ e6 ~（经过计算获取）各点坐标位置
' h1 z* a/ z, Q5 w9 _9 b; g
, Q7 Z% g: {- N/ k3 T（画图、书写文字）连接各点的坐标位置+标注文字等! j- |0 J [( P" R1 v
1 A% b2 }1 E* _" @（2）具体各点名称及坐标位置为:：
4 F' ?( }( L, M8 [0 p2 F' ~/ a: \% [( Z/ s! W5 O$ y
名称 代码 坐标代码（二维）
! s) ~9 W9 ]4 b外坡最低点 ee: ee(Xe,Ye)
, B- v; P+ i, p: _* f面宽左位置点 ff: ff(Xf,Yf)
) C0 Z- w& H( _7 l5 a" r6 }第一高程点 bb: bb(Xb,Yb)' Z# T8 e' V! N! e% k; Y
第二高程点 cc: cc(Xc,Yc); j: I6 s! w- N) d5 H- d
第三高程点 dd: dd(Xd,Yd)8 x) Z, {2 f, V7 t' d
。。。
1 [- R* \7 w8 Z: j8 ]0 V: {。。。
0 k: d1 D# P( O$ }5 u" B（3）经过实地测量获取的实际数据为：5 J1 N2 F4 ]1 Y; |5 z6 `7 O; p
# A. r3 }' F& x/ g: U1 x2 T面宽实际数值为:m # [0 t7 D9 [! W, X3 }2 o1 K
各高程实际数值为h1 h2 h3 。。。
+ H5 }5 r7 t& d4 q* f3 m7 b$ M各斜长实际数值为l1 l2 l3 。。。
* w' O3 o: c% K# G- J0 }2 R9 ^$ ^) S1 i% P9 W0 v' p3 ]3 P
（4）以上具体数据如图示：4 A1 Y3 f1 g! v
0 j6 T) U- I- _7 x: b N# g
（5）设计的基本思路和原理$ V6 ~* y5 M( G2 X
根据勾股定理计算确定各高程点之间的坐标位置，然后连接各点实现制图。) P p& V" ]& Z* _; {$ k: C$ n
! W3 b2 _9 R7 O9 a2 N9 [
5．程序的编辑步骤简介% G; }: ~ U9 j4 t
（1）打开AUTOCAD6 _5 E' _) T, [5 ^ G; J3 c
（2）按ALT+F8键进入VBA界面，选择“宏编辑”进入编辑画面，, C. G0 U8 D2 P& N
（3）在上面新建一个工程，取名为：“断面画图程序。PRF”文件，0 `9 P1 ~4 b4 o5 w" i7 h I
（4）在界面上添加两个FORM，一个为“录入。”，一个为“修改”。FRM如图示控件，如图：. ]: `: n7 B* x3 `* n
! P6 K. n$ _- S4 c4 E( y" g
3 X5 k F& g6 u9 S
2 ~ I: \4 x( a; P（5）在录入里面，分别双击“第一断面”按钮、“修改”按钮、“退出”按钮，在上面书写代码，
) k* K- J, ?- l9 x' `' B% I: L（6）书写代码，略，完成保存之。
. z; r7 U5 w0 h0 h，
7 r$ S) b2 z6 ?/ V4 `1 E. i3 a1 A" T8 B6 W, y. X
6．程序应用的具体操作步骤
0 o& @7 V. h0 p, R; D, x6 c （1）打开AUTOCAD
1 @0 V0 X: e6 e（2）按ALT+F8键进入VBA界面，打开“断面画图程序。PRF”文件，执行之，进入如图示的界面：& {+ ]3 f8 j7 v2 \& R1 }% D
$ s' C6 F0 s% C. J
（3）按TAB键顺序输入数据，然后点击“第一断面”按钮。依次操作下去，
7 m* ?6 ^5 b$ j$ C l0 `1 U。。。。。。即可。0 }, \4 P7 x9 l- K0 L$ u5 u# \3 S
按“退出”按钮退出。9 i* ]2 Z) t; O G& e
（4）（执行后）输出结果如图示：& ^3 A4 C2 Z' b- F; ^% Y
4 P% N; ~0 }, T1 Z5 P' U8 R
（5）修改
: C6 Y/ D; A6 o& y% m& y画完后，再进入界面，点击“修改”按钮，进入修改界面，如图示：
0 a4 |6 l' H9 W1 Q: m ( l& J# \# {; s8 r# c
/ Z9 e; P$ B& }1 D$ U6．注意事项：8 K! H+ K2 D; U1 o
（1）如果是二台，高差为零的，则后一高程值=前一高程。, T% z; i# L- V* Q) F
（2）如果存在跌坎，则斜长为前后高程差（只需要口算下，输入到斜长文本框里）。 |
|
发表于 2009-8-13 13:41
楼主