水利冬修填塘固基断面勘测设计程序应用

lijun337

水利冬修填塘固基断面勘测设计程序应用       

关键词：VBA  程序  勘测  断面

1．        前言
% g1 b. [, N  ^4 v  z( V( [# c* p在设计中，没有专业设计软件的情况下，绘制断面图是很繁琐的事，需要进行大量的、重复的操作，既劳神，又容易出错。
2 R. U7 o! A: ?7 p+ M% \
利用AUTOCAD提供的VBA功能，编制程序进行计算、绘制，又能读取桩号、地面高程等信息在AUTOCAD里以文字、线条的方式写出来。

# R. j/ A) _7 V2 f; a4 BVBA作为一个集成的开发环境，它提供了高质量的用户化编程能力。基于AUTOCAD的VBA应用程序就是高级程序语言的计算功能与AUTOCAD的绘图功能结合，使用VBA程序语句来控制对AUTOCAD图形的操作。
5 P9 m! ^6 ^3 `# ?
2．        断面勘测计算画图工作
' H0 r' O* P  h0 l: i1 T    水利冬修填塘固基断面设计工作，主要是通过数据的获取和处理，输出得到设计图。设计图是断面设计的主要成果，是重要的技术文件之一。在断面设计图上有两条主要的线，一条是根据各点的高程而绘制的实际断面线；另一条是设计断面线，它是经过技术上、经济上的处理而制定出来的线。

3 ~  C& m9 t4 L! Q& ~, u! S（1）组织结构图如下:
; r- C+ j: O8 w
(输入原始数据)实际数值
* u) T2 R7 g6 V' v! T
% b1 I5 \4 u4 Z（经过计算获取）各点坐标位置
' s7 y9 f* ~7 b0 M
4 J! b: E$ Q% a) s6 p/ F（画图、书写文字）连接各点的坐标位置+标注文字等
' r5 U4 V1 |2 z# ^5 Q4 ]& |$ v+ B
（2）具体各点名称及坐标位置为:：

名称              代码          坐标代码（二维）
外坡最低点        ee:              ee(Xe,Ye)
1 Y4 u) f4 E& M" J) [# p  [1 ~面宽左位置点      ff:               ff(Xf,Yf)
! n3 L- ?, U6 a0 _. b第一高程点        bb:              bb(Xb,Yb)
第二高程点        cc:              cc(Xc,Yc)
第三高程点        dd:              dd(Xd,Yd)
# n% L/ O8 e- o; M, k2 v8 b。。。
" z+ H1 E' v: @。。。
（3）经过实地测量获取的实际数据为：
5 U% Q( E' D3 t5 @' R. K/ }
; ^# @7 f) m/ O2 C2 d% g面宽实际数值为:m  
5 I+ z# z9 i& \% J各高程实际数值为h1 h2 h3 。。。
6 ^0 h% `- q* Z, B各斜长实际数值为l1 l2 l3 。。。
; f9 ^3 f6 {4 ]" z8 B
( p* {, n% ?3 g- t5 K- |4 g（4）以上具体数据如图示：
0 L8 U% x6 }( n6 A  L
（5）设计的基本思路和原理
根据勾股定理计算确定各高程点之间的坐标位置，然后连接各点实现制图。

! V7 C  J5 S/ x1 k! t% W/ V5．程序的编辑步骤简介
- {% v) F3 m; m3 `; `0 K（1）打开AUTOCAD
+ z; l- ~8 y3 [- ?! z（2）按ALT+F8键进入VBA界面，选择“宏编辑”进入编辑画面，
（3）在上面新建一个工程，取名为：“断面画图程序。PRF”文件，
+ z' o1 i# P( X6 F$ @2 H# u（4）在界面上添加两个FORM，一个为“录入。”，一个为“修改”。FRM如图示控件，如图：
* p/ T  w8 B+ s( C7 m
+ T" j! i; q7 n# l
7 X# y4 {6 ~* a0 u5 O8 U/ r) Q
（5）在录入里面，分别双击“第一断面”按钮、“修改”按钮、“退出”按钮，在上面书写代码，
（6）书写代码，略，完成保存之。
5 n6 S2 n9 M/ ~( w2 z，

6．程序应用的具体操作步骤
     （1）打开AUTOCAD
（2）按ALT+F8键进入VBA界面，打开“断面画图程序。PRF”文件，执行之，进入如图示的界面：

（3）按TAB键顺序输入数据，然后点击“第一断面”按钮。依次操作下去，
* h: f! T6 j1 ^  ~7 c5 l- l。。。。。。即可。
5 g, o/ K2 l2 u6 U, g  T6 Y( G5 `按“退出”按钮退出。
（4）（执行后）输出结果如图示：
8 j# V( h0 ~2 l2 j0 g6 Q3 G  D
（5）修改
7 _# K# b# Z( r9 B  i画完后，再进入界面，点击“修改”按钮，进入修改界面，如图示：

+ g: G! H# o0 L7 Y0 j6 S( {
6．注意事项：
（1）如果是二台，高差为零的，则后一高程值=前一高程。
（2）如果存在跌坎，则斜长为前后高程差（只需要口算下，输入到斜长文本框里）。

lijun337

文章粗糙了点,错误很多!
( Z  q& i# Z4 |  w9 \& t
由于时间关系!

请多指点!
, j( w2 B: Z) `# Z/ d
0 J6 u; L( h8 w; ]1 ]# u+ J6 |谢谢!

! G# u0 @! w9 d另附上附件一个!

wo4088

谢谢分享，一般修水利的用坡都要用上

lijun337

如果,可以的话,请各位大师帮我修改修改!
' ]: j; d, G) T$ k) D2 O6 J. i
谢谢!