包装074纸箱CAD系统计算说明书.doc

浙 江 科 技 学 院 课 程 设 计 包装CAD课程设计说明书题 目 包装CAD课程设计 学 院 轻工学院 专 业 包装工程 班 级 074 班 学 号 107141113 学生姓名 陈 跃 同组同学 白贵福 王国钢 谭波 指导教师 金国斌 胡桂林 完成日期 2009年 9月 17 日 瓦楞纸箱包装CAD软件研制学生姓名：陈跃 指导教师：金国斌 胡桂林（浙江科技学院轻工学院）1 绪 论商品是人们生活中必不可少的东西，随着人们生活水平的不断提高，以及对各种事物的要求也越来越高，随之对商品的包装也就有了越来越高的追求.在各种商品包装容器中，瓦楞纸箱的应用占首位，设计精良的纸箱能帮助产品的运输、流通发挥优势作用.随着科学技术的迅猛发展，产品造型日趋发杂，产品包装的设计也日益受到人们的重视，然而利用传统的设计方法，设计周期长、人力消耗多、质量无法满足市场要求.因此，为了适应现代工业的发展，缩短产品包装的周期，提高产品在市场上的竞争力、满足自动化包装等的要求，人们便将高速发展的计算机技术应用到了包装行业的纸箱设计中来，各类包装纸箱CAD软件应运而生.瓦楞纸箱作为使用最为广泛的包装容器之一，有着许许多多的优点.首先它价格较低；具有一定的刚度和强度，又有良好的弹性和韧性，对内装物有良好保护作用.其次，相对于其它包装容器质量较轻，运输费用相对较少；最后，瓦楞纸箱可回收再利用，作为废弃物，其处理方法也非常容易，不产生污染.因此，我们设计了瓦楞纸箱CAD系统，以便于瓦楞纸箱的自动化包装.由于水平所限，我们设计的系统还有一些缺陷.因为是初次使用VB，希望各位能指出更多缺陷或错误，或提出好的建议. 1.1瓦楞纸包装在包装工业中的地位及现状在当今纸包装制品中，瓦楞纸包装应用最为广泛，它可以制成瓦楞纸箱、瓦楞纸盒、瓦楞纸板缓冲结构、瓦楞纸板托盘、瓦楞纸板展示台架等等.瓦楞纸具有一下特点：(l)重量轻，结构性能好(2)对商品保护性能好(3)运输费用低(4)易于变更箱型尺寸，包装适应性强(5)包装作业易实现自动化(6)原料成本低，废箱易于回收 1.2 瓦楞纸箱产品设计现状CAD(Computer Aided Design)即计算机辅助设计被广泛应用与制造业以及工程设计等各个领域.将CAD技术运用到纸箱包装行业会大大缩短瓦楞纸箱产品的设计周期，提高设计质量.我国计算机技术在包装行业中起步较晚，和发达国家差距较大，国内部分纸盒制造厂商人采用传统的手工设计和加工工艺，很难满足现代工业对纸盒包装的要求.随着生产水平的提高及对外贸易的发展，人们对纸盒的质量也提出了更高的要求.因此，在我国包装业，引入CAD/CAM技术，以实现纸盒包装设计/制造现代化尤为重要. 1.3 CAD系统软件的发展趋势近些年来，国内许多企业在进行“甩图板”工程中尝到了甜头，希望CAD技术能在生产中发挥更大的作用，而进一步的需求又促进了CAD技术的发展.今后CAD技术的发展将更加迅速，它将向以下几个方向发展:（1）规范化和标准化（2）集成化.（3）智能化.（4）可视化.（5）更广泛地使用多媒体技术.（6）网络化.（7）Windows化 1.4 课题研究的内容和意义通过实践调查和理论分析本课题研究的瓦楞纸箱CAD软件系统具有实用和推广的应用价值，尤其是针对中小型生产型企业.本课题的研究，主要就是针对中小型瓦楞纸箱包装系统（单箱重量不超过20KG）而言.通过对包括箱体的基本要素及尺寸、盒型、形状、箱体强度， 材料成本及优化设计等问题的研究，期望能够把每个问题进行程序化实现来开发一套瓦楞纸箱CAD系统，代替纯手工设计步骤，实现从箱型结构选择设计、纸箱材料选择、纸箱尺寸设计、纸箱强度计算等计算机辅助技术，以提高企业的经济效益，推进我国包装工业现代化、标准化、国际化.2 瓦楞纸箱设计我在这个小组里主要负责的是抗压强度Pd公式的编程 以及最后结果输出的编程 以及音乐播放和停止 以及查看帮助链接的设计 2.1 制作系统界面5添加窗体，名称改为第五页.添加一个“预设计纸箱尺寸”标签，再在这个标签里面竖直方向添加“长度（mm）”“宽度（mm）”“高度（mm）”三个标签，在水平方向上添加“单瓦楞”、双瓦楞”标签.在添加6个空白文本框，使其组成表哥的形式.再添加一个“计算”命令按钮.在下面添加一个“预设计纸箱的堆码强度”标签，再在里面添加“Ps（N）”标签和2个空白文本框，再添加一个“计算”命令按钮.再添加一个“计算”命令按钮.在下面添加一个“预设计纸箱的抗压强度”标签，再在里面添加“Pd（N）”标签和2个空白文本框，再添加一个“计算”命令按钮.最后在添加“输出结果”“上一步”“退出”三个命令按钮. Ps=9.81 * K * M *(Nmax -1) Ps载荷 ，N K 载荷系数，于选择安全系数中给出 M 单件包装总重量 为 单件数 * 单件重 Nmax 最大堆码层数.为int(堆码高度/瓦楞箱高) 堆码高度 为手动选择条件中给出 计算预计纸箱抗压强度Pd Makee简易公式(详见包装结构设计（中国轻工出版社)P126) Pd =1.858 10-2 Pm ( t Z )0.5 Pd 为纸箱设计抗压强度, N t 为瓦楞纸板厚度, mm Z 为纸箱周边长, cm 等于(2*(纸箱长+纸箱宽) Pm 为瓦楞纸板边压强度, N/m.因为我们的纸箱主要用于内销运输，内装物最大重量小于20Kg,因此选择第二类纸板 单瓦楞S-2.3，Pm=980N/m;双瓦楞D-2.2,Pm=980N/m.(详见包装结构设计（中国轻工出版社)P135瓦楞纸板表（GB6543-86）&瓦楞纸板技术指标（GB6544-86）) 计算完成，进入校核计算完成，进入校核.若PsPd,则选择的楞型不合理，或者堆码高度过高，就需要返回重新选择；若Ps Val(第五页.Text53) Then Label60.Caption = 第五页.Text57.Text Label61.Caption = 第五页.Text59.Text Label62.Caption = 第五页.Text51.Text End If If Val(第五页.Text56) Val(第五页.Text54) Then Label63.Caption = 第五页.Text58.Text Label64.Caption = 第五页.Text60.Text Label65.Caption = 第五页.Text52.Text End If 保存方案到VB.doc 的代码如下Private Sub Command2_Click()If Label60.Caption ThenIf 第四页.Option1 = True Then L = A A楞型的代号If 第四页.Option2 = True Then L = B B楞型的代号If 第四页.Option3 = True Then L = C C楞型的代号Else: L = End IfIf Label63.Caption ThenIf 第四页.Option5 = True Then M = AB Ab楞型的代号If 第四页.Option6 = True Then M = AC Ac楞型的代号If 第四页.Option7 = True Then M = BC bc楞型的代号Else: M = End If If 第四页.Option8 = True Then X = 一级 If 第四页.Option9 = True Then X = 二级 If 第四页.Option10 = True Then X = 三级 If 第四页.Option11 = True Then X = 四级 Open (app.Path&VB.Doc) For Output As #1Print #1, 第三页.Label20.Caption & Chr(10) & 您选择的楞型是： & L & & M & Chr(10) & 您选择安全系数： & X & Chr(10) & Chr(10); 堆码高度（cm） & 第四页.Text7.Text & Chr(10) & Chr(10) & 结果单瓦楞纸箱长(mm) 宽(mm) 高(mm) 为： & Label60.Caption & & Label61.Caption & & Label62.Caption & & Chr(10) & Chr(10) & 结果双瓦楞纸箱长(mm) 宽(mm) 高(mm) 为： & Label63.Caption; & Label64.Caption; & Label65.CaptionClose#1 EndSub 2.3制作系统界面7添加窗体，名称改为第七页，添加“适用范围 内销运输 0201 瓦楞纸箱 （瓦楞纸板材料含水量很小）”“参考文献：包装结构设计（第二版中国轻工出版社）”“Visual Basic 程序设计教程（上海交通大学出版社）”“Visual Basic 程序设计教程习题及习题解答（第二版电子工业出版社）”“包装材料学（吉林大学出版社）”五个标签.添加“返回继续使用”“上一步”“退出”三个命令按钮.添加“谢谢使用”标签. 2.4 最后是查看保存到当前文件夹的vb.doc，根据以上方案，那我们将得到是的一下的一些数据. 2.5 页面链接右键单击第一页的“进入”命令，选择查看代码，选择command1，输入 第一页.Hide 第二页.Show即则单击第一页的“进入”按钮就会出现第二页的界面.同理，后面的页面也是这样链接的.2.6 音乐播放这一段程序我们是网上找的 是一个控件这是申明 Private Declare Function ShellExecute Lib shell32.dll Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long播放程序 Private Sub BOFANG_Click() WindowsMediaPlayer1.URL = App.Path & 0.mp3End Sub关闭程序 Private Sub tingzhi_Click(Index As Integer) WindowsMediaPlayer1.CloseEnd Sub2.7 查看帮助 链接 Private Sub CHAKANBANGZHU_Click()ShellExecute 0, open, (App.Path & 纸箱CAD帮助.chm), vbNullString, vbNullString, 1End Sub2.8 打印预览Private Sub dayinyulan_Click()If Dir(App.Path & vb.doc) = Then MsgBox 请先确定纸箱的设计方案 & Chr(10) & 是否已经保存, 0, 请注意 Else: ShellExecute Me.hwnd, open, (App.Path & vb.doc), vbNullString, vbNullString, 1End IfEnd Sub3 结 论本课题研究的是瓦楞纸箱包装CAD设计系统软件，采用面向对象技术的VB编程语言来进行计算机程序化实现，核心技术即设计流程程序化实现.由于瓦楞纸箱设计参数、公式、表格众多，设计计算繁杂.各模块间由于选择的设计方法、初始化条件的不同会以不同的先后顺序相互联系，开发瓦楞纸箱CAD系统的难度是相当大的.因此本课题只是选取其中的一小部分进行简单研究，即重点是专门针对小型瓦楞纸箱设计的智能化，只适用于单箱重量不超过20KG的包装纸箱.通过此次课题的研究，成功实现了小型瓦楞纸箱包装设计的计算机化.将瓦楞纸箱设计思想以计算机语言的形式表达出来，建立了友好的用户界面，实现箱型排列方式的自动选择；结构尺寸的计算；堆码、抗压强度的校核；操作使用便捷，提高设计效率，节省时间