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

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

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

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

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

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

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

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

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

9、 Ps<=Pd,則設(shè)計(jì)合理，可以進(jìn)入下一個(gè)輸出結(jié)果階段.其中抗壓強(qiáng)度編程如下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添加窗體，名稱改為第六頁. 添加一個(gè)“設(shè)計(jì)箱型示意圖”標(biāo)簽，后面添加一個(gè)顯示按鈕，下面添加一個(gè)空白文本框. 在水平方向上添加“長(zhǎng)度L”“寬度 B”“高度 H”三個(gè)標(biāo)簽，豎直方向上添加“單瓦楞”、雙瓦楞”標(biāo)簽. 以及 6個(gè)空白文本框，使他們排列成表格的形式 . 然后再添加“新方案”“上一步”“下一步”“退出”四個(gè)命令按鈕.其中顯示按

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楞型的代號(hào)If第四頁 .Option2 = True Then L = &qu

13、ot;B" 'B楞型的代號(hào)If第四頁 .Option3 = True Then L = "C" 'C楞型的代號(hào)Else: L = " "End IfIf Label63.Caption <> " " ThenIf第四頁 .Option5 = True Then M = "AB" 'Ab楞型的代號(hào)If第四頁 .Option6 = True Then M = "AC" 'Ac楞型的代號(hào)If第四頁 .Option7 = True Then M =

14、"BC" 'bc楞型的代號(hào)Else: M = " ".End IfIf第四頁 .Option8 = True Then X = "一級(jí) "If第四頁 .Option9 = True Then X = "二級(jí) "If第四頁 .Option10 = True Then X = "三級(jí) "If第四頁 .Option11 = True Then X = "四級(jí) "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é)果單瓦楞紙箱長(zhǎng) (mm) 寬(mm) 高(mm) 為：" &

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

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

18、 .Hide第二頁 .Show即.則單擊第一頁的“進(jìn)入”按鈕就會(huì)出現(xiàn)第二頁的界面. 同理，后面的頁面也是這樣的.2.6音樂播放這一段程序我們是網(wǎng)上找的是一個(gè)控件這是申明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 " 請(qǐng)先確定紙箱的設(shè)計(jì)方案" & Chr(10) & "是否已經(jīng)保存 ", 0, "請(qǐng)注意 "Else: ShellExecute Me.hwnd, "open", (App.Path & "