|
|
水利冬修填塘固基断面勘测设计程序应用 ( }: k8 E3 f4 O/ d: P
4 `1 z9 R* R/ t7 [" J关键词：VBA 程序 勘测 断面1 x8 M6 q# h8 Z4 D( o( |% m' ^! T* }
$ T% ?4 Q( ]: f! W2 n! R1． 前言- `' R5 ^' L" }6 n9 C- [* ~
在设计中，没有专业设计软件的情况下，绘制断面图是很繁琐的事，需要进行大量的、重复的操作，既劳神，又容易出错。4 A, m0 d. @' q1 ^1 |
0 |! B& j: Q# w, K
利用AUTOCAD提供的VBA功能，编制程序进行计算、绘制，又能读取桩号、地面高程等信息在AUTOCAD里以文字、线条的方式写出来。; r- ?3 r. G8 ?; Y/ s/ Z
, @4 P" \9 ]* ~2 }- Q5 D
VBA作为一个集成的开发环境，它提供了高质量的用户化编程能力。基于AUTOCAD的VBA应用程序就是高级程序语言的计算功能与AUTOCAD的绘图功能结合，使用VBA程序语句来控制对AUTOCAD图形的操作。
% b$ T9 P4 l' p
Y7 t# }+ U( n! U9 D2． 断面勘测计算画图工作
4 c& y; X2 t @6 ? 水利冬修填塘固基断面设计工作，主要是通过数据的获取和处理，输出得到设计图。设计图是断面设计的主要成果，是重要的技术文件之一。在断面设计图上有两条主要的线，一条是根据各点的高程而绘制的实际断面线；另一条是设计断面线，它是经过技术上、经济上的处理而制定出来的线。' r! h+ d. u) s7 t6 b3 r$ ?
$ ]$ E5 `, g& }( F6 d+ V( v（1）组织结构图如下:$ Z( f# G w6 ~0 v7 }# q* G) A1 u
& q" m+ ]: f3 e0 Q a
(输入原始数据)实际数值
7 Q( O6 R0 J( f$ Q' q' f8 }
3 Z1 `5 P# p. t. h; j- F（经过计算获取）各点坐标位置: a& a3 P* k8 ^6 S: [: l* i+ c
1 ]; D3 X& [, ]! s
（画图、书写文字）连接各点的坐标位置+标注文字等
+ V& \. u0 }4 i7 _% G5 S
) n9 u& H7 b& x. N( `, A2 v" k（2）具体各点名称及坐标位置为:：
8 ?4 M# `8 v) x! I& l8 |. E9 i9 g& f, a/ F
名称 代码 坐标代码（二维）
1 M8 O0 {: P/ d) P外坡最低点 ee: ee(Xe,Ye)
; [( C* T/ d: t* [7 x+ @6 C: C7 x面宽左位置点 ff: ff(Xf,Yf)
) A. S) }1 C/ E$ N. o6 M第一高程点 bb: bb(Xb,Yb)
) W1 R/ D: s s- v8 y第二高程点 cc: cc(Xc,Yc)
) F# l0 t. W( L( t第三高程点 dd: dd(Xd,Yd)
) i2 a5 i6 k, ~0 t. J。。。
& K: U4 d2 ]" X0 ^& p4 d$ c。。。5 H. h! \: n" P* X1 q
（3）经过实地测量获取的实际数据为：
/ O' g0 V, R! r! P- l) W# Q5 {$ G& k# i( A
面宽实际数值为:m $ f* C/ ?0 u1 {+ L/ ]# l# e, `
各高程实际数值为h1 h2 h3 。。。
4 R- |. t, ~- e! j各斜长实际数值为l1 l2 l3 。。。
- @4 Q+ E! z( @) X0 t& F6 T( d. s/ I6 D: c3 ^2 M* U/ G
（4）以上具体数据如图示：% N- w$ O. D7 `
4 R. O) @& r4 [3 X6 x（5）设计的基本思路和原理& P, R4 B3 G$ k# U p0 u% i/ y; r
根据勾股定理计算确定各高程点之间的坐标位置，然后连接各点实现制图。& J( k/ [+ h4 E9 w2 n% f
& m# ~; \7 q6 D7 I$ m b
5．程序的编辑步骤简介8 ?$ T- y/ \1 p% l7 {* k( a, y1 l5 a
（1）打开AUTOCAD5 G. G+ o7 ? ?8 j: i: F
（2）按ALT+F8键进入VBA界面，选择“宏编辑”进入编辑画面，
, m6 U: g' K8 S: G6 k2 i# Q6 L( n（3）在上面新建一个工程，取名为：“断面画图程序。PRF”文件，
. v( w6 R$ e. \; c, P% z7 n# b1 c# c（4）在界面上添加两个FORM，一个为“录入。”，一个为“修改”。FRM如图示控件，如图：
1 ?4 C* H8 l; X R* @ ( g1 |. d) D/ w V$ X F7 O3 f
# x6 O0 d. f; J" ]7 r
- ]& Z! o' p0 V$ A! J（5）在录入里面，分别双击“第一断面”按钮、“修改”按钮、“退出”按钮，在上面书写代码，
' k8 W8 r( N* G; l; }6 E+ y8 J（6）书写代码，略，完成保存之。9 `; B8 J- C4 o( U1 X$ @* j$ d/ x
，( R& R @# P r3 j! j# v3 o% m) u, {: I; D
7 `2 ~3 X. |, f6 D P6．程序应用的具体操作步骤$ _, L4 ~$ V% P" s- I2 z7 e0 \
（1）打开AUTOCAD2 `" M# [: w+ e2 \! t
（2）按ALT+F8键进入VBA界面，打开“断面画图程序。PRF”文件，执行之，进入如图示的界面：
$ L% u1 ^1 [% D7 ^" b " P/ Z9 c8 [. k( z
（3）按TAB键顺序输入数据，然后点击“第一断面”按钮。依次操作下去，
1 }3 h: Q2 y0 A0 R m/ H" K+ Y。。。。。。即可。
1 ~- u; u9 S/ K7 E& f按“退出”按钮退出。8 `1 s7 d. Y/ I0 F( a1 z7 l
（4）（执行后）输出结果如图示：0 E7 L8 R0 k+ b
) I7 a9 v% ]1 D8 j( d8 N（5）修改
( t) ^8 M( s, {" @ @1 h+ f/ y画完后，再进入界面，点击“修改”按钮，进入修改界面，如图示：1 K+ ]6 ]6 h( z% `4 u! E# ]/ D
* d2 U3 H: B, d- T# }1 L0 B
; L/ B1 f" R2 g7 i1 }1 g6．注意事项：
1 w* I- s$ x; W, v) \* ]+ A& u（1）如果是二台，高差为零的，则后一高程值=前一高程。
2 h1 t% h- e- w+ h: M) R9 Q（2）如果存在跌坎，则斜长为前后高程差（只需要口算下，输入到斜长文本框里）。 |
|
发表于 2009-8-13 13:41
楼主