包装纸箱CAD系统设计说明书文档格式.docx

1、7.课程设计分工参考文献21附录：VB源程序221 绪 论商品是人们生活中必不可少的东西，随着人们生活水平的不断提高，以及对各种事物的要求也越来越高，随之对商品的包装也就有了越来越高的追求.在各种商品包装容器中，瓦楞纸箱的应用占首位，设计精良的纸箱能帮助产品的运输、流通发挥优势作用.随着科学技术的迅猛发展，产品造型日趋发杂，产品包装的设计也日益受到人们的重视，然而利用传统的设计方法，设计周期长、人力消耗多、质量无法满足市场要求.因此，为了适应现代工业的发展，缩短产品包装的周期，提高产品在市场上的竞争力、满足自动化包装等的要求，人们便将高速发展的计算机技术应用到了包装行业的纸箱设计中来，各类包装

2、纸箱CAD软件应运而生.瓦楞纸箱作为使用最为广泛的包装容器之一，有着许许多多的优点.首先它价格较低；具有一定的刚度和强度，又有良好的弹性和韧性，对内装物有良好保护作用.其次，相对于其它包装容器质量较轻，运输费用相对较少；最后，瓦楞纸箱可回收再利用，作为废弃物，其处理方法也非常容易，不产生污染.因此，我们设计了瓦楞纸箱CAD系统，以便于瓦楞纸箱的自动化包装.由于水平所限，我们设计的系统还有一些缺陷.因为是初次使用VB，希望各位能指出更多缺陷或错误，或提出好的建议.1.1瓦楞纸包装在包装工业中的地位及现状在当今纸包装制品中，瓦楞纸包装应用最为广泛，它可以制成瓦楞纸箱、瓦楞纸盒、瓦楞纸板缓冲结构、瓦

3、楞纸板托盘、瓦楞纸板展示台架等等.瓦楞纸具有一下特点：（l）重量轻，结构性能好（2）对商品保护性能好（3）运输费用低（4）易于变更箱型尺寸，包装适应性强（5）包装作业易实现自动化（6）原料成本低，废箱易于回收1.2 瓦楞纸箱产品设计现状CAD（Computer Aided Design）即计算机辅助设计被广泛应用与制造业以及工程设计等各个领域.将CAD技术运用到纸箱包装行业会大大缩短瓦楞纸箱产品的设计周期，提高设计质量.我国计算机技术在包装行业中起步较晚，和发达国家差距较大，国内部分纸盒制造厂商人采用传统的手工设计和加工工艺，很难满足现代工业对纸盒包装的要求.随着生产水平的提高及对外贸易的发展

4、，人们对纸盒的质量也提出了更高的要求.因此，在我国包装业，引入CAD/CAM技术，以实现纸盒包装设计/制造现代化尤为重要。1.3 课题研究的内容和意义通过实践调查和理论分析本课题研究的瓦楞纸箱CAD软件系统具有实用和推广的应用价值，尤其是针对中小型生产型企业.本课题的研究，主要就是针对中小型瓦楞纸箱包装系统（单箱重量不超过20KG）而言。通过对包括箱体的基本要素及尺寸、盒型、形状、箱体强度， 材料成本及优化设计等问题的研究，期望能够把每个问题进行程序化实现来开发一套瓦楞纸箱CAD系统，代替纯手工设计步骤，实现从箱型结构选择设计、纸箱材料选择、纸箱尺寸设计、纸箱强度计算等计算机辅助技术，以提高企

5、业的经济效益，推进我国包装工业现代化、标准化、国际化。2 主要任务 采用VB制作针对0201型瓦楞纸箱设计的软件。 通过制作瓦楞纸箱的CAD软件，将所学的包装计算机辅助设计的理论知识运用于实践，学习巩固包装结构设计知识，并且锻炼熟练运用编程软件的能力。通过VB设计合理方便的软件，能够针对性的解决一些问题，起到计算，设计，估算各项性能的功能。同时，更为了解CAD在纸箱包装的设计，运输，堆码等方面的应用。3 瓦楞纸箱包装基本理论3.1瓦楞纸板的结构和原料瓦楞纸板是制造各种瓦楞纸板箱的基材，它是由箱板纸和瓦楞芯纸粘合而成的板状物。箱板纸用于瓦楞纸板的内、外两面，称为里纸或面纸。瓦楞芯纸是一种有规则的

6、波纹形纸。3.2瓦楞纸箱的基本箱型： 02型瓦楞纸箱（开槽箱） 03型瓦楞纸箱（复合箱） 05型瓦楞纸箱（折叠箱） 06型瓦楞纸箱（滑盖箱） 07型瓦楞纸箱（固定箱） 08型瓦楞纸箱（自动箱） 09内附件3.3瓦楞纸板：瓦楞层数：层数应用单瓦楞（三层板）包装较轻的产品双瓦楞（五层板）包装重量较大的易损产品三瓦楞（七层板）包装超重型产品楞型： 楞型特点A型（大瓦楞）高度和间距最大，柔软富有弹性，缓冲性能好多用于运输包装装较轻物品。如：塑料、玩具B型（小瓦楞）平压强度高，瓦楞较密，印刷效果好，易裁切加工适合包装较硬的产品C型（中瓦楞）有较好的堆码高度和适中的挺度实际应用较少E型（微瓦楞）多用于销售

7、包装瓦楞的形状：瓦楞的形状优点缺点U型柔软富有弹性，适合长期负载粘合剂用量较大V型瓦楞比较坚硬，强度较高，粘合剂用量较少超出弹性范围即被压溃，适合短期负载UV型我国规定的瓦楞形状，弹性和加工性能优于V形，平压强度和用料由于U型 4 设计思想设计框图5 设计举例说明5.1 开始界面点击开始进入菜单界面，运行程序，点击退出将退出此程序Private Sub Image1_Click（）Form5.Hide form0.ShowEnd SubPrivate Sub Image2_Click（） Unload Me5.2 菜单界面菜单界面主要包含1）文件新建将数据清零生成新的文件保存为word文档将程

8、序里的数据导入到一个word文档中并保存退出退出程序2）编辑输入商品信息确定包装要素3）帮助版本信息使用指南4）设计结果输出输出计算结果输出设计图样5.3 输入商品信息界面Public L0 As DoublePublic B0 As DoublePublic H0 As DoublePublic G0 As DoublePrivate Sub Command1_Click（）If Text1.Text And Text2.Text And Text3.Text And Text4.Text 2500 ThenForm6.ShowPrivate Sub Command2_Click（）Priv

9、ate Sub Text1_Change（）L0 = Val（Text1.Text）Private Sub Text2_Change（）B0 = Val（Text2.Text）Private Sub Text3_Change（）H0 = Val（Text3.Text）Private Sub Text4_Change（）G0 = Val（Text4.Text）5.4 确定包装要素界面Public H As DoubleForm2.Hide And （Option1 = True Or Option2 = True Or Option3 = True Or Option4 = True Or Op

10、tion5 = True Or Option6 = True） And （Option7 = True Or Option8 = True Or Option9 = True） ThenForm9.ShowPrivate Sub Image3_Click（）Form1.ShowH = Val（Text1.Text）5.5 输出设计结果界面计算结果纸箱内尺寸计算纸箱制造尺寸纸箱外尺寸堆码强度Ps Ps=9.81 * K * M *（Nmax -1） Ps载荷 ，N K 载荷系数，于选择安全系数中给出 M 单件包装总重量 为 单件数 * 单件重 Nmax 最大堆码层数.为int（堆码高度/瓦楞箱高

11、） 堆码高度 为手动选择条件中给出 堆码强度PdPd =1.858 10-2 Pm （ t Z ）0.5 Pd 为纸箱设计抗压强度, N t 为瓦楞纸板厚度, mm Z 为纸箱周边长, cm ，等于（2*（纸箱长+纸箱宽） （Makee简易公式（详见包装结构设计（中国轻工出版社）P126）Pm 为瓦楞纸板边压强度, N/m.因为我们的纸箱主要用于内销运输，内装物最大重量小于20Kg,因此选择第二类纸板 单瓦楞S-2.3，Pm=980N/m;双瓦楞D-2.2,Pm=980N/m.（详见包装结构设计（中国轻工出版社） 设计图样5.6 版本信息与使用指南6小结：“包装计算机辅助设计就是研究运用计算机

12、技术进行工程和产品包装设计与分析的理论和方法。”对于这一段关于包装CAD概念的定义在这次的课程设计中得到了充分的诠释。在学习了包装计算机辅助设计之后，我对于计算机在包装设计中应用的理论知识有了一定的了解，然而正是通过本次包装计算机辅助设计课程设计，才让我作到理论联系实际，将学到的理论知识应用到包装专业的设计中来。这次软件设计使用的平台是Visual Basic 6.0，相对于Visual C+来说，这是一个比较容易上手的可视化编程软件。在这次软件的制作过程中，我自学了VB的使用方法，掌握了它的基本操作，并且在老师的指导下，独立完成了软件的设计工作。正是通过制作瓦楞纸箱的CAD软件设计与制作，我

13、将在学校、课堂中所学的包装计算机辅助设计的原理及其理论知识运用到实际的操作与运用中去。与此同时，在实际设计制作过程中，加深了我对瓦楞纸箱的基本结构和基本设计基本方法的理解，巩固并且衍生了所学计算机辅助设计（CAD）的基础知识，内容包括CAD的基本概念、计算机图形学的基础理论及Auto CAD绘图软件的使用，此外还有几何造型、数据结构与数据库、常用的优化设计方法、CAD技术在包装领域的应用等。在这次设计过程中，并没有用到VB的数据库功能。这是基于两方面原因：首先，由于时间的限制，我并没有在自学过程中完全掌握数据库的建立、调用、应用、修改与维护，所以不敢贸然使用；其次，这次设计的课题，牵涉的数据表

14、格并不庞大，只须用结构体类型的数据，就可以快速完成这项工作，调用也很方便。这也许是这次设计中的不足吧。还有就是将图样导入到word文档保存这一功能的实现存在较大问题。并且我们的软件仅仅只是一个雏形还有许多不完善的地方。虽然在那些专业人士看来，我们这次的设计显得有些拙劣，有些程序缺乏对细节的仔细推敲和对在流通过程中可能遇到的情况的周密考虑，但是我们更应该看到这次课程设计所给于我们的很多东西，不仅仅是实践中点点滴滴的经验，还有面对那些看似不可逾越困难时内心所激发起的斗志，还有在现代社会企业中十分讲求的团队精神，当然同时还有在未来的工作中不可或缺的独立思考和研究的能力。时代在不断发展，社会在不断进步

15、，我不想说我们肩负着振兴中国包装业的重大使命，毕竟一个行业的进步，繁荣需要靠一代人甚至几代人的共同努力，同时也不仅仅局限于一个行业，更重要的是社会的重视和支持，我只想通过这次的课程设计更加明确自己的前进的方向和奋斗的目标。从而能对今后的学习起到积极作用，我想应该这就足够了！7课程设计分工：方聪聪 主要程序代码编写 部分窗体外观设计沈姚佳 部分程序代码编写 主要窗体外观设计 说明书编写参考文献：书名出版社运输包装印刷工业出版社包装计算机辅助设计Visual Basic 6.0 中文版提高与应用电子工业出版社Visual Basic 6.0 面向对象与可视化程序设计清华大学出版社包装结构设计中国轻

16、工业出版社VB源程序开始界面菜单界面Private Sub Form_Load（） Me.Left = GetSetting（App.Title, Settings, MainLeft, 1000） Me.Top = GetSetting（App.Title, MainTop Me.Width = GetSetting（App.Title, MainWidth, 6500） Me.Height = GetSetting（App.Title, MainHeightPrivate Sub Form_Unload（Cancel As Integer） Dim i As Integer close a

17、ll sub forms For i = Forms.Count - 1 To 1 Step -1 Unload Forms（i） Next If Me.WindowState vbMinimized Then SaveSetting App.Title, , Me.Left, Me.Top, Me.Width, Me.Height End IfPrivate Sub tbToolBar_ButtonClick（ByVal Button As MSComCtlLib.Button） On Error Resume Next Select Case Button.Key Case 新建应做:添加

18、 新建 按钮代码。 MsgBox 打开打开保存保存打印打印剪切剪切复制复制粘贴粘贴粗体粗体斜体斜体下划线下划线左对齐左对齐置中置中右对齐右对齐 End SelectPrivate Sub mnu输出设计结果输出设计图样_Click（） form0.Hide Form4.ShowPrivate Sub mnu输出设计结果输出计算结果_Click（） Form3.ShowPrivate Sub mnuHelp使用指南_Click（） Form15.Show form0.Hide Private Sub mnuHelp版本信息_Click（） Form14.ShowPrivate Sub mnuEd

19、it确定包装要素_Click（） Form1.ShowPrivate Sub mnuEdit输入产品信息_Click（） form00.ShowPrivate Sub mnuFile保存为word文档_Click（） Dim myDoc, WordApp As ObjectSet WordApp = CreateObject（Word.ApplicationSet myDoc = WordApp.Documents.Add（）myDoc.SaveAs E:瓦楞纸箱CAD设计.docmyDoc.CloseSet ap = NothingDim L As StringDim m As String

20、Dim X As StringL = m = X = If Form2.Option1 = True ThenAA楞型的代号If Form2.Option2 = True ThenBB楞型的代号If Form2.Option3 = True ThenCC楞型的代号If Form2.Option4 = True ThenABAb楞型的代号If Form2.Option5 = True ThenACAc楞型的代号If Form2.Option6 = True ThenBCbc楞型的代号 If Form2.Option7 = True Then X = 好 If Form2.Option8 = Tr

21、ue Then一般 If Form2.Option9 = True Then差Open For Output As #1Print #1, 您输入的单件产品尺寸长（mm） 宽（mm）高（mm）为： & form00.Text1.Text & form00.Text2.Text & form00.Text3.Text & Chr（10） &您输入的单件产品重量（N）为： form00.Text4.Text &纸箱型号为：0201您选择的楞型是： L & m & Chr（10）;您选择安全系数： X &堆码高度（mm）： Form2.Text1.Text &结果单瓦楞纸箱设计外尺寸长（mm） 宽（mm） 高（mm） 为： Form3.Text1.Text & Form3.Text2.Text & Form3.Text3.Text &结果双瓦楞纸箱设计外尺寸长（mm） 宽（mm） 高（mm） 为： Form3.Text14.Text & Form3.Text15.Text &Print #1, Chr（10） &结果单瓦楞纸箱设计制造尺寸长（mm） 宽（mm） 高（mm） 为： Form3.Text4.Text & Form3.Text5.Text & Form3.Text6.Te