产品包装纸箱CAD系统设计方案说明书.doc

包装CAD课程设计说明书-0201型瓦楞纸箱包装CAD学 院 轻工学院 专 业 包装工程 班 级 111班 学生姓名 沈姚佳 方聪聪 指导教师 胡桂林 完成日期 2018年 8 月31 日目录1.绪论 2 1.1瓦楞纸包装在包装工业中的地位及现状 1.2 瓦楞纸箱产品设计现状 1.3 课题研究的内容和意义2. 主要任务 43.瓦楞纸箱包装基本理论 43.1 瓦楞纸板的结构和原料 3.2 瓦楞纸箱的基本箱型 3.3 瓦楞纸板 瓦楞层数 楞型 瓦楞的形状4.设计思想设计框图45.设计举例说明75.1开始界面5.2菜单界面5.3输入商品信息界面5.4确定包装要素界面5.5输出设计结果界面5.6版本信息和使用指南6. 小结197. 课程设计分工19参考文献21附录：VB源程序221 绪 论商品是人们生活中必不可少的东西，随着人们生活水平的不断提高，以及对各种事物的要求也越来越高，随之对商品的包装也就有了越来越高的追求.在各种商品包装容器中，瓦楞纸箱的应用占首位，设计精良的纸箱能帮助产品的运输、流通发挥优势作用.随着科学技术的迅猛发展，产品造型日趋发杂，产品包装的设计也日益受到人们的重视，然而利用传统的设计方法，设计周期长、人力消耗多、质量无法满足市场要求.因此，为了适应现代工业的发展，缩短产品包装的周期，提高产品在市场上的竞争力、满足自动化包装等的要求，人们便将高速发展的计算机技术应用到了包装行业的纸箱设计中来，各类包装纸箱CAD软件应运而生.瓦楞纸箱作为使用最为广泛的包装容器之一，有着许许多多的优点.首先它价格较低；具有一定的刚度和强度，又有良好的弹性和韧性，对内装物有良好保护作用.其次，相对于其它包装容器质量较轻，运输费用相对较少；最后，瓦楞纸箱可回收再利用，作为废弃物，其处理方法也非常容易，不产生污染.因此，我们设计了瓦楞纸箱CAD系统，以便于瓦楞纸箱的自动化包装.由于水平所限，我们设计的系统还有一些缺陷.因为是初次使用VB，希望各位能指出更多缺陷或错误，或提出好的建议.1.1瓦楞纸包装在包装工业中的地位及现状在当今纸包装制品中，瓦楞纸包装应用最为广泛，它可以制成瓦楞纸箱、瓦楞纸盒、瓦楞纸板缓冲结构、瓦楞纸板托盘、瓦楞纸板展示台架等等.瓦楞纸具有一下特点：(l重量轻，结构性能好(2对商品保护性能好(3运输费用低(4易于变更箱型尺寸，包装适应性强(5包装作业易实现自动化(6原料成本低，废箱易于回收1.2 瓦楞纸箱产品设计现状CAD(Computer Aided Design即计算机辅助设计被广泛应用与制造业以及工程设计等各个领域.将CAD技术运用到纸箱包装行业会大大缩短瓦楞纸箱产品的设计周期，提高设计质量.我国计算机技术在包装行业中起步较晚，和发达国家差距较大，国内部分纸盒制造厂商人采用传统的手工设计和加工工艺，很难满足现代工业对纸盒包装的要求.随着生产水平的提高及对外贸易的发展，人们对纸盒的质量也提出了更高的要求.因此，在我国包装业，引入CAD/CAM技术，以实现纸盒包装设计/制造现代化尤为重要。1.3 课题研究的内容和意义通过实践调查和理论分析本课题研究的瓦楞纸箱CAD软件系统具有实用和推广的应用价值，尤其是针对中小型生产型企业.本课题的研究，主要就是针对中小型瓦楞纸箱包装系统单箱重量不超过20KG）而言。通过对包括箱体的基本要素及尺寸、盒型、形状、箱体强度， 材料成本及优化设计等问题的研究，期望能够把每个问题进行程序化实现来开发一套瓦楞纸箱CAD系统，代替纯手工设计步骤，实现从箱型结构选择设计、纸箱材料选择、纸箱尺寸设计、纸箱强度计算等计算机辅助技术，以提高企业的经济效益，推进我国包装工业现代化、标准化、国际化。2 主要任务采用VB制作针对0201型瓦楞纸箱设计的软件。通过制作瓦楞纸箱的CAD软件，将所学的包装计算机辅助设计的理论知识运用于实践，学习巩固包装结构设计知识，并且锻炼熟练运用编程软件的能力。通过VB设计合理方便的软件，能够针对性的解决一些问题，起到计算，设计，估算各项性能的功能。同时，更为了解CAD在纸箱包装的设计，运输，堆码等方面的应用。3 瓦楞纸箱包装基本理论3.1瓦楞纸板的结构和原料瓦楞纸板是制造各种瓦楞纸板箱的基材，它是由箱板纸和瓦楞芯纸粘合而成的板状物。箱板纸用于瓦楞纸板的内、外两面，称为里纸或面纸。瓦楞芯纸是一种有规则的波纹形纸。3.2瓦楞纸箱的基本箱型： 02型瓦楞纸箱开槽箱） 03型瓦楞纸箱复合箱） 05型瓦楞纸箱折叠箱） 06型瓦楞纸箱滑盖箱） 07型瓦楞纸箱固定箱） 08型瓦楞纸箱自动箱） 09内附件3.3瓦楞纸板：瓦楞层数：层数应用单瓦楞三层板）包装较轻的产品双瓦楞五层板）包装重量较大的易损产品三瓦楞七层板）包装超重型产品楞型： 楞型特点应用A型大瓦楞）高度和间距最大，柔软富有弹性，缓冲性能好多用于运输包装装较轻物品。如：塑料、玩具B型小瓦楞）平压强度高，瓦楞较密，印刷效果好，易裁切加工适合包装较硬的产品C型中瓦楞）有较好的堆码高度和适中的挺度实际应用较少E型微瓦楞）多用于销售包装瓦楞的形状：瓦楞的形状优点缺点U型柔软富有弹性，适合长期负载粘合剂用量较大V型瓦楞比较坚硬，强度较高，粘合剂用量较少超出弹性范围即被压溃，适合短期负载UV型我国规定的瓦楞形状，弹性和加工性能优于V形，平压强度和用料由于U型4 设计思想设计框图 开始确定纸箱型号为0201选择排列方式输入整箱数量确定包装要素输入产品信息长mm）宽mm）高mm）单件商品质量Form5.Hide form0.ShowEnd SubPrivate Sub Image2_Click( Unload MeEnd Sub5.2 菜单界面菜单界面主要包含1） 文件新建将数据清零生成新的文件保存为word文档将程序里的数据导入到一个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 Thenform00.Hideform0.ShowElseForm7.ShowEnd IfIf L0 + H0 + B0 2500 ThenForm6.ShowEnd IfEnd SubPrivate Sub Command2_Click(form00.Hideform0.ShowEnd SubPrivate Sub Image1_Click(form00.Hideform0.ShowEnd SubPrivate Sub Image2_Click(If Text1.Text And Text2.Text And Text3.Text And Text4.Text Thenform00.Hideform0.ShowElseForm7.ShowEnd IfIf L0 + H0 + B0 2500 ThenForm6.ShowEnd IfEnd SubPrivate Sub Text1_Change(L0 = Val(Text1.TextEnd SubPrivate Sub Text2_Change(B0 = Val(Text2.TextEnd SubPrivate Sub Text3_Change(H0 = Val(Text3.TextEnd SubPrivate Sub Text4_Change(G0 = Val(Text4.TextEnd Sub5.4 确定包装要素界面Public H As DoublePrivate Sub Image1_Click(Form2.Hideform0.ShowEnd SubPrivate Sub Image2_Click(If Text1.Text And (Option1 = True Or Option2 = True Or Option3 = True Or Option4 = True Or Option5 = True Or Option6 = True And (Option7 = True Or Option8 = True Or Option9 = True ThenForm2.Hideform0.ShowElseForm9.ShowEnd IfEnd SubPrivate Sub Image3_Click(Form2.HideForm1.ShowEnd SubPrivate Sub Text1_Change(H = Val(Text1.TextEnd Sub5.5 输出设计结果界面计算结果L= L0+5mm；B= B0+5mm； H= H0+X0；当L0 +B0 +H0 =1500mm时，X0取5mm参见运输包装P151纸箱内尺寸计算L1= L+X 。 L2= L+X 。B1= B+X 。 B2= B+X 。H1= H+X 根据包装结构设计P166表5-6查出X外摇盖制造尺寸接头尺寸J 单瓦楞=40mm，双瓦楞=50mm纸箱制造尺寸L”=L+X；B”=B+X；H”=H+X；单瓦楞X=5mm；双瓦楞X=10mm纸箱外尺寸堆码强度PsPs=9.81 * K * M *(Nmax -1 Ps载荷 ，N K 载荷系数，于选择安全系数中给出 M 单件包装总重量 为 单件数 * 单件重 Nmax 最大堆码层数.为int(堆码高度/瓦楞箱高 堆码高度 为手动选择条件中给出 堆码强度PdPd =1.858 10-2 Pm ( t Z 0.5 Pd 为纸箱设计抗压强度, N t 为瓦楞纸板厚度, mm Z 为纸箱周边长, cm ，等于(2*(纸箱长+纸箱宽Makee简易公式(详见包装结构设计P126Pm 为瓦楞纸板边压强度, N/m.因为我们的纸箱主要用于内销运输，内装物最大重量小于20Kg,因此选择第二类纸板 单瓦楞S-2.3，Pm=980N/m。双瓦楞D-2.2,Pm=980N/m.(详见包装结构设计 设计图样5.6 版本信息与使用指南6小结：“包装计算机辅助设计就是研究运用计算机技术进行工程和产品包装设计与分析的理论和方法。”对于这一段关于包装CAD概念的定义在这次的课程设计中得到了充分的诠释。在学习了包装计算机辅助设计之后，我对于计算机在包装设计中应用的理论知识有了一定的了解，然而正是通过本次包装计算机辅助设计课程设计，才让我作到理论联系实际，将学到的理论知识应用到包装专业的设计中来。这次软件设计使用的平台是Visual Basic 6.0，相对于Visual C+来说，这是一个比较容易上手的可视化编程软件。在这次软件的制作过程中，我自学了VB的使用方法，掌握了它的基本操作，并且在老师的指导下，独立完成了软件的设计工作。正是通过制作瓦楞纸箱的CAD软件设计与制作，我将在学校、课堂中所学的包装计算机辅助设计的原理及其理论知识运用到实际的操作与运用中去。与此同时，在实际设计制作过程中，加深了我对瓦楞纸箱的基本结构和基本设计基本方法的理解，巩固并且衍生了所学计算机辅助设计Form5.Hide form0.ShowEnd SubPrivate Sub Image2_Click( Unload MeEnd Sub菜单界面Private Sub Form_Load( Me.Left = GetSetting(App.Title, Settings, MainLeft, 1000 Me.Top = GetSetting(App.Title, Settings, MainTop, 1000 Me.Width = GetSetting(App.Title, Settings, MainWidth, 6500 Me.Height = GetSetting(App.Title, Settings, MainHeight, 6500End SubPrivate Sub Form_Unload(Cancel As Integer Dim i As Integer close all sub forms For i = Forms.Count - 1 To 1 Step -1 Unload Forms(i Next If Me.WindowState vbMinimized Then SaveSetting App.Title, Settings, MainLeft, Me.Left SaveSetting App.Title, Settings, MainTop, Me.Top SaveSetting App.Title, Settings, MainWidth, Me.Width SaveSetting App.Title, Settings, MainHeight, Me.Height End IfEnd SubPrivate Sub tbToolBar_ButtonClick(ByVal Button As MSComCtlLib.Button On Error Resume Next Select Case Button.Key Case 新建 应做:添加 新建 按钮代码。 MsgBox 添加 新建 按钮代码。 Case 打开 应做:添加 打开 按钮代码。 MsgBox 添加 打开 按钮代码。 Case 保存 应做:添加 保存 按钮代码。 MsgBox 添加 保存 按钮代码。 Case 打印 应做:添加 打印 按钮代码。 MsgBox 添加 打印 按钮代码。 Case 剪切 应做:添加 剪切 按钮代码。 MsgBox 添加 剪切 按钮代码。 Case 复制 应做:添加 复制 按钮代码。 MsgBox 添加 复制 按钮代码。 Case 粘贴 应做:添加 粘贴 按钮代码。 MsgBox 添加 粘贴 按钮代码。 Case 粗体 应做:添加 粗体 按钮代码。 MsgBox 添加 粗体 按钮代码。 Case 斜体 应做:添加 斜体 按钮代码。 MsgBox 添加 斜体 按钮代码。 Case 下划线 应做:添加 下划线 按钮代码。 MsgBox 添加 下划线 按钮代码。 Case 左对齐 应做:添加 左对齐 按钮代码。 MsgBox 添加 左对齐 按钮代码。 Case 置中 应做:添加 置中 按钮代码。 MsgBox 添加 置中 按钮代码。 Case 右对齐 应做:添加 右对齐 按钮代码。 MsgBox 添加 右对齐 按钮代码。 End SelectEnd SubPrivate Sub mnu输出设计结果输出设计图样_Click( form0.Hide Form4.ShowEnd SubPrivate Sub mnu输出设计结果输出计算结果_Click( form0.Hide Form3.ShowEnd SubPrivate Sub mnuHelp使用指南_Click( Form15.Show form0.Hide End SubPrivate Sub mnuHelp版本信息_Click( Form14.Show form0.Hide End SubPrivate Sub mnuEdit确定包装要素_Click( form0.Hide Form1.ShowEnd SubPrivate Sub mnuEdit输入产品信息_Click( form0.Hide form00.ShowEnd SubPrivate 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 StringDim X As StringL = m = X = If Form2.Option1 = True ThenL = A A楞型的代号End IfIf Form2.Option2 = True ThenL = B B楞型的代号End IfIf Form2.Option3 = True ThenL = C C楞型的代号End IfIf Form2.Option4 = True Thenm = AB Ab楞型的代号End IfIf Form2.Option5 = True Thenm = AC Ac楞型的代号End IfIf Form2.Option6 = True Thenm = BC bc楞型的代号 End If If Form2.Option7 = True Then X = 好 End If If Form2.Option8 = True Then X = 一般 End If If Form2.Option9 = True Then X = 差 End IfOpen E:瓦楞纸箱CAD设计.doc For Output As #1Print #1, 您输入的单件产品尺寸长mm） 宽mm）高 & Chr(10 & 您输入的单件产品重量 & Chr(10 & 纸箱型号为：0201 & Chr(10 & Chr(10 & 您选择的楞型是： & L & & m & Chr(10 & Chr(10。 您选择安全系数： & X & Chr(10 & Chr(10。 堆码高度 & Chr(10 & 结果单瓦楞纸箱设计外尺寸长(mm 宽(mm 高(mm 为： & Form3.Text1.Text & & Form3.Text2.Text & & Form3.Text3.Text & & Chr(10 & Chr(10 & 结果双瓦楞纸箱设计外尺寸长(mm 宽(mm 高(mm 为： & Form3.Text14.Text & & Form3.Text15.Text & & Form3.Text15.Text & Print #1, Chr(10 & 结果单瓦楞纸箱设计制造尺寸长(mm 宽(mm 高(mm 为： & Form3.Text4.Text & & Form3.Text5.Text & & Form3.Text6.Text & & Chr(10 & Chr(10。 结果双瓦楞纸箱设计制外尺寸长(mm 宽(mm 高(mm 为： & Form3.Text17.Text & & Form3.Text18.Text & & Form3.Text19.Text & & Chr(10 & Chr(10。 结果单瓦楞纸箱设计内尺寸长(mm 宽(mm 高(mm 为： & Form3.Text7.Text & & Form3.Text8.Text & & Form3.Text9.Text & & Chr(10 & Chr(10。 结果双瓦楞纸箱设计内尺寸长(mm 宽(mm 高(mm 为： & Form3.Text10.Text & & Form3.Text11.Text & & Form3.Text12.Text & 。 单瓦楞纸箱堆码强度: & Form3.Text10.Text & & Chr(10 & Chr(10。 双瓦楞纸箱堆码强度 & Form3.Text11.Text & & Chr(10 & Chr(10。 单瓦楞纸箱强度 & Form3.Text12.Text & & Chr(10 & Chr(10。 双瓦楞纸箱强度 & Form3.Text13.Text & & Chr(10 & Chr(10Close #1End SubPrivate Sub mnuFileExit_Click( 卸载窗体 Unload MeEnd SubPrivate Sub mnuFileNew_Click( form00.Text1.Text = form00.Text2.Text = form00.Text3.Text = form00.Text4.Text = Form1.Text1.Text = Form1.Text2.Text = Form1.Text3.Text = Form1.Text4.Text = Form2.Text1.Text = Form3.Text1.Text = Form3.Text2.Text = Form3.Text3.Text = Form3.Text4.Text = Form3.Text5.Text = Form3.Text6.Text = Form3.Text7.Text = Form3.Text8.Text = Form3.Text9.Text = Form3.Text10.Text = Form3.Text11.Text = Form3.Text12.Text = Form3.Text13.Text = Form3.Text14.Text = Form3.Text15.Text = Form3.Text16.Text = Form3.Text17.Text = Form3.Text18.Text = Form3.Text19.Text = Form3.Text20.Text = Form3.Text21.Text = Form3.Text22.Text = Form2.Option1 = FalseForm2.Option2 = FalseForm2.Option3 = FalseForm2.Option4 = FalseForm2.Option5 = FalseForm2.Option6 = FalseForm2.Option7 = FalseForm2.Option8 = FalseForm2.Option9 = Falseform0.Text1.Visible = Trueform0.Text1 = 请点击编辑,输入商品信息,确定包装要素,即可输出设计结果End Sub输入商品信息界面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 Thenform00.Hideform0.ShowElseForm7.ShowEnd IfIf L0 + H0 + B0 2500 ThenForm6.ShowEnd IfEnd SubPrivate Sub Command2_Click(form00.Hideform0.ShowEnd SubPrivate Sub Image1_Click(form00.Hideform0.ShowEnd SubPrivate Sub Image2_Click(If Text1.Text And Text2.Text And Text3.Text And Text4.Text Thenform00.Hideform0.ShowElseForm7.ShowEnd IfIf L0 + H0 + B0 2500 ThenForm6.ShowEnd IfEnd SubPrivate Sub Text1_Change(L0 = Val(Text1.TextEnd SubPrivate Sub Text2_Change(B0 = Val(Text2.TextEnd SubPrivate Sub Text3_Change(H0 = Val(Text3.TextEnd SubPrivate Sub Text4_Change(G0 = Val(Text4.TextEnd Sub确定包装要素step1界面Public MUN As DoublePrivate Sub Combo1_Change(Dim K As IntegerEnd SubPrivate Sub Command1_Click(If Text1.Text And Text2.Text And Text3.Text And Text4.Text ThenForm1.HideForm2.ShowElseForm8.ShowEnd IfStep2界面Public H As DoublePrivate Sub Image1_Click(Form2.Hideform0.ShowEnd SubPrivate Sub Image2_Click(If Text1.Text And (Option1 = True Or Option2 = True Or Option3 = True Or Option4 = True Or Option5 = True Or Option6 = True And (Option7 = True Or Option8 = True Or Option9 = True ThenForm2.Hideform0.ShowElseForm9.ShowEnd IfEnd SubPrivate Sub Image3_Click(Form2.HideForm1.ShowEnd SubPrivate Sub Text1_Change(H = Val(Text1.TextEnd Sub计算结果输入界面Private Sub Command1_Click(Dim B1 As DoubleDim H1 As DoubleDim L2 As DoubleDim B2 As DoubleDim H2 As DoubleDim L3 As DoubleDim B3 As DoubleDim H3 As DoubleDim L21 As DoubleDim B21 As DoubleDim H21 As DoubleDim L31 As DoubleDim B31 As DoubleDim H31 As DoubleDim X As DoubleDim Pd1 As DoubleDim Pd2 As DoubleDim T As DoubleDim T1 As DoubleDim m As DoubleDim PW1 As DoubleDim PW2 As DoubleDim A As DoubleDim B As DoubleL1 = form00.L0 + 5B1 = form00.B0 + 5If form00.L0 + form00.B0 + form00.H0 * 6370 * (T * 2 * (L3 + B3 / 10 0.5, 0#Pd2 = Format(1.858 * 10 (-2 * 7350 * (T1 * 2 * (L31 + B31 / 10 0.5, 0#A = 1B = 1If Pd1 = 0 ThenA = 0End IfIf Pd2 = 0 ThenB = 0End IfPW1 = Format(A * (Form2.H - H3 / Form2.H * form00.G0 * Form1.MUN * 1