|
|
水利冬修填塘固基断面勘测设计程序应用 " o* Z# \" r2 o. e3 V2 O
8 c) m" t! R* ^: @) A关键词：VBA 程序 勘测 断面
! L, G* e) ?3 M( X! ~/ B+ k0 k2 X- v, m K6 i7 }+ U, W" k, c% f/ H
1． 前言& @* ~" [. H4 t( @! C; a* j$ m' Y
在设计中，没有专业设计软件的情况下，绘制断面图是很繁琐的事，需要进行大量的、重复的操作，既劳神，又容易出错。* H' J5 {7 q& f; _ ~
' l# C, P; q* D J利用AUTOCAD提供的VBA功能，编制程序进行计算、绘制，又能读取桩号、地面高程等信息在AUTOCAD里以文字、线条的方式写出来。
. h/ b% W2 a7 N( T
. B6 B& K* a2 mVBA作为一个集成的开发环境，它提供了高质量的用户化编程能力。基于AUTOCAD的VBA应用程序就是高级程序语言的计算功能与AUTOCAD的绘图功能结合，使用VBA程序语句来控制对AUTOCAD图形的操作。
* H0 {6 T& M0 t9 T( J3 i; A- Q$ Q. Z# H. |% K
2． 断面勘测计算画图工作: e$ u) i) L+ t9 b1 D( c
水利冬修填塘固基断面设计工作，主要是通过数据的获取和处理，输出得到设计图。设计图是断面设计的主要成果，是重要的技术文件之一。在断面设计图上有两条主要的线，一条是根据各点的高程而绘制的实际断面线；另一条是设计断面线，它是经过技术上、经济上的处理而制定出来的线。
- a' k3 V5 i, V. ]/ I6 a
6 z3 L8 M( d+ J( Y; a0 ?（1）组织结构图如下:+ J+ R6 M" m7 K. {
9 G) {; `5 v. v8 q1 @! J
(输入原始数据)实际数值
+ |% O( D. b( [2 ?' _9 n$ J- d
+ U: Y& q' H* K, t/ H% R（经过计算获取）各点坐标位置
) A: P/ a+ M# {* Q
3 e% ^3 t, z5 X. j（画图、书写文字）连接各点的坐标位置+标注文字等
: R) z9 T$ c! o, H0 ?1 v" h# G
（2）具体各点名称及坐标位置为:：& e6 ~6 K# a* {# z* d/ y9 F0 [! s
6 ^' Q, I1 {9 x: P" p名称 代码 坐标代码（二维）" }8 X% {7 j/ b$ I( q
外坡最低点 ee: ee(Xe,Ye)+ M( @+ g1 |1 b
面宽左位置点 ff: ff(Xf,Yf)# j" L% v' n. W" Z/ f- V7 @' J
第一高程点 bb: bb(Xb,Yb)
& ?3 m" c" `0 W/ ?4 F第二高程点 cc: cc(Xc,Yc)
( Z8 X5 H9 a2 O$ I# L第三高程点 dd: dd(Xd,Yd)
, I. e8 H2 s2 k v* r# \。。。3 G/ U0 T9 X5 h$ Q# C' V4 y. V
。。。
/ ]/ m. j7 Q U( o+ q6 z9 R（3）经过实地测量获取的实际数据为：, K/ D) @4 N- [ Q. ?
. h2 E, H4 C; p& y8 n面宽实际数值为:m 0 ~4 v5 _- C) T
各高程实际数值为h1 h2 h3 。。。; @1 v) T% H6 M: ]
各斜长实际数值为l1 l2 l3 。。。3 c Z- x* j5 Q3 A
% v3 s$ z' h$ Y. D6 F4 H D（4）以上具体数据如图示：6 N, d% I5 `( y4 n6 s2 v) ^- e
# _7 }6 b! t2 Z7 s f（5）设计的基本思路和原理7 F' l! w4 ?. c' e
根据勾股定理计算确定各高程点之间的坐标位置，然后连接各点实现制图。) b# N& L6 S/ A k* o% o' D% R/ Y
; X; A; q5 l- S# H b. q5．程序的编辑步骤简介
$ `( T6 T& k5 K（1）打开AUTOCAD5 i9 l4 H i, j& g( a
（2）按ALT+F8键进入VBA界面，选择“宏编辑”进入编辑画面，3 S3 Y4 c- c5 b" m+ L$ C
（3）在上面新建一个工程，取名为：“断面画图程序。PRF”文件，. i! B$ v1 d" ?# s2 r0 i9 ^4 p
（4）在界面上添加两个FORM，一个为“录入。”，一个为“修改”。FRM如图示控件，如图：& |2 x6 Q% U# k3 a+ J/ p; [; C% l( ]9 F
/ J* @" i5 t: x4 u, c# @, R
8 q4 R" z! }& n* j, i1 M
) |7 E: ~8 J: r& p（5）在录入里面，分别双击“第一断面”按钮、“修改”按钮、“退出”按钮，在上面书写代码，
* j% X$ P" R- b2 P" M; A2 V（6）书写代码，略，完成保存之。
7 p/ D9 y7 b2 M* G- a，
* z6 S' i+ U1 I0 M6 |- x" {
/ i* c! u0 C8 c* k8 m6．程序应用的具体操作步骤2 i1 ^% i! j5 x
（1）打开AUTOCAD3 ~) A2 |* h1 } A; @: [
（2）按ALT+F8键进入VBA界面，打开“断面画图程序。PRF”文件，执行之，进入如图示的界面：% F) a, W7 S$ @- y4 h8 O
6 Y! l( ?4 `. L; I& k
（3）按TAB键顺序输入数据，然后点击“第一断面”按钮。依次操作下去，
' g* y1 \' j' n7 f5 L。。。。。。即可。% \1 R/ f4 X1 g
按“退出”按钮退出。0 H$ J. z( B8 |7 k* a
（4）（执行后）输出结果如图示：
E0 s; V C; r7 N
* u" {( q8 P. t% Y（5）修改; D. F4 ^% G# h3 c! B
画完后，再进入界面，点击“修改”按钮，进入修改界面，如图示：2 j" }3 l- ]) d }
+ u( q" ~5 }; Y/ a b& ^
& y' n4 z+ `: ^
6．注意事项：# b* B2 X4 K; \# q
（1）如果是二台，高差为零的，则后一高程值=前一高程。: Z/ I) Q5 \8 y1 m! F7 c
（2）如果存在跌坎，则斜长为前后高程差（只需要口算下，输入到斜长文本框里）。 |
|
发表于 2009-8-13 13:41
楼主