包裝074紙箱CAD系統(tǒng)計算說明書

1、包裝 CAD課程設(shè)計說明書題目 包裝 CAD課程設(shè)計學(xué)院輕工學(xué)院專業(yè)包裝工程班級074班學(xué)號107141113學(xué)生躍同組同學(xué)白貴福王國鋼譚波指導(dǎo)教師金國斌胡完成日期2009年9月17日.瓦楞紙箱包裝 CAD軟件研制學(xué)生：躍指導(dǎo)教師：金國斌胡（科技學(xué)院輕工學(xué)院）1緒論商品是人們生活中必不可少的東西，隨著人們生活水平的不斷提高，以及對各種事物的要求也越來越高 ，隨之對商品的包裝也就有了越來越高的追求. 在各種商品包裝容器中，瓦楞紙箱的應(yīng)用占首位，設(shè)計精良的紙箱能幫助產(chǎn)品的運輸、流通發(fā)揮優(yōu)勢作用. 隨著科學(xué)技術(shù)的迅猛發(fā)展，產(chǎn)品造型日趨發(fā)雜，產(chǎn)品包裝的設(shè)計也日益受到人們的重視，然而利用傳統(tǒng)的設(shè)計方法，

2、設(shè)計周期長、人力消耗多、質(zhì)量無法滿足市場要求. 因此，為了適應(yīng)現(xiàn)代工業(yè)的發(fā)展，縮短產(chǎn)品包裝的周期，提高產(chǎn)品在市場上的競爭力、滿足自動化包裝等的要求，人們便將高速發(fā)展的計算機(jī)技術(shù)應(yīng)用到了包裝行業(yè)的紙箱設(shè)計中來，各類包裝紙箱 CAD軟件應(yīng)運而生 .瓦楞紙箱作為使用最為廣泛的包裝容器之一，有著許許多多的優(yōu)點. 首先它價格較低；具有一定的剛度和強度，又有良好的彈性和韌性，對裝物有良好保護(hù)作用. 其次，相對于其它包裝容器質(zhì)量較輕，運輸費用相對較少；最后，瓦楞紙箱可回收再利用，作為廢棄物，其處理方法也非常容易，不產(chǎn)生污染. 因此，我們設(shè)計了瓦楞紙箱CAD系統(tǒng)，以便于瓦楞紙箱的自動化包裝. 由于水平所限，我

3、們設(shè)計的系統(tǒng)還有一些缺陷. 因為是初次使用 VB，希望各位能指出更多缺陷或錯誤，或提出好的建議.1.1瓦楞紙包裝在包裝工業(yè)中的地位及現(xiàn)狀在當(dāng)今紙包裝制品中，瓦楞紙包裝應(yīng)用最為廣泛，它可以制成瓦楞紙箱、瓦楞紙盒、瓦楞紙板緩沖結(jié)構(gòu)、瓦楞紙板托盤、瓦楞紙板展示臺架等等. 瓦楞紙具有一下特點：(l) 重量輕，結(jié)構(gòu)性能好(2) 對商品保護(hù)性能好(3) 運輸費用低(4) 易于變更箱型尺寸，包裝適應(yīng)性強(5) 包裝作業(yè)易實現(xiàn)自動化(6) 原料成本低，廢箱易于回收1.2瓦楞紙箱產(chǎn)品設(shè)計現(xiàn)狀CAD(Computer Aided Design) 即計算機(jī)輔助設(shè)計被廣泛應(yīng)用與制造業(yè)以及工程設(shè)計等各個領(lǐng)域 . 將 C

4、AD技術(shù)運用到紙箱包裝行業(yè)會大大縮短瓦楞紙箱產(chǎn)品的設(shè)計周期，提高設(shè)計質(zhì)量 . 我國計算機(jī)技術(shù)在包裝行業(yè)中起步較晚，和發(fā)達(dá)國家差距較大，國部分紙盒制造廠商人采用傳統(tǒng)的手工設(shè)計和加工工藝，很難滿足現(xiàn)代工業(yè)對紙盒包裝的要求. 隨著生產(chǎn)水平的提高及對外貿(mào)易的發(fā)展，人們對紙盒的質(zhì)量也提出了更高的要求. 因此，在我國包裝業(yè)，引入 CAD/CAM技術(shù)，以實現(xiàn)紙盒包裝設(shè)計/ 制造現(xiàn)代化尤為重要 .1.3 CAD系統(tǒng)軟件的發(fā)展趨勢近些年來，國許多企業(yè)在進(jìn)行“甩圖板”工程中嘗到了甜頭，希望CAD技術(shù)能在生產(chǎn)中發(fā)揮更大的作用，而進(jìn)一步的需求又促進(jìn)了CAD技術(shù)的發(fā)展 .今后 CAD技術(shù)的發(fā)展將更加迅速，它將向以下幾個

5、方向發(fā)展:（1）規(guī)化和標(biāo)準(zhǔn)化（2）集成化 .（3）智能化 .（4）可視化 .（5）更廣泛地使用多媒體技術(shù).（6）網(wǎng)絡(luò)化 .（7）Windows化1.4課題研究的容和意義通過實踐調(diào)查和理論分析本課題研究的瓦楞紙箱CAD軟件系統(tǒng)具有實用和推廣的應(yīng)用價值，尤其是針對中小型生產(chǎn)型企業(yè).本課題的研究，主要就是針對中小型瓦楞紙箱包裝系統(tǒng)（單箱重量不超過20KG）而言 . 通過對包括箱體的基本要素及尺寸、盒型、形狀、箱體強度，材料成本及優(yōu)化設(shè)計等問題的研究，期望能夠把每個問題進(jìn)行程序化實現(xiàn)來開發(fā)一套瓦楞紙箱 CAD系統(tǒng)，代替純手工設(shè)計步驟，實現(xiàn)從箱型結(jié)構(gòu)選擇設(shè)計、紙箱材料選擇、紙箱尺寸設(shè)計、紙箱強度計算等計

6、算機(jī)輔助技術(shù)，以提高企業(yè)的經(jīng)濟(jì)效益，推進(jìn)我國包裝工業(yè)現(xiàn)代化、標(biāo)準(zhǔn)化、國際化 .2 瓦楞紙箱設(shè)計我在這個小組里主要負(fù)責(zé)的是抗壓強度Pd公式的編程以及最后結(jié)果輸出的編程 以及音樂播放和停止以及查看幫助的設(shè)計2.1制作系統(tǒng)界面 5添加窗體，名稱改為第五頁. 添加一個“預(yù)設(shè)計紙箱尺寸”標(biāo)簽，再在這個標(biāo)簽里面豎直方向添加“長度（ mm）”“寬度（ mm）”“高度（ mm）”三個標(biāo)簽，在水平方向上添加“單瓦楞”、雙瓦楞”標(biāo)簽. 在添加 6個空白文本框，使其組成表哥的形式. 再添加一個“計算”命令按鈕 . 在下面添加一個 “預(yù)設(shè)計紙箱的堆碼強度”標(biāo)簽，再在里面添加“ Ps（ N）”標(biāo)簽和 2個空白文本框，再

7、添加一個“計算”命令按鈕 . 再添加一個“計算”命令按鈕 .在下面添加一個“預(yù)設(shè)計紙箱的抗壓強度”標(biāo)簽，再在里面添加“Pd（N）”標(biāo)簽和2個空白文本框，再添加一個“計算”命令按鈕. 最后在添加“輸出結(jié)果”“上一步”“退出”三個命令按鈕.Ps=9.81 * K * M *(Nmax -1)Ps載荷，NK 載荷系數(shù)，于選擇安全系數(shù)中給出M 單件包裝總重量 為 單件數(shù) * 單件重Nmax 最大堆碼層數(shù) . 為int(堆碼高度 / 瓦楞箱高 )堆碼高度為手動選擇條件中給出計算預(yù)計紙箱抗壓強度 Pd Makee簡易公式 ( 詳見包裝結(jié)構(gòu)設(shè)計 （中國輕工 )P126)-20.5P d =1.858 

8、15;10P m ( t Z ).Pd為紙箱設(shè)計抗壓強度, N t為瓦楞紙板厚度 , mmZ為紙箱周邊長 , cm 等于 (2*( 紙箱長 +紙箱寬 )P m 為瓦楞紙板邊壓強度 , N/m. 因為我們的紙箱主要用于銷運輸，裝物最大重量小于 20Kg,因此選擇第二類紙板單瓦楞 S-2.3 ，Pm=980N/m;雙瓦楞D-2.2,Pm=980N/m.( 詳見包裝結(jié)構(gòu)設(shè)計（中國輕工 )P135瓦楞紙板表（GB6543-86）&瓦楞紙板技術(shù)指標(biāo)（ GB6544-86）)計算完成，進(jìn)入校核計算完成，進(jìn)入校核 . 若 Ps>Pd,則選擇的楞型不合理，或者堆碼高度過高，就需要返回重新選擇；若

9、 Ps<=Pd,則設(shè)計合理，可以進(jìn)入下一個輸出結(jié)果階段.其中抗壓強度編程如下Private Sub Command12_Click(Index As Integer)Label58.Caption = Int(1.858 * 10 (-2)* 6370* (Val(第四頁 .Text41.Text)* 2 * (Val(Text57.Text + Text59.Text) / 10) 0.5) ' Pd =1.858×10-2 Pm ( tZ )0.5Label59.Caption = Int(1.858 * 10 (-2)* 7350* (Val(第四頁 .Text4

10、2.Text)* 2 * (Val(Text58.Text + Text60.Text) / 10) 0.5) Text55.Text = Label58.Caption Text56.Text = Label59.CaptionEnd Sub.2.2制作系統(tǒng)界面 6添加窗體，名稱改為第六頁. 添加一個“設(shè)計箱型示意圖”標(biāo)簽，后面添加一個顯示按鈕，下面添加一個空白文本框. 在水平方向上添加“長度L”“寬度 B”“高度 H”三個標(biāo)簽，豎直方向上添加“單瓦楞”、雙瓦楞”標(biāo)簽. 以及 6個空白文本框，使他們排列成表格的形式 . 然后再添加“新方案”“上一步”“下一步”“退出”四個命令按鈕.其中顯示按

11、鈕的 編程代碼如下Private Sub Command16_Click(Index As Integer)Picture1.Picture = LoadPicture(App.Path + "123.bmp")If Val(第五頁 .Text55) > Val(第五頁 .Text53) Then.Label60.Caption =第五頁 .Text57.TextLabel61.Caption =第五頁 .Text59.TextLabel62.Caption =第五頁 .Text51.TextEnd IfIf Val(第五頁 .Text56) > Val(第五頁

12、 .Text54) ThenLabel63.Caption =第五頁 .Text58.TextLabel64.Caption =第五頁 .Text60.TextLabel65.Caption =第五頁 .Text52.TextEnd If保存方案到 VB.doc的代碼如下Private Sub Command2_Click()If Label60.Caption <> " " ThenIf第四頁 .Option1 = True Then L = "A" 'A楞型的代號If第四頁 .Option2 = True Then L = &qu

13、ot;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 =

14、"BC" 'bc楞型的代號Else: M = " ".End IfIf第四頁 .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 #1Pr

15、int #1,第三頁 .Label20.Caption & Chr(10) & "您選擇的楞型是： " & L & " "& M & Chr(10) & "您選擇安全系數(shù)： " & X & Chr(10) & Chr(10); "堆碼高度（ cm）" &第四頁 .Text7.Text &Chr(10)& Chr(10) &"結(jié)果單瓦楞紙箱長 (mm) 寬(mm) 高(mm) 為：" &

16、amp; Label60.Caption & "" & Label61.Caption & "" & Label62.Caption & ""& Chr(10)& Chr(10)& " 結(jié) 果 雙 瓦 楞 紙 箱 長 (mm) 寬 (mm) 高 (mm) 為 ："&Label63.Caption; "" & Label64.Caption; "" & Label65.Caption.Clo

17、se#1EndSub2.3制作系統(tǒng)界面 7添加窗體，名稱改為第七頁，添加“適用圍銷運輸 0201瓦楞紙箱（瓦楞紙板材料含水量很小）” “參考文獻(xiàn)： 包裝結(jié)構(gòu)設(shè)計 （第二版中國輕工）” “ Visual Basic程序設(shè)計教程（交通大學(xué)）”“Visual Basic程序設(shè)計教程習(xí)題及習(xí)題解答（第二版電子工業(yè)）”“包裝材料學(xué)（大學(xué)）”五個標(biāo)簽. 添加“返回繼續(xù)使用”“上一步”“退出”三個命令按鈕. 添加“使用”標(biāo)簽 .2.4最后是查看保存到當(dāng)前文件夾的vb.doc ，根據(jù)以上方案，那我們將得到是的一下的一些數(shù)據(jù).2.5頁面右鍵單擊第一頁的“進(jìn)入”命令，選擇查看代碼，選擇command1，輸入第一頁

18、 .Hide第二頁 .Show即.則單擊第一頁的“進(jìn)入”按鈕就會出現(xiàn)第二頁的界面. 同理，后面的頁面也是這樣的.2.6音樂播放這一段程序我們是網(wǎng)上找的是一個控件這是申明PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFileAs String,ByVallpParametersAs String,ByVallpDirectoryAs String,

19、ByValnShowCmd As Long) As Long播放程序Private Sub BOFANG_Click()WindowsMediaPlayer1.URL = App.Path & "0.mp3"End Sub關(guān)閉程序Private Sub tingzhi_Click(Index As Integer)WindowsMediaPlayer1.CloseEnd Sub2.7查看幫助Private Sub CHAKANBANGZHU_Click()紙箱 CAD幫助 .chm"),vbNullString,vbNullString, 1End Sub2.8打印預(yù)覽Private Sub dayinyulan_Click()If Dir(App.Path & "vb.doc") = "" Then.MsgBox " 請先確定紙箱的設(shè)計方案" & Chr(10) & "是否已經(jīng)保存 ", 0, "請注意 "Else: ShellExecute Me.hwnd, "open", (App.Path & "