|
|
水利冬修填塘固基断面勘测设计程序应用 ; T& i. `; J; d' T ?
' ]% [4 Y$ V. w: u
关键词：VBA 程序 勘测 断面
$ f, ^9 v5 `1 e6 ?4 p o
0 w. g/ b3 Q2 D1． 前言. N( w' F+ ^; X- n% E- {$ C( }+ o
在设计中，没有专业设计软件的情况下，绘制断面图是很繁琐的事，需要进行大量的、重复的操作，既劳神，又容易出错。6 t5 r4 [ q$ U- t
* ~! P3 O+ ?0 M5 Y利用AUTOCAD提供的VBA功能，编制程序进行计算、绘制，又能读取桩号、地面高程等信息在AUTOCAD里以文字、线条的方式写出来。
/ {6 J# j1 w4 y9 K2 {! O& W6 y' U: F" I+ [* e
VBA作为一个集成的开发环境，它提供了高质量的用户化编程能力。基于AUTOCAD的VBA应用程序就是高级程序语言的计算功能与AUTOCAD的绘图功能结合，使用VBA程序语句来控制对AUTOCAD图形的操作。
0 G, g& a+ @8 d/ K/ U: a- L9 Y4 o) M$ Y* W: d0 H
2． 断面勘测计算画图工作- R4 n+ f, H E' q; i, \
水利冬修填塘固基断面设计工作，主要是通过数据的获取和处理，输出得到设计图。设计图是断面设计的主要成果，是重要的技术文件之一。在断面设计图上有两条主要的线，一条是根据各点的高程而绘制的实际断面线；另一条是设计断面线，它是经过技术上、经济上的处理而制定出来的线。 }' N3 I$ U7 u* \2 z
' o9 I+ J; \7 c& A6 t
（1）组织结构图如下: {5 x" H+ ?( y t# q3 Q' C
& p6 A4 }% `, S1 X M1 M(输入原始数据)实际数值
) t: c; p8 }1 T2 @# g$ \3 ~
- x+ ~4 w) |/ r; w9 R; M9 F& a（经过计算获取）各点坐标位置' l+ @" @- y7 u9 \9 ]( j
7 M9 }4 I/ a7 Y- k
（画图、书写文字）连接各点的坐标位置+标注文字等+ y3 i* }9 B+ ~) C' z- U
" @) X7 r) y m# N0 k, V0 N
（2）具体各点名称及坐标位置为:：4 @2 V# p5 p( k- i7 P
- r6 a+ f1 W2 @1 W
名称 代码 坐标代码（二维）
. U4 s9 A- Q+ e8 f! u5 w外坡最低点 ee: ee(Xe,Ye)
( o1 e& K/ N1 e/ E面宽左位置点 ff: ff(Xf,Yf)
; {: k* F6 b8 z1 y( B |- o第一高程点 bb: bb(Xb,Yb)
) _$ A! Z! Z& {第二高程点 cc: cc(Xc,Yc): J# m7 y4 ^, P( ^7 l( d7 j2 ~
第三高程点 dd: dd(Xd,Yd)
& M8 X A" L1 m2 O) e+ N/ \。。。% U& V* `: ]) k, e$ |
。。。
" `" T4 T; G0 w3 Q8 L+ q- d$ _（3）经过实地测量获取的实际数据为：$ {# J$ b& o5 @# S
$ A/ h1 u; h, |; J8 F
面宽实际数值为:m 2 [6 @# ?. r7 F; J0 k* I
各高程实际数值为h1 h2 h3 。。。9 a0 x3 I+ B0 m) F# L" A/ P& D, c
各斜长实际数值为l1 l2 l3 。。。
# p6 @" A: V; Y# B; \4 k$ h+ j
3 h0 R% P J& T+ h/ E5 G（4）以上具体数据如图示：; w$ Q# q- O$ p& n! K0 u
8 m* y+ b. t1 u* A（5）设计的基本思路和原理
* z. b, I+ O/ f# B9 W/ M根据勾股定理计算确定各高程点之间的坐标位置，然后连接各点实现制图。& d% ?4 t" h+ [. K7 D
: b& x4 F D# M8 i4 |5 g5．程序的编辑步骤简介
1 T2 d3 H( _/ q（1）打开AUTOCAD( z% M6 p. y, g8 p6 i9 E% T
（2）按ALT+F8键进入VBA界面，选择“宏编辑”进入编辑画面，- V; c" b) B+ A& C
（3）在上面新建一个工程，取名为：“断面画图程序。PRF”文件，# ]2 p$ ?$ ^8 @* s! O( r6 ~
（4）在界面上添加两个FORM，一个为“录入。”，一个为“修改”。FRM如图示控件，如图：
- r9 v" C4 @" P6 e
8 K! c1 d6 V0 G* F+ d6 n% q : L t/ G( a3 z' W. Y& X. Y) F
# [. s/ s2 E( j5 W/ N（5）在录入里面，分别双击“第一断面”按钮、“修改”按钮、“退出”按钮，在上面书写代码，) w3 }" T( r- P; g. b4 C
（6）书写代码，略，完成保存之。( o- \: k6 X5 ~( G6 T
，3 E" D/ [$ G/ i5 I/ A. D7 K
( G" q" J2 ~/ q6．程序应用的具体操作步骤
) [1 q8 F6 {$ _, z$ R5 p) L" s- K （1）打开AUTOCAD# U ~ m9 h2 k5 I0 p0 V
（2）按ALT+F8键进入VBA界面，打开“断面画图程序。PRF”文件，执行之，进入如图示的界面：- o4 m. r; w' q
- a0 {0 ]& s5 V1 s$ @（3）按TAB键顺序输入数据，然后点击“第一断面”按钮。依次操作下去，
! ^) V5 D; l8 g: B0 K1 r' \。。。。。。即可。
3 x' r; Y3 G \3 J, s- P$ Y按“退出”按钮退出。
v# z+ ^9 h: b（4）（执行后）输出结果如图示：
: w* R5 u( i4 S! c& l: m1 ?4 p 6 T* `; \" N# I* @
（5）修改
6 R/ g K" O8 k) w画完后，再进入界面，点击“修改”按钮，进入修改界面，如图示：
) H: h2 U( l6 ~# H6 `
: r' w0 U4 k7 d! U7 @
* h, J8 Q' m8 m: o6．注意事项：
C e4 W5 J+ a8 ~0 Y（1）如果是二台，高差为零的，则后一高程值=前一高程。
$ H2 D3 t7 a. d2 ~8 ?, `（2）如果存在跌坎，则斜长为前后高程差（只需要口算下，输入到斜长文本框里）。 |
|
发表于 2009-8-13 13:41
楼主