|
|
水利冬修填塘固基断面勘测设计程序应用 1 A: M0 f0 c! O0 g% ^
4 `( J( s* p7 [; L9 L5 R
关键词：VBA 程序 勘测 断面
) ~* j" |$ }9 g$ s* L1 z8 B& a& B2 c% V8 [7 t; w9 i
1． 前言
- b2 z' g9 d0 `在设计中，没有专业设计软件的情况下，绘制断面图是很繁琐的事，需要进行大量的、重复的操作，既劳神，又容易出错。9 s0 \7 x! m6 R* q0 \
# N Z# h6 e: }1 E( N+ x; V利用AUTOCAD提供的VBA功能，编制程序进行计算、绘制，又能读取桩号、地面高程等信息在AUTOCAD里以文字、线条的方式写出来。
( V7 Q! e& M2 j7 k, p: c
8 |& t1 x/ L$ O( D MVBA作为一个集成的开发环境，它提供了高质量的用户化编程能力。基于AUTOCAD的VBA应用程序就是高级程序语言的计算功能与AUTOCAD的绘图功能结合，使用VBA程序语句来控制对AUTOCAD图形的操作。4 S# C+ C0 o; V. C
8 @4 e. z% w, }' @1 }* G- m7 H, g2． 断面勘测计算画图工作, r _/ w4 \ n3 v& M4 ?0 |
水利冬修填塘固基断面设计工作，主要是通过数据的获取和处理，输出得到设计图。设计图是断面设计的主要成果，是重要的技术文件之一。在断面设计图上有两条主要的线，一条是根据各点的高程而绘制的实际断面线；另一条是设计断面线，它是经过技术上、经济上的处理而制定出来的线。6 H' ^) O' a7 A& s9 s3 ]
# ~9 b1 I+ k" ~% U
（1）组织结构图如下:
& q/ j) x! @8 c. l5 o$ O1 u, h6 X$ S; X. c% j2 ? a# i) @! \
(输入原始数据)实际数值* W" T2 Q- u1 F4 |' W' i- U
# ~& ?& X1 R6 S6 |- X5 S1 P' F" V4 Z（经过计算获取）各点坐标位置
& x( W, X$ v) B. P' w3 X9 ]8 f; Q* ^) Z+ b0 J4 E1 w7 ]
（画图、书写文字）连接各点的坐标位置+标注文字等
" Z' P- z0 o& z% K+ k& Y/ w' E( Y Q; w( N, D$ A$ r5 E
（2）具体各点名称及坐标位置为:：
2 }' y: M! c4 E
( j) y( V2 {* B" J; O8 X名称 代码 坐标代码（二维）. J# L0 G( u0 ?4 w) `8 n* n
外坡最低点 ee: ee(Xe,Ye)
! x0 Z. P; F V3 f! Y面宽左位置点 ff: ff(Xf,Yf)0 n& Z2 d* S- _. k& K
第一高程点 bb: bb(Xb,Yb)
7 {4 R. A& N2 W( A9 E$ i4 D第二高程点 cc: cc(Xc,Yc)$ V/ P' Q. V$ f( a2 d; P( \
第三高程点 dd: dd(Xd,Yd)
! y$ S* `4 e; ~$ q- \5 }5 a。。。8 V* E k& C4 t3 ]2 C; v
。。。
/ G2 P, q$ g* T9 w3 v& B& h（3）经过实地测量获取的实际数据为：
" N+ n% ~3 {* O3 d; N, v7 P, ?, b9 c3 ?! Y3 n$ N9 G4 K9 L9 ]
面宽实际数值为:m 2 m$ V9 D) x2 [3 R' n$ q
各高程实际数值为h1 h2 h3 。。。
, ]% p; Q2 g" y2 A% X; X9 u% r各斜长实际数值为l1 l2 l3 。。。
% z- g' ^3 K. ]9 U: A$ E7 r
0 t! |# A) i1 N ^# @; P（4）以上具体数据如图示：( W1 u$ B- a9 f
" ]) l# K& }( n5 S: ^2 m（5）设计的基本思路和原理9 ?6 B3 i3 K! t7 H
根据勾股定理计算确定各高程点之间的坐标位置，然后连接各点实现制图。" {, b A! f+ Q" q$ p$ \6 G* {
' v6 R4 _6 e- h4 `
5．程序的编辑步骤简介7 i4 L8 Y5 C& ?& z1 U+ r+ c: f
（1）打开AUTOCAD* D& \* M0 N: J4 P% d. J4 g' c
（2）按ALT+F8键进入VBA界面，选择“宏编辑”进入编辑画面，1 W3 z) N4 g, n
（3）在上面新建一个工程，取名为：“断面画图程序。PRF”文件，
" I$ R P- r; V（4）在界面上添加两个FORM，一个为“录入。”，一个为“修改”。FRM如图示控件，如图：
. P; W" r/ l1 u. @. @
" N! c, {/ A) Y n5 t
4 V, V* ^+ P& n' P0 S
" r1 J/ i- a% v7 w* M（5）在录入里面，分别双击“第一断面”按钮、“修改”按钮、“退出”按钮，在上面书写代码，
! m3 n0 e0 F+ A: x( c4 g- |（6）书写代码，略，完成保存之。
$ Y2 J6 Z2 s$ W" t* r8 b，
; y. u. y0 }! X2 F2 [
% m6 C* Y$ u$ q, x/ _/ d& `, f! c6．程序应用的具体操作步骤. u/ Q) d j1 v( Z& e
（1）打开AUTOCAD
; C: v7 y* N" d; W7 d1 j6 s7 l2 ~（2）按ALT+F8键进入VBA界面，打开“断面画图程序。PRF”文件，执行之，进入如图示的界面：' {! q* t: A/ Q1 V% s
0 I) f4 T/ ]* m- ?（3）按TAB键顺序输入数据，然后点击“第一断面”按钮。依次操作下去，
# n$ c/ E1 r5 z9 }9 v+ S1 A, E1 V。。。。。。即可。
# w+ m( s3 H7 o" O2 }1 H按“退出”按钮退出。
4 t" [8 H, W& t: F' B$ f) h（4）（执行后）输出结果如图示：
1 F$ K" z& K. u: x( l9 @- t. j 2 z* o4 y3 T L) S1 R- X
（5）修改9 G: G/ F% G' U
画完后，再进入界面，点击“修改”按钮，进入修改界面，如图示：
% ]6 M' f. S9 L6 I5 ] ; H+ p3 D6 k6 C+ P' i3 S
# Y" @0 a; D, G. j3 b6．注意事项：. b) C, O0 S6 e8 K$ ~
（1）如果是二台，高差为零的，则后一高程值=前一高程。% L/ z% ^/ H- E% r: O
（2）如果存在跌坎，则斜长为前后高程差（只需要口算下，输入到斜长文本框里）。 |
|
发表于 2009-8-13 13:41
楼主