CAD设计论坛

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

[开发] 地板辐射供暖加热管的VBA辅助设计

[复制链接]
发表于 2006-4-19 13:33 | 显示全部楼层 |阅读模式
Sample Text
0 n: k4 o: y6 z2 L& @( G2 z! a    介绍了一个用VBA编制的程序,用于AutoCAD绘制低温热水地板辐射供暖加热管的布置图时辅助计算加热管的长度。
. E2 A- l( V* e# h# J2 U) _1 T    由于低温热水地板辐射供暖具有卫生、舒适、节省空间、便于分户计量等特点,该供暖方式已在北方逐渐普及起来。暖通设计者在绘制工程图时,也需要绘制加热管的布置图。[低温热水地板辐射供暖应用技术规程]第4.3.3条规定:同一热媒集配装置系统各分支路的加热管长度宜尽量接近,并不宜超过120m。而为了保证加热管的寿命,每一个环路中,不应有接头。这就要求设计者在绘制管道布置图时控制加热管的长度。如供货的盘管为100m/盘,则要求设计者在设计环路将每个环路使用的加热管长度都控制在100m以内。既要避免因加热管太短而造成浪费,有要避免加热管超过100m使环路中有接头,以及由于各分支的加热管长度不同而造成的阻力不平衡。9 i3 ?4 E) D4 Q3 O5 y) f
   一般利用AutoCAD绘图时,先绘制管道环路图再测量管道长度,这就要求设计者要一边绘图一边估计已采用加热管的总长,一旦估计错误则要重新绘图。利用VBA编程技术可以达到控制管道长度的目的。绘图时,先输入管道长度,每画完一条直管道,在AutoCAD的命令行会自动显示剩余长度,避免了绘图的盲目性。下面介绍该程序的编制和应用。
& t( V7 w3 f/ b. _' _% V$ C、编制程序
& n8 k5 z  B  n, z+ ~; G1)首先在AutoCAD窗口的“工具”选单中打开“宏/VisualBasic编辑器”进入VBA开发环境。
+ [) V! O0 Z4 L# `& E& [2)在VBA窗口的“视图”选单中选择“代码窗口”项,打开程序代码窗口。再在VBA窗口的“插入”选单中选择“过程”项,在工程中建立新的过程。在“添加过程”对话框设置新过程的名称、类型和范围,此设置名称为jrg,过程类型选择“子程序”,过程范围选择“公共的”。单击“确定”按钮,在代码窗口创建新 过程jrg如下图所示。过程的第一行和结束行自动产生。! c2 S8 i% P+ V/ O4 F
* A( g$ Q+ `: e  L
0 d9 H8 A# O3 Q! t" J/ h3 t

) x& ^* s% Z/ O1 X: Y( E  |- ?. x5 j

& i" }: ?! }" c3)在程序代码窗口中,Pubilc Sub jrg()和End Sub之间输入程序代码并将其保存到指定位置。控制加热管长度的程序如下:
% Z! u# V9 R8 N  O2 p! q! e! L! w: [* A2 s
Public Sub jrg()) g/ S! L4 e' W8 N* z
Dim startPnt As Variant. S' Z8 h  R( M
  Dim endPnt As Variant3 f2 b9 @3 O' L+ E& r+ }5 b# O0 R
  Dim aa(0 To 5) As Double9 `* R' n( K, ?- Q
  Dim prompt1 As String2 ~/ i0 @8 T) N8 T  \
  Dim prompt2 As String
  E* g- G# q2 N  Dim line1 As AcadPolyline
1 l( O5 L1 A5 G& t  Dim distance As Double
4 \% {# e7 P0 `9 B+ z, C* X( @  Dim a As String
" E) P- W" j6 @( z5 w* O5 u  Dim b As String3 ?3 A1 n8 t% y( U# `$ L2 L& V/ s
  Dim keyWord As String9 \+ Z4 }3 F, X1 G
  Dim pd As Boolean
$ [; m& }  ?. Y, p. ~  H% P9 D  prompt1 = vbCrLf & "Enter the start point of the line:"( m9 y  A( w  s* ~0 M; o, C' K( o
  prompt2 = vbCrLf & "Enter the end point of the line:"8 M! g( i  M0 h0 S, b
  distance = ThisDrawing.Utility.GetReal(vbCrLf & "Enter an length/mm"), M5 O4 s/ V' }: L1 W! b
  scale1 = ThisDrawing.Utility.GetReal(vbCrLf & "Enter an scale:")) Q; X2 q5 h$ u2 ]  L
  startPnt = ThisDrawing.Utility.GetPoint(, prompt1)" t9 |, n6 y5 X* T
  endPnt = ThisDrawing.Utility.GetPoint(startPnt, prompt2)( b) B  j4 g2 c. r2 ]$ i0 m! y
  For i = 1 To 100000
9 @! j# y1 Y  u  V8 ^* d8 O/ E% T$ p  aa(0) = startPnt(0)3 v! Y1 I* m2 j( ~( ~0 f
  aa(1) = startPnt(1)
1 A) Z' V* K/ P7 P2 S; E0 E  aa(2) = startPnt(2)
+ `! ^2 U* t" I3 V+ l4 q) d8 d  aa(3) = endPnt(0)
8 X: V, J8 Y% u5 q$ P; [4 A2 z  aa(4) = endPnt(1)/ u8 \8 O1 o; V" l3 r
  aa(5) = endPnt(2)- U& O7 i/ R& \) e. g
  Set line1 = ThisDrawing.ModelSpace.AddPolyline(aa). C- C, |! t, h4 `1 n
  Length = Sqr((aa(0) - aa(3)) * (aa(0) - aa(3)) + (aa(1) - aa(4)) * (aa(1) - aa(4)) + (aa(2) - aa(5)) * (aa(2) - aa(5)))
; Q8 W" e! g) e' Y3 v" u  distance = distance - Length * scale1$ Z: f6 T$ b' t& I1 H) w4 J
  If distance < 0 And (Not pd) Then' H2 ^+ `( I$ l
  h = MsgBox("剩余长度小于0,是否退出?", vbYesNo, "警告")
9 u5 M9 {1 B  f: j: x' X" A$ U% `  If h = vbYes Then
: v- Z8 P4 t# A: o  GoTo 100& u7 M0 R3 W8 X+ i9 ~; G5 P8 I
  Else& e+ p, z% X& [
  pd = True& A5 j" @( i3 z% B7 r
  End If
; Z8 ^2 ~- {7 c  N  End If
: g: g' X' l# }1 H3 ~  startPnt = endPnt- _) K: P( I! d
  a = distance / 1000
$ ^' K2 [. s, k  On Error GoTo 100% O, Q3 o% Q2 h( t" }9 Y
  endPnt = ThisDrawing.Utility.GetPoint(endPnt, "剩余长度" + a + "输入如下一点")  r- t9 [7 z# ~. z' z, q8 s8 f
  On Error GoTo 100
( W, N) Z/ k& }, U' F  Next i
& P( p: [# P7 R  ?100
2 H5 Z! j* F1 S9 QEnd Sub: R# }* @7 s  N3 k' E1 G
2 使用程序
- ?* p4 H4 A3 A. B, q1 x  在AutoCAD窗口的“工具”选单中打开“宏/宏”对话框,单击“运行”按钮。则在AutoCAD的命令行出现命令”Enter an Length/mm:“这是程序设计中要求每个环路使用的命令(要求以mm为单位)。如果要求每个环路使用的加热管长度都在100m以下,则输入100000,回车后出现”Enter an scale:“
' X5 I+ _0 Q$ f( O3 |即输入100,回车后出现”Enter the start point of the line:“便可以绘制加热管线。
9 a. m( Q2 M( L+ @% @+ a9 g5 F- s! X' b$ i
[ 本帖最后由 summerfly2008 于 2006-4-21 19:30 编辑 ]
发表于 2006-4-19 16:54 | 显示全部楼层
继续坚持下去
发表于 2006-4-21 15:06 | 显示全部楼层
楼主怎么没下文了啊我需要编个统计图中所有线段长度的程序
发表于 2008-10-16 14:41 | 显示全部楼层
学习     学习
发表于 2008-10-26 17:53 | 显示全部楼层
谢谢!只可惜!我不会呀!
发表于 2008-10-26 23:08 | 显示全部楼层
不要说会了,我看都看不懂
发表于 2008-10-27 09:21 | 显示全部楼层
这东西对我很有用,尽管已经很古老了,但还谢了!
发表于 2008-11-10 18:48 | 显示全部楼层
楼主此程序里面好像缺点什么东西,, O8 D# Q% O0 x" ?2 k; c  t$ _
达不到我们设计地暖管时能够知道剩余管的长度,
' @) `' I1 M# W% j; C. S可不可以帮忙再找些这方面的东西。
* W& r( \# G# A2 n谢谢!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2025-9-19 11:16

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

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

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