|
|
水利冬修填塘固基断面勘测设计程序应用 % @2 r$ ^0 n4 L: @" q
% y( G; r- T7 A/ R K( |# Q g5 y8 u& C关键词：VBA 程序 勘测 断面2 r1 s0 V3 E8 D; E& J5 F
1 f- H4 `/ ]7 k. O) F9 M4 X1． 前言
' v6 Z& r$ H, c4 @& v在设计中，没有专业设计软件的情况下，绘制断面图是很繁琐的事，需要进行大量的、重复的操作，既劳神，又容易出错。
" L" t. ^& O3 t F6 G% P8 y7 o3 H* ~. u( o9 S5 i
利用AUTOCAD提供的VBA功能，编制程序进行计算、绘制，又能读取桩号、地面高程等信息在AUTOCAD里以文字、线条的方式写出来。
$ T# J$ E: g$ p: H0 ?( L6 e! a/ G# J9 \0 L( G9 l2 R
VBA作为一个集成的开发环境，它提供了高质量的用户化编程能力。基于AUTOCAD的VBA应用程序就是高级程序语言的计算功能与AUTOCAD的绘图功能结合，使用VBA程序语句来控制对AUTOCAD图形的操作。
7 `* W" ^' Y6 S; \8 D/ m
6 s3 a# N, z% P: R" a: i2． 断面勘测计算画图工作
4 X3 l' v3 e- B8 m 水利冬修填塘固基断面设计工作，主要是通过数据的获取和处理，输出得到设计图。设计图是断面设计的主要成果，是重要的技术文件之一。在断面设计图上有两条主要的线，一条是根据各点的高程而绘制的实际断面线；另一条是设计断面线，它是经过技术上、经济上的处理而制定出来的线。
& Y8 ~% ~( k3 Q t L" s( s5 G- b9 _& q
（1）组织结构图如下:
6 m c) K( ]' ~% ] @
- R+ h* a) P6 o* X% x(输入原始数据)实际数值
, ^4 W; l; ^* |0 x+ i/ [% `! ~$ M; a3 H2 g0 f1 q
（经过计算获取）各点坐标位置
3 D1 h/ }2 z: I' G
- Q0 j2 T/ j# L' w# k. {7 X（画图、书写文字）连接各点的坐标位置+标注文字等
9 K ^5 e9 y5 L8 R, J
. O7 w4 p' [$ ~# g( N- p; W（2）具体各点名称及坐标位置为:：' ~1 g/ H: c; E$ o+ |$ h
" ~5 V7 N, S+ X7 [0 q1 _1 A名称 代码 坐标代码（二维）
$ l* K' t2 L0 a" N' a; i9 W外坡最低点 ee: ee(Xe,Ye)
# k: z, H9 Z) _( ~8 m2 S, o& h; u面宽左位置点 ff: ff(Xf,Yf)
1 W& c0 d U% _% n! `2 D第一高程点 bb: bb(Xb,Yb)! N1 ~6 @/ ^& w) v8 _; r
第二高程点 cc: cc(Xc,Yc)" K$ s4 P& X6 d9 R/ W
第三高程点 dd: dd(Xd,Yd)
1 {7 Q/ N, ?" s) j4 e, c$ Z。。。: k/ v" I2 c/ M
。。。
$ T4 O) ] U% P: D0 Z$ c（3）经过实地测量获取的实际数据为：
2 a; k* Z8 c+ L0 I: X8 o9 w- ]# W# r! M' Y5 c
面宽实际数值为:m 7 Y# c+ Y% c, H" E
各高程实际数值为h1 h2 h3 。。。# m' G2 n! ] R' S* P. }1 e- d* u9 C. ~
各斜长实际数值为l1 l2 l3 。。。5 v4 w5 F J5 c& t' W9 p8 ~) W
% f0 c) ^% r& G9 X3 I1 `
（4）以上具体数据如图示：* v% g; x- P5 P) O% e; Y' u
, k9 I; G$ g% Q/ J# p6 O$ {
（5）设计的基本思路和原理8 K/ N7 R5 x: w6 v3 x
根据勾股定理计算确定各高程点之间的坐标位置，然后连接各点实现制图。
v' ~9 Z1 u; C8 k2 S( F( P; j5 \4 n3 W2 ?- d! J5 Y8 f
5．程序的编辑步骤简介) S+ m$ ~% E2 c9 X T
（1）打开AUTOCAD
+ G; p/ m5 P6 s2 A/ a+ Q5 A# s& \（2）按ALT+F8键进入VBA界面，选择“宏编辑”进入编辑画面，5 F6 Q7 X# R7 W4 ]
（3）在上面新建一个工程，取名为：“断面画图程序。PRF”文件，' o% p) ~" g. |& t
（4）在界面上添加两个FORM，一个为“录入。”，一个为“修改”。FRM如图示控件，如图：* S3 h- B) E6 M) z) C6 J
0 m8 |/ g6 X* D7 Y) T* x3 A
: j) z1 v9 X1 Z: N5 ~/ k+ e
" r9 p4 Q. @# J（5）在录入里面，分别双击“第一断面”按钮、“修改”按钮、“退出”按钮，在上面书写代码，
( G; d% s" B6 S* |0 D; A- [（6）书写代码，略，完成保存之。
# ^: X# B+ g: ]; \8 ^2 [8 ~ `，2 `+ Q4 F; j$ M- s, Z
9 f. X0 M9 N ]. \# G
6．程序应用的具体操作步骤
3 b; ], U2 e+ ? L$ b* ? （1）打开AUTOCAD5 n7 t% d N. N1 p2 B' S' e
（2）按ALT+F8键进入VBA界面，打开“断面画图程序。PRF”文件，执行之，进入如图示的界面：
* a# P7 E% n: P* s/ C+ h2 |
; P5 J" o4 O% ^（3）按TAB键顺序输入数据，然后点击“第一断面”按钮。依次操作下去，* I) v; e- _0 [# {' j& ^2 Y! n: l% l
。。。。。。即可。: [2 z) ]8 M# K' v- g
按“退出”按钮退出。9 [6 w, T/ e/ t- |
（4）（执行后）输出结果如图示：
/ j# F: S" a1 H+ R# E* X* W
5 G3 R5 q) j/ h# S' g3 c, f（5）修改" P2 m) Y+ \& i- ]
画完后，再进入界面，点击“修改”按钮，进入修改界面，如图示：
& F& n& e8 V, X( d& j4 @ ' J5 h2 E4 b" U# l
6 l( a- a" Y# q
6．注意事项：, l3 ]0 L. i8 T: U, L
（1）如果是二台，高差为零的，则后一高程值=前一高程。9 k( ?4 d! ^- a! Q _6 L* D
（2）如果存在跌坎，则斜长为前后高程差（只需要口算下，输入到斜长文本框里）。 |
|
发表于 2009-8-13 13:41
楼主