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

lijun337

水利冬修填塘固基断面勘测设计程序应用       
  g' H+ L8 W) y  A6 p. c4 c/ W# t
1 `* c1 Y* t6 I5 F0 [/ V- s! T关键词：VBA  程序  勘测  断面
3 }  J  M. P, ^9 r4 ~- x1 e
1．        前言
在设计中，没有专业设计软件的情况下，绘制断面图是很繁琐的事，需要进行大量的、重复的操作，既劳神，又容易出错。

利用AUTOCAD提供的VBA功能，编制程序进行计算、绘制，又能读取桩号、地面高程等信息在AUTOCAD里以文字、线条的方式写出来。
: K9 s0 |. D* Q8 J& C
VBA作为一个集成的开发环境，它提供了高质量的用户化编程能力。基于AUTOCAD的VBA应用程序就是高级程序语言的计算功能与AUTOCAD的绘图功能结合，使用VBA程序语句来控制对AUTOCAD图形的操作。
! s7 M! V& y  C# B! j+ g
% A6 P" _1 }: F) ^" L& _2．        断面勘测计算画图工作
4 q: i9 m- V$ C4 R& l. u    水利冬修填塘固基断面设计工作，主要是通过数据的获取和处理，输出得到设计图。设计图是断面设计的主要成果，是重要的技术文件之一。在断面设计图上有两条主要的线，一条是根据各点的高程而绘制的实际断面线；另一条是设计断面线，它是经过技术上、经济上的处理而制定出来的线。
0 V+ ^# l- t( u; q
（1）组织结构图如下:

1 l2 t* d# h+ P6 [" A(输入原始数据)实际数值

（经过计算获取）各点坐标位置

5 K* b  C3 {$ t3 M* L& l5 N（画图、书写文字）连接各点的坐标位置+标注文字等
  B2 p8 p' \9 c, Q- h1 _
% k  ~% M; D, Q5 M（2）具体各点名称及坐标位置为:：

! k( b" l6 P0 z9 {* g名称              代码          坐标代码（二维）
外坡最低点        ee:              ee(Xe,Ye)
面宽左位置点      ff:               ff(Xf,Yf)
8 A- o2 b' j$ c第一高程点        bb:              bb(Xb,Yb)
第二高程点        cc:              cc(Xc,Yc)
第三高程点        dd:              dd(Xd,Yd)
。。。
。。。
（3）经过实地测量获取的实际数据为：
: C! d: _& B" H: J8 U5 r! M
面宽实际数值为:m  
各高程实际数值为h1 h2 h3 。。。
* Y, q8 ?0 d: ]1 r  @+ u9 ]各斜长实际数值为l1 l2 l3 。。。
6 P$ s; R  ?) m4 U! ]
& W: E4 j. U2 W; c% X, p% Y5 A" M（4）以上具体数据如图示：
% ?# F, O. }1 f) S
（5）设计的基本思路和原理
根据勾股定理计算确定各高程点之间的坐标位置，然后连接各点实现制图。

5．程序的编辑步骤简介
（1）打开AUTOCAD
; z) l& D: i1 Y  g* ?$ R" A（2）按ALT+F8键进入VBA界面，选择“宏编辑”进入编辑画面，
6 X0 v7 I8 Q" @" _# \2 i（3）在上面新建一个工程，取名为：“断面画图程序。PRF”文件，
) E% ]# k6 |  H% ]（4）在界面上添加两个FORM，一个为“录入。”，一个为“修改”。FRM如图示控件，如图：
0 k; y3 P) }, c. S3 U$ F  G


7 Y" X; R, z% n! o3 H' P（5）在录入里面，分别双击“第一断面”按钮、“修改”按钮、“退出”按钮，在上面书写代码，
（6）书写代码，略，完成保存之。
，

7 k; U- y0 ]. c7 Z6．程序应用的具体操作步骤
  e* x& L# p0 O; R7 n5 J     （1）打开AUTOCAD
（2）按ALT+F8键进入VBA界面，打开“断面画图程序。PRF”文件，执行之，进入如图示的界面：

（3）按TAB键顺序输入数据，然后点击“第一断面”按钮。依次操作下去，
* }. ?9 k/ e7 J。。。。。。即可。
7 J/ m/ ~( b9 K' M- t5 w6 `按“退出”按钮退出。
（4）（执行后）输出结果如图示：
/ D; `; _2 F; r. S/ T, n1 V* }9 ~
) l2 {, f: e: N/ C' y6 m+ [+ b% P（5）修改
画完后，再进入界面，点击“修改”按钮，进入修改界面，如图示：


6．注意事项：
# D' S3 F  l( |; i4 t（1）如果是二台，高差为零的，则后一高程值=前一高程。
（2）如果存在跌坎，则斜长为前后高程差（只需要口算下，输入到斜长文本框里）。

lijun337

文章粗糙了点,错误很多!
9 L$ Q( R! F4 {% M
由于时间关系!
$ S" }1 E8 h7 v3 s% t: }
5 Z* ]8 ], y9 h+ S" K请多指点!
7 [& I" B* E/ K( i
谢谢!
+ ~/ H) I2 |# c
另附上附件一个!

wo4088

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

lijun337

如果,可以的话,请各位大师帮我修改修改!
% A7 V+ j* x( ?( c
谢谢!