下载前请预示,满足的与原始预示同卵的。,高等紧缩的在线预示图片,下载原型更清澈的。

下载发稿列表

浅论热交换器管板管孔布算法.doc

文档引见:
成环管道规划算法的热交换器
鉴于例程的AutoCAD VBA算法
满足的摘要:本文引见了热交换器设计中圆形管板布管航线的相互关系算法及鉴于AutoCAD的VBA的一算法例程。
关键词:AutoCAD VBA 管规划算法例程
我应付的是热交换器设计。在设计换热导管热交换器。换热导管安顿的相互关系机能计算,它必要在机能棘手的中反复屡次,倘若不独破费很多时期也支配副的的劳动效率。由于任务必要,i管的算法思惟与设计。为了便于绘制下一步的任务,该算法的造成是鉴于AutoCAD的VBA。同样,导致布管可以直接运用到图样。
明天的数纸机工业设计软件有很多布料的顺序。,和大设计零碎还包孕一组布。。但关闭中低端的运用只必要管手术,鉴于AutoCAD的传播是不通俗的的。传播现存的顺序将不自觉动作创造对应的的表达。。这不独使复杂的层,蜡纸油印件出错,只全世界都有本身的定做的层。,顺序创造的图形和用户能够涌现原始着色水乳交融。鉴于这一状态,我决议依据我本身的算法写的一顺序。下面所说的事顺序变动从而产生断层使成为一新层,但经过用户选择的层测定。
经过长久的运用的顺序
果心孔可容纳若干座位:最靠近的T的管孔的横向可容纳若干座位。,它分为两个中部和中部典型。
果心管纵向流变举步:铅直切断的孔举步,倘若0,在某种意义上说,立管直径。
果心管的程度举步:用H隔开的管孔举步,倘若0,它可以是管程度直径表现。
目的平台的选择
鉴于AutoCAD的两种研制方法,用Autolisp假释期和VBA假释期。AutoLISP是Autodesk公司自动地研制的假释期,AutoCAD VBA濒临比,使充分活动AutoCAD的效能。只VBA也有本身的优势。,它比AutoLISP假释期的知识典型,并且VBA假释期对对话框的设计能力比AutoLisp强大的。
广泛的思索后,我决议用VBA算法组成顺序。
算法思惟
管道规划算法,由顺序所需的用手操作主假定决定的可容纳若干座位。我的打手势是从简略到复杂,着陆凝视大块和管举步,布管在圆管的外圆上有少许。。那时,管孔与管圈按切。。该算法在愿意做对比地清晰地。对管孔,其可容纳若干座位在的清理用手操作,将使计算更清晰地,用手操作的数目将更少。。
在画画的时辰,由用户选择杂多的一次的模型,而变动从而产生断层不自觉动作创造所需的一次的层,它是更CON。,用户支配层和运用现存的的拉模板。这可以偷窃渴望和运用顺序适当的,和法典,造成未必复杂。。
该算法的顺序法典和解说
着陆必要决定管窗口分界线风格的知识。在窗口中添加行设置列,两下拉列表框让用户选择果心线和把持。此设置容许图形适合用户运用定做的的层。
当必要设定初值装填窗口时,详细法典列举如下
Private Sub UserForm_Initialize()
” 对应的的设定初值
布局方法.Clear
改编乐曲of.additem “三角投资”, 0
改编乐曲of.additem 肯定质的改编乐曲, 1
布局方法.ListIndex = 0
果心孔的可容纳若干座位清晰地。
Center hole position.AddItem “跨中”, 0
Center hole position.AddItem “居中”, 1
果心孔position.listindex = 0
Dim i As Integer
的果心线清晰地的层。
轮廓图解层.Clear
For i = 0 To .Count – 1
果心线layer.additem 发射称号(我)。, i
轮廓图解层.AddItem 发射称号(我)。, i
Next
End Sub
经过对属性的用手操作,你可以在层流行的AutoCAD图形设置数据,并将该数据(该层的称号)的下拉列表框。变换下拉列表框中选择时,你可以选择运用以下法典层
ThisDrawing.ActiveLayer = 发射(果心线层。列表涉及)
当用户填写每个人数据,你可以点击画开端绘制使系牢之物,当绘制使臻于完善,布管的数目将会在窗口分界线左下的数据框里显示摆脱(未布管前显示:待排管)。
在总计的管道和拉拔航线中,有四分染色体次要搬动
1)知识反省
反省用户输出知识的正当和睦领会,像,输出的知识都必要它,且管间
从活栓网转载,请表明费力地找。

发表评论

电子邮件地址不会被公开。 必填项已用*标注