CAD设计论坛

用户名  找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 2785|回复: 3

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

[复制链接]
发表于 2009-8-13 13:41 | 显示全部楼层 |阅读模式
水利冬修填塘固基断面勘测设计程序应用       
4 R: q, h) d$ w. Y( I6 K$ f" G/ y% B
关键词:VBA  程序  勘测  断面/ G6 p( B* M; F
% x4 M8 e+ U) k. g
1.        前言
8 u. Y1 V$ k+ I在设计中,没有专业设计软件的情况下,绘制断面图是很繁琐的事,需要进行大量的、重复的操作,既劳神,又容易出错。
. R3 c0 w5 T; k5 Y, A+ D. K
6 A. |+ L* |3 J: b9 i. t利用AUTOCAD提供的VBA功能,编制程序进行计算、绘制,又能读取桩号、地面高程等信息在AUTOCAD里以文字、线条的方式写出来。
' b$ @) ]' I, J* c
+ \( s. [1 W5 o$ {VBA作为一个集成的开发环境,它提供了高质量的用户化编程能力。基于AUTOCAD的VBA应用程序就是高级程序语言的计算功能与AUTOCAD的绘图功能结合,使用VBA程序语句来控制对AUTOCAD图形的操作。
* B4 `) d' q: }  g% |  _; c7 q' X3 N4 V) h
2.        断面勘测计算画图工作) ?1 d; O1 b! s8 l
    水利冬修填塘固基断面设计工作,主要是通过数据的获取和处理,输出得到设计图。设计图是断面设计的主要成果,是重要的技术文件之一。在断面设计图上有两条主要的线,一条是根据各点的高程而绘制的实际断面线;另一条是设计断面线,它是经过技术上、经济上的处理而制定出来的线。
1 T# n1 }4 G" [- s1 m. U: o3 L' E! D4 P0 F
(1)组织结构图如下:# t2 o3 \3 [0 Z6 o, ]' \
! ?( R  ?, N. M, u" @( p0 d* T# ?* M
(输入原始数据)实际数值6 ]/ H; b, d) X; e

2 I% b+ l/ }( Q8 r1 o" @(经过计算获取)各点坐标位置/ b/ \$ X3 S4 o
) J# i1 t( B( H# W0 M) K! x
(画图、书写文字)连接各点的坐标位置+标注文字等
6 }5 d3 \, ]: |; ]% V! Z4 }
6 s3 X. J& u6 \- V$ S; n' X9 F) |(2)具体各点名称及坐标位置为::, ^2 a8 b6 J3 H4 r4 A

1 v" b- {# A: }4 S4 \3 B' x名称              代码          坐标代码(二维)) |) J1 n' q6 C, I* \5 \# I
外坡最低点        ee:              ee(Xe,Ye)  K4 r. Y. Z4 O9 A1 b8 S
面宽左位置点      ff:               ff(Xf,Yf)
* p" k8 x/ a, ?1 [5 w第一高程点        bb:              bb(Xb,Yb)3 S6 @" g( n, z( b7 ~
第二高程点        cc:              cc(Xc,Yc)
- ~' }( E( R& k/ y第三高程点        dd:              dd(Xd,Yd)* c) @) O4 q  ?. u: o) }' T' ^* G
。。。
' q; ~! u8 R9 o! E/ Q6 O* R。。。+ s! i. i' f4 \' ]1 L- O
(3)经过实地测量获取的实际数据为:
# O" W# p) \$ w* C" M1 `; X4 E( B5 K4 |6 A: S0 u
面宽实际数值为:m  ' J* j4 N& v- G! @7 B% `0 c* [
各高程实际数值为h1 h2 h3 。。。
) z& I* q. X+ g各斜长实际数值为l1 l2 l3 。。。
0 A: j" H( y' E) G
2 C- A+ K1 \9 }) a- r3 [6 t  [(4)以上具体数据如图示:# r5 a, g% Z: K, I; E6 G( X
3 a  _) `6 ^9 _$ x% q* _
(5)设计的基本思路和原理- ^- @4 L$ r) y$ Z7 r( ~
根据勾股定理计算确定各高程点之间的坐标位置,然后连接各点实现制图。
! i' a3 u, {, }# o4 m8 V  |  ]
! ?; n& e/ \# ]5.程序的编辑步骤简介
8 |3 j; ?* L- Z; S3 p( Q. E(1)打开AUTOCAD
& @( o9 w& O! t% S1 x(2)按ALT+F8键进入VBA界面,选择“宏编辑”进入编辑画面,
" a: `; j7 [7 i0 Q, O. }. T(3)在上面新建一个工程,取名为:“断面画图程序。PRF”文件,
0 {9 A% m" X& D. k+ [8 o(4)在界面上添加两个FORM,一个为“录入。”,一个为“修改”。FRM如图示控件,如图:$ ?! h# G% P2 g/ R+ v3 S8 e& \; A, [) m
9 T" h8 c$ N5 ?

5 B0 {2 [" A2 X' D  J" A0 P) T) G1 W
9 K7 s& ?- J; ~2 p(5)在录入里面,分别双击“第一断面”按钮、“修改”按钮、“退出”按钮,在上面书写代码,6 z6 T, u3 ~$ r9 R% C& S) ]* D% p
(6)书写代码,略,完成保存之。3 B6 z7 l6 D% X! c# o$ C0 |
5 C. [, z, b2 z/ l9 d  Q+ a
1 m7 d7 F$ U2 L7 e. H9 Z
6.程序应用的具体操作步骤
7 {4 {2 c, ?. A3 ~5 _( {     (1)打开AUTOCAD
/ F1 q  e2 I. X, {1 N# C6 r(2)按ALT+F8键进入VBA界面,打开“断面画图程序。PRF”文件,执行之,进入如图示的界面:
% c- g& L$ i, ^* E7 e
/ h' ~0 b/ e/ m(3)按TAB键顺序输入数据,然后点击“第一断面”按钮。依次操作下去,5 O$ F, Y0 s5 I8 [
。。。。。。即可。
3 B. ^6 v" p  J) P按“退出”按钮退出。" `2 v7 I; L% B
(4)(执行后)输出结果如图示:
% c* B1 O' b& A5 R4 S
7 L/ E8 E/ @" `* p! T(5)修改( V+ U2 u0 e$ x: H) a; l3 B* \2 r
画完后,再进入界面,点击“修改”按钮,进入修改界面,如图示:: S/ B4 \* M  O3 c

  v# t) x1 B4 ^/ w% `3 m
  v0 U5 Q8 X+ s# M" o7 ^. z# v9 K! ]& U6.注意事项:
) f% ~0 U+ c7 J  W  V; h/ [, f(1)如果是二台,高差为零的,则后一高程值=前一高程。
$ {! c! S' Y- j(2)如果存在跌坎,则斜长为前后高程差(只需要口算下,输入到斜长文本框里)。
 楼主| 发表于 2009-8-13 13:55 | 显示全部楼层
文章粗糙了点,错误很多!4 C$ n! b5 Q- A) l) p' e
/ n8 L" T7 p3 f0 ]1 E3 W
由于时间关系!2 L( w1 f& c$ X2 |

( u* {; E$ ]1 M: g2 X请多指点!) P' X; O4 J4 G7 \1 u
: B1 Z* i- Y+ B: v4 o8 g& M) N, M
谢谢!' |8 ~9 f. \1 e) x/ ?
# H7 {: Z4 L* j0 |
另附上附件一个!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
发表于 2009-8-13 21:09 | 显示全部楼层
谢谢分享,一般修水利的用坡都要用上
 楼主| 发表于 2009-8-14 11:58 | 显示全部楼层
如果,可以的话,请各位大师帮我修改修改!
4 ]' H' X4 H- f: }$ z0 i+ a. f4 B, \+ I
% X5 m% m' c9 ]2 A% d谢谢!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-4-9 17:18

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表