|
|
水利冬修填塘固基断面勘测设计程序应用
" W4 S9 u# }$ @4 _% O; c- g: V
+ U) ^3 y7 N; E关键词：VBA 程序 勘测 断面3 R0 f# M" T8 U2 X( N7 h
: h$ Y# L' X" q9 [! R
1． 前言
* z' }) K8 G2 ^6 Z7 f在设计中，没有专业设计软件的情况下，绘制断面图是很繁琐的事，需要进行大量的、重复的操作，既劳神，又容易出错。; ?7 ?" N. n, q2 I
3 s6 W+ ?& W6 F) D4 f" G利用AUTOCAD提供的VBA功能，编制程序进行计算、绘制，又能读取桩号、地面高程等信息在AUTOCAD里以文字、线条的方式写出来。9 N7 S8 a) O3 J* I. k, w
9 j$ M$ D% p1 J( {( @; ^VBA作为一个集成的开发环境，它提供了高质量的用户化编程能力。基于AUTOCAD的VBA应用程序就是高级程序语言的计算功能与AUTOCAD的绘图功能结合，使用VBA程序语句来控制对AUTOCAD图形的操作。- F( c/ f7 G3 S1 n- X- m, r
+ j/ e; {. s5 m8 W/ Q
2． 断面勘测计算画图工作: e# c" S) Q! _9 q" C( }3 ]
水利冬修填塘固基断面设计工作，主要是通过数据的获取和处理，输出得到设计图。设计图是断面设计的主要成果，是重要的技术文件之一。在断面设计图上有两条主要的线，一条是根据各点的高程而绘制的实际断面线；另一条是设计断面线，它是经过技术上、经济上的处理而制定出来的线。, c2 Q5 X h1 a% X E
9 T- H0 @/ {+ Z) f1 U
（1）组织结构图如下:
- N' @$ ?/ f& F1 s4 D6 Q9 l; W" Y! _, ~3 @+ C+ o2 C8 w
(输入原始数据)实际数值
2 a z2 J/ Z0 l' m" Z% W3 k
: J% ?2 B+ e! X& h2 A（经过计算获取）各点坐标位置
1 Z* r5 |( k' E+ i+ y \8 Q% \* \5 |
（画图、书写文字）连接各点的坐标位置+标注文字等
& g& b8 W: z) r0 L! d2 i9 x( J
$ A' j6 J% A/ G+ l4 h2 \: t: r（2）具体各点名称及坐标位置为:：
+ {* g; ^+ x v
% ^* Q6 z, b9 t3 C3 K名称 代码 坐标代码（二维）8 d3 }/ s3 t& Z/ Q! O9 N9 X2 m: f
外坡最低点 ee: ee(Xe,Ye)
# o2 s( n& A9 v8 ^2 l0 `+ j面宽左位置点 ff: ff(Xf,Yf)
. ?0 h' y/ Y" O4 D1 ^ f第一高程点 bb: bb(Xb,Yb)
9 H' R. i7 _2 O6 ?2 l" K第二高程点 cc: cc(Xc,Yc)
+ ?! t% F7 w! \* {第三高程点 dd: dd(Xd,Yd)
2 m+ G# H& S3 \。。。
% l! f+ {# F, ]- L- ]/ @7 h. d。。。
; n- b7 h% _9 w3 I4 ]（3）经过实地测量获取的实际数据为：: K1 r; ?3 C Z' ^* H
% H) ^) \8 X' |5 x7 T3 G* l
面宽实际数值为:m , z- ?: c9 X& l: `( l* u6 C
各高程实际数值为h1 h2 h3 。。。0 w: d- @1 M& q+ k! o
各斜长实际数值为l1 l2 l3 。。。: M- x' e2 P" y* g$ O
6 h" E- |5 @! f
（4）以上具体数据如图示：
3 g/ l3 S# a( V
" w( ?1 t3 \& N' s9 V) h（5）设计的基本思路和原理
( |5 D$ Q& o8 x8 l- t( Y6 r7 v5 w根据勾股定理计算确定各高程点之间的坐标位置，然后连接各点实现制图。
}3 y. d# `4 H6 _/ D; o' K- O
- f0 ~8 y, q7 E8 G; \$ B, v' ?& L" e5．程序的编辑步骤简介5 k: {6 ~8 h* v: v' j
（1）打开AUTOCAD, k: R% m2 A4 I* z4 e
（2）按ALT+F8键进入VBA界面，选择“宏编辑”进入编辑画面，
" a3 s) G9 ~* ?( [- d8 E, G, f! w（3）在上面新建一个工程，取名为：“断面画图程序。PRF”文件，
, i+ z0 v( b; G. C: ^* w（4）在界面上添加两个FORM，一个为“录入。”，一个为“修改”。FRM如图示控件，如图： x* @, J$ |# q5 r2 V( b
1 h: @' A/ v2 [# l+ Q) V N8 Y$ v' f
4 T; E4 D( I. x, |' J% g& w/ d& y ~
" Y4 s. p) ?9 G0 x（5）在录入里面，分别双击“第一断面”按钮、“修改”按钮、“退出”按钮，在上面书写代码，% R9 ~! f7 }# q* F% ]
（6）书写代码，略，完成保存之。
$ L) ^' |; v9 F，: D6 Q+ G' c0 R' Y B2 ]
; A, v& L' l y* c9 Q6 }# P$ A% e' w% l; x
6．程序应用的具体操作步骤' c9 t; g3 d8 ?* b4 S8 G6 j
（1）打开AUTOCAD
) y" d% j$ c' P t ?" b（2）按ALT+F8键进入VBA界面，打开“断面画图程序。PRF”文件，执行之，进入如图示的界面：
* u+ S' L+ o$ R, m7 [
* |& Q3 o+ R1 E3 F- r（3）按TAB键顺序输入数据，然后点击“第一断面”按钮。依次操作下去，
8 V6 }8 [' |9 s! r。。。。。。即可。3 d, s y9 _: F& t
按“退出”按钮退出。
( t# \4 v) H. W3 z: y" q. s（4）（执行后）输出结果如图示：# o: ]6 O% N* g7 n$ K
X1 y1 d- J2 H& T
（5）修改7 n$ p, G& z6 R
画完后，再进入界面，点击“修改”按钮，进入修改界面，如图示：
b6 J# |5 T& h5 h
8 u$ ^6 `7 _$ x5 m; E9 v( _" [1 B: R' T7 K
6．注意事项：, d* u" t! X8 X
（1）如果是二台，高差为零的，则后一高程值=前一高程。
7 r) `; D4 K0 T（2）如果存在跌坎，则斜长为前后高程差（只需要口算下，输入到斜长文本框里）。 |
|
发表于 2009-8-13 13:41
楼主