【正文】 [J]. Proceedings of the Institution of Mechanical,2003，(10):11171123[23] 高春艷，安劍， Basic的24堂(M).清華大學(xué)出版社[24] 周魏松，李志祥，[J].,9:3638[25] HongSen Yan，YanAn Yao，HuiJun ServoCam of the Chinese Society of Mechanical Engineers，2001，22（2）:99104[26] 武繼松，肖軍，[J].引進(jìn)吸收，1997，2：5051[27] 楊土法，李志祥，[J].浙江工程學(xué)院學(xué)報(bào)，2002，19（1）：1014[28] [D].天津大學(xué)，2009[29] [D].陜西科技大學(xué)，2007[30] 楊書林，羅建東，[J].機(jī)械科學(xué)與設(shè)計(jì)，2002，21（6）:913914[31] 吳宵，傅燕鳴，[J].機(jī)械科學(xué)與技術(shù)，2012，31（7）：11321135[32] 田綠竹，霍平，[J].煤礦機(jī)械，2009，30（7）：202203[33] 孫靖民，(M).：機(jī)械工業(yè)出版社，2012[34] (一)[J].絲綢技術(shù)，1994(2):2829.[35] (二)[J].絲綢技術(shù)，1994(3):811.[36] (三)[J].絲綢技術(shù)，1994(4):4649. [37] (四)[J].絲綢技術(shù)，1995(1):4648致 謝經(jīng)過一個(gè)學(xué)期的努力，我在沈毅老師的幫助和悉心指導(dǎo)下順利完成畢業(yè)設(shè)計(jì)。此次過程，不僅鍛煉了我Pro/E軟件的應(yīng)用能力和編程能力，也使我深入了解了紡織機(jī)械多臂機(jī)及折入邊共軛凸輪系統(tǒng)的結(jié)構(gòu)和工作原理。在對共軛凸輪機(jī)構(gòu)原理分析和對計(jì)算軟件的編程開發(fā)的過程中，我對共軛凸輪設(shè)計(jì)和VB程序語言相關(guān)的知識有了更加深入的掌握，除此之外，更重要的是培養(yǎng)了我獨(dú)立自主的不斷探索進(jìn)取的設(shè)計(jì)精神，為以后進(jìn)入工作崗位打下了深厚的基礎(chǔ)。同時(shí)，沈老師的言傳身教和嚴(yán)謹(jǐn)治學(xué)的態(tài)度，使我受益非淺。值此論文完成之際，我要向沈老師表示最衷心的謝意和良好的祝愿！ 畢業(yè)設(shè)計(jì)的完成意味著我們四年的大學(xué)生涯接近尾聲。在浙江理工大學(xué)學(xué)習(xí)的四年，將會是我生命中永遠(yuǎn)的記憶，也會是我人生的轉(zhuǎn)折點(diǎn)、成功的開始。在此，我要向所有指導(dǎo)和關(guān)懷過我的老師們和伴我度過四年大學(xué)生活的同學(xué)們說聲：謝謝！附錄1 HQ共軛凸輪設(shè)計(jì)軟件程序1主菜單Option ExplicitPrivate Sub Command1_Click() ‘選擇擺臂凸輪Unload Form2 = True = False = True = False = False = True = True = False = True = True = False = FalseEnd SubPrivate Sub Command2_Click() ‘選擇直動(dòng)凸輪Unload Form2 = True = False = True = False = True = False = True = False = False = False = True = TrueEnd SubPrivate Sub Command3_Click() ‘退出軟件EndEnd SubPrivate Sub Form_Load() ‘軟件簡介 = 8385 = 5340 = 軟件簡介： amp。 vbCrLf amp。 39。軟件簡介End Sub2參數(shù)輸入界面Option ExplicitPrivate Sub Command1_Click() ‘升程段分段調(diào)整 = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = False = TrueEnd SubPrivate Sub Command13_Click() ‘進(jìn)入圖形和數(shù)據(jù)界面 = False = TrueEnd SubPrivate Sub Command15_Click() ‘返回主菜單Unload Form1End SubPrivate Sub Command16_Click() ‘?dāng)[臂凸輪基本參數(shù)鎖定 = True = True = True = True = True = True = True = False = TrueEnd SubPrivate Sub Command17_Click()If Val() = 0 ThenMsgBox 請輸入凸輪和擺架中心距O1O2, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入擺臂O2A長度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入擺臂O2B長度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入擺臂夾角, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入凸輪A最小極半徑, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入滾子A半徑, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入滾子B半徑, vbOKOnly, 提示Else = False = False = False = False = False = False = False = True = FalseEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command18_Click() = True = True = True = True = False = TrueEnd SubPrivate Sub Command19_Click() = True = FalseEnd SubPrivate Sub Command2_Click() = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = True = False = TrueEnd SubPrivate Sub Command20_Click()If Val() = 0 ThenMsgBox 請輸入滾子中心距, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入凸輪A最小極半徑, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入滾子O1半徑, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入滾子O2半徑, vbOKOnly, 提示Else = False = False = False = False = True = FalseEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command4_Click()If = True ThenMsgBox 請鎖定分段, vbOKOnly, 提示End IfIf = 1 ThenIf Val() = 0 ThenMsgBox 請輸入升程第一段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第一段的終點(diǎn)位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第一段的函數(shù)類型, vbOKOnly, 提示Else = False = False = False = False = False = True = FalseEnd IfEnd IfEnd IfEnd IfIf = 2 ThenIf Val() = 0 ThenMsgBox 請輸入升程第一段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第一段的終點(diǎn)位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第一段的函數(shù)類型, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第二段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第二段的終點(diǎn)位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第二段的函數(shù)類型, vbOKOnly, 提示Else = False = False = False = False = False = False = False = False = True = FalseEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfIf = 3 ThenIf Val() = 0 ThenMsgBox 請輸入升程第一段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第一段的終點(diǎn)位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第一段的函數(shù)類型, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第二段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第二段的終點(diǎn)位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第一段的函數(shù)類型, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第三段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第三段的終點(diǎn)位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第三段的函數(shù)類型, vbOKOnly, 提示Else = False = False = False = False = False = False = False = False = False = False = False = True = FalseEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfIf = 4 ThenIf Val() = 0 ThenMsgBox 請輸入升程第一段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第一段的終點(diǎn)位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第一段的函數(shù)類型, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第二段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第二段的終點(diǎn)位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第二段的函數(shù)類型, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第三段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第三段的終點(diǎn)位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第三段的函數(shù)類型, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第四段的角度, vbOKOnly, 提示ElseIf Val() = 0 ThenMsgBox 請輸入升程第四段的終點(diǎn)位移, vbOKOnly, 提示ElseIf = ThenMsgBox 請選擇升程第四段的函數(shù)類型, vbOKOnly, 提示Else = False = False = False = False = False = False = False = False = False = False = False = False = False = False = True = FalseEnd