|
|
水利冬修填塘固基断面勘测设计程序应用 " ~$ U. R8 H' h( {
/ x! h2 C9 H/ a( F; F, H1 R* ^关键词：VBA 程序 勘测 断面
! H& S8 c2 R& v" E8 {
) U. s2 r5 @2 A% p! J1． 前言
& [# x! v; {- X$ ~5 W" H; E在设计中，没有专业设计软件的情况下，绘制断面图是很繁琐的事，需要进行大量的、重复的操作，既劳神，又容易出错。
8 Q$ T/ {1 E; W( C# Q
- W. o! Z: B, W0 ^# G利用AUTOCAD提供的VBA功能，编制程序进行计算、绘制，又能读取桩号、地面高程等信息在AUTOCAD里以文字、线条的方式写出来。0 D8 X: D, \$ p7 P) Y
' i/ K, F$ ]6 E7 z% K1 o7 }. b$ ?" ]/ k
VBA作为一个集成的开发环境，它提供了高质量的用户化编程能力。基于AUTOCAD的VBA应用程序就是高级程序语言的计算功能与AUTOCAD的绘图功能结合，使用VBA程序语句来控制对AUTOCAD图形的操作。
% J# |0 i# Q8 S! |! {6 e1 K' w$ i; m$ }
4 {& y5 C& U; i+ ~5 U: x: \2． 断面勘测计算画图工作% G$ k- N1 t# V* P; D
水利冬修填塘固基断面设计工作，主要是通过数据的获取和处理，输出得到设计图。设计图是断面设计的主要成果，是重要的技术文件之一。在断面设计图上有两条主要的线，一条是根据各点的高程而绘制的实际断面线；另一条是设计断面线，它是经过技术上、经济上的处理而制定出来的线。4 ?2 X- {6 K, s4 D9 ~% R
( \: C/ X( i' _9 c
（1）组织结构图如下:6 @! q' h( K6 X1 b4 V
7 J0 ^9 W6 N0 n- [5 C% u(输入原始数据)实际数值
3 B, _' h4 a% V: p8 z! T9 `2 t
" [5 [: W5 }1 }4 h9 s+ h6 K# W! o（经过计算获取）各点坐标位置! _! |" l1 D) q ]/ t
9 ?7 n* W3 S" y- i8 G; W$ [8 H
（画图、书写文字）连接各点的坐标位置+标注文字等& ]3 v- V/ n5 j5 g5 @3 Q% @' t: Z
" c$ y' z4 \) v: U1 q" |, B" W（2）具体各点名称及坐标位置为:：6 a1 h. p% u% p+ z4 G. ^* j% ]
, R/ ` k/ \3 [* O+ D; c名称 代码 坐标代码（二维）3 C- l4 r/ h, K) C' t- j) U8 y# |0 S
外坡最低点 ee: ee(Xe,Ye)
/ X" p: b, F$ \ _面宽左位置点 ff: ff(Xf,Yf)
1 C! r2 e- w8 a5 C第一高程点 bb: bb(Xb,Yb)
$ I G% @5 h2 e8 S第二高程点 cc: cc(Xc,Yc)2 |# u6 K2 ` M! l+ U. l# H, i$ Z5 U
第三高程点 dd: dd(Xd,Yd)
1 B- t+ A( Y1 J @5 v/ Q7 D。。。. W0 x! |% o* Z4 I0 y! X* z
。。。( _6 T) E% b, T4 B! g9 g
（3）经过实地测量获取的实际数据为：; J/ j' p0 o0 i* b9 n
: I) T$ n+ r; F( J# i- I面宽实际数值为:m ( m' ~: O4 U& Y. y4 I4 B/ _3 i
各高程实际数值为h1 h2 h3 。。。7 r- l- ] G9 a) r- `! A* y
各斜长实际数值为l1 l2 l3 。。。 [% Z4 I% r @; l
- ^8 F! h" y* [ B; A ^（4）以上具体数据如图示：
+ @, |/ ?0 K8 j
- B+ E, f3 k# R$ U. J: B（5）设计的基本思路和原理+ k; M9 A/ o+ X) r( S, E( O
根据勾股定理计算确定各高程点之间的坐标位置，然后连接各点实现制图。
3 S8 \1 c$ I3 y; Y. `" @
4 X5 M8 {+ m3 i/ W" Y9 ^5．程序的编辑步骤简介
, f# H4 a C+ V0 I% z（1）打开AUTOCAD) U! L' {2 x' O, U/ q! p- ]
（2）按ALT+F8键进入VBA界面，选择“宏编辑”进入编辑画面，
( O# o! E4 \0 m2 l/ ~0 u. C（3）在上面新建一个工程，取名为：“断面画图程序。PRF”文件，
7 }# P/ {0 O2 x% |3 H U( L0 ]) n6 Z（4）在界面上添加两个FORM，一个为“录入。”，一个为“修改”。FRM如图示控件，如图：
* S+ u/ l7 X9 q- [
! f" }$ n- P) i0 F
% B- J* c# O; X/ e/ F7 F. ^3 }( I3 I& D
（5）在录入里面，分别双击“第一断面”按钮、“修改”按钮、“退出”按钮，在上面书写代码，
& B1 `4 y, |5 d3 M& n（6）书写代码，略，完成保存之。
) n3 o- y# q4 J0 i* B，9 J$ t7 y9 E0 O8 R e& o$ n
% u0 H. ~/ ?+ h6．程序应用的具体操作步骤$ Q! j- l6 v+ l
（1）打开AUTOCAD, Z7 ?0 _( K' E5 O! U) n0 B
（2）按ALT+F8键进入VBA界面，打开“断面画图程序。PRF”文件，执行之，进入如图示的界面：
W; K( u: P* [8 s2 I+ i% K 7 b! J; g! b' y8 p1 y8 ?! d! b
（3）按TAB键顺序输入数据，然后点击“第一断面”按钮。依次操作下去，
# O( x# f2 N! T5 j3 [' }。。。。。。即可。
& \& X1 L' g% N/ b按“退出”按钮退出。
% K) Z+ U/ v' V, n（4）（执行后）输出结果如图示：
; J% k1 j8 h0 A5 N" M
2 e+ z9 {* R+ f（5）修改
8 c3 l% X7 ]8 s$ i9 a. F画完后，再进入界面，点击“修改”按钮，进入修改界面，如图示：' c9 A( A) M9 V9 _
' P' W/ |# L: q& Q5 c
k9 M& S' P# s+ [8 U# g/ m6．注意事项：
2 ]0 F* N6 f! W0 Y* p（1）如果是二台，高差为零的，则后一高程值=前一高程。
1 ?" T6 w& B/ K4 R4 B（2）如果存在跌坎，则斜长为前后高程差（只需要口算下，输入到斜长文本框里）。 |
|
发表于 2009-8-13 13:41
楼主