【正文】 孔設(shè)備滑桿） 圖 滑桿 6．滑桿支撐 圖 滑桿支撐 7．蒙皮 圖 蒙皮 8．蒙皮定位銷 圖 蒙皮定位銷 9．蒙皮骨架 沈陽(yáng)航空航天大學(xué)畢業(yè)設(shè)計(jì)（論文） 35 圖 蒙皮骨架 10．蒙皮支撐 圖 蒙皮支撐 11．軸承 圖 軸承 12．制孔設(shè)備 圖 制孔設(shè)備 基于 CATIA 二次開發(fā)制孔設(shè)備 的虛擬裝配 制孔設(shè)備 運(yùn)動(dòng)模型的建立 要建立 制孔設(shè)備 的運(yùn)動(dòng)模型，首先需建立 制孔設(shè)備 的精確數(shù)字模型。 制孔設(shè)備 由多個(gè)廠家的產(chǎn)品組成，并非所有產(chǎn)品都有數(shù)模，有數(shù)模的也并非是 CATIA V5 的模型。因此我們根據(jù)工程實(shí)際需要，對(duì)每部分的數(shù)模精度要求進(jìn)行評(píng)估，有選擇的簡(jiǎn)化部分產(chǎn)品的數(shù)模，使之既能滿足工程實(shí) 際的需求，也可大大降低建模的工作量和工作難度。 圖 制孔設(shè)備裝配 制孔設(shè)備虛擬裝配的操作步驟 1．打開操作界面窗口如圖 所示。 圖 啟動(dòng) CATIA 3．按下“載入型架”按鈕，型架載入后，運(yùn)行結(jié)果如圖 所示。 圖 載入骨架 5．按下“骨架定位”按鈕，載入骨架定位銷，定位骨架后，運(yùn)行結(jié)果如圖 所示。 圖 載入蒙皮 7．按下“蒙皮定位”按鈕，載入蒙皮定位銷，蒙皮定位后，運(yùn)行結(jié)果如圖 所示。 圖 載入滑桿 9．按下“載入制孔設(shè) 備”按鈕，載入制孔設(shè)備后，運(yùn)行結(jié)果如圖 所示。全系統(tǒng)有 2 個(gè)機(jī)械運(yùn)動(dòng)控制參數(shù)和 1 個(gè) 制孔 過(guò)程動(dòng)作，以及一些相關(guān)的聯(lián)動(dòng)運(yùn)動(dòng)機(jī)構(gòu)。分別表示控制鉆鉚機(jī) X 向、 Y 向、 Z 向。打開如圖 ， 所示。 圖 橫向運(yùn)動(dòng)仿真 3．在機(jī)制 1 下的命令 2 是進(jìn)行制孔設(shè)備的縱向運(yùn)動(dòng)，進(jìn)行縱向運(yùn)動(dòng)如圖 所示。 圖 制孔運(yùn)動(dòng)仿真 沈陽(yáng)航空航天大學(xué)畢業(yè)設(shè)計(jì)（論文） 45 6 經(jīng)濟(jì)技術(shù)性分析 飛機(jī)產(chǎn)品數(shù)字化設(shè)計(jì)制造技術(shù)是 20 世紀(jì) 80 年代后期以來(lái)，隨著 CAD/CAM、計(jì)算機(jī)信息和網(wǎng)絡(luò)技術(shù)的發(fā)展，以全面采用數(shù)字化產(chǎn)品定義、數(shù)字化預(yù)裝配、產(chǎn)品數(shù)據(jù)管理、并行工程和虛擬制造技術(shù)為主要標(biāo)志的新一代設(shè)計(jì)制造技術(shù)，它從根本上改變了飛 機(jī)傳統(tǒng)的設(shè)計(jì)與制造方式，大幅度提高了飛機(jī)設(shè)計(jì)制造技術(shù)水平。 VMS 的建模應(yīng)包括生產(chǎn)模型、產(chǎn)品模型和工藝模型的信息體系結(jié)構(gòu)。虛擬制造技術(shù)涉及面很廣，包括環(huán)境構(gòu)成技術(shù)、過(guò)程特征抽取、元模型、集成基礎(chǔ)結(jié)構(gòu)的體系結(jié)構(gòu)、 制造特征數(shù)據(jù)集成、多學(xué)科交流、決策支持工具、接口技術(shù)、虛擬現(xiàn)實(shí)技術(shù)以及建模與仿真技術(shù)等。由于仿真是以系統(tǒng)模型為對(duì)象的研究方法，而不干擾實(shí)際生產(chǎn)系統(tǒng)，同時(shí)仿真可以利用計(jì)算機(jī)的快速運(yùn)算能力，用很短的時(shí)間模擬實(shí)際生產(chǎn)中需要很長(zhǎng)的生產(chǎn)周期才能取得的參數(shù)，因此，它可以起到縮短決策時(shí)間，避免資金、人力和時(shí)間浪費(fèi)的作用。 本課設(shè)中的制孔設(shè)備的虛擬裝配和運(yùn)動(dòng)仿真 ，可以進(jìn)行制孔前的各種工裝和制孔時(shí)的各種運(yùn)動(dòng)，提前發(fā)現(xiàn)在現(xiàn)實(shí)裝配及制孔中遇到的各種問(wèn)題， 避免了可能存在的干涉和碰撞， 及時(shí)修改和進(jìn)一步完善設(shè)計(jì)運(yùn)動(dòng)要素，節(jié)省了大量的人力，物力和財(cái)力。 7 結(jié)論 到這里，此次畢業(yè)設(shè)計(jì)的基本任務(wù)已經(jīng)完成。 建立了一個(gè)真實(shí)的加工環(huán)境，在計(jì)算機(jī)屏幕上實(shí)現(xiàn)加工過(guò)程的仿真，以增強(qiáng) 制造過(guò)程的各級(jí)決策與控制能力，優(yōu)化制造過(guò)程。 虛擬裝配和制孔設(shè)備制孔的運(yùn)動(dòng)仿真建好了，用戶如果不會(huì)使用或者使用時(shí)十分麻煩，那么就沒(méi)起到方便用戶的目的。但是本次開發(fā)中也存在不足之處，由于時(shí)間有限，所做的程序局限性比較大，只能一次制孔一個(gè)，不能進(jìn)行連續(xù)制孔。 沈陽(yáng)航空航天大學(xué)畢業(yè)設(shè)計(jì)（論文） 47 參考文獻(xiàn) [1] 胡挺 ， 吳立軍 .CATIA 二次開發(fā)技術(shù)基礎(chǔ) .電子工業(yè)出版社 ， . [2] 魯金忠 ， 羅開玉 ， 盧章平 .CATIA 機(jī)械設(shè)計(jì)實(shí)用教程 .化學(xué)工業(yè)出版社 ，. [3] 周仙娥 .基于 CATIA 的數(shù)控機(jī)床加工仿真的研究與開發(fā)： [碩士學(xué)位論文 ] .沈陽(yáng) .沈陽(yáng)航空航天大學(xué)， 2021. [4] 王云渤等 .飛機(jī)裝配工藝學(xué) .國(guó)防工業(yè)出版社 ， . [5] 何朝良 .基于 CATIA_CAA平臺(tái)的虛擬裝配路徑規(guī)劃的研究： [碩士學(xué)位論文 ] .南京 .南京航空航 天大學(xué) ， 2021. [6] 曾柳楊 .基于 CATIA_CAA 的虛擬裝配約束關(guān)系分析與干涉檢查研究： [碩士學(xué)位論文 ].南京 .南京航空航天大學(xué) ， 2021. [7] 宋成 .CATIA V5 實(shí)用教程 .北京：北京大學(xué)出版社， . [8] 唐榮錫 .計(jì)算機(jī)輔助 飛機(jī)制造 .北京 :國(guó)防工業(yè)出版社 ， . [9] 何朝良 ， 周安寧 ， 劉 毅 .基于 CAA 的 CATIA 二次開發(fā)初步研究 .中國(guó)航空學(xué)會(huì)總體分會(huì)幾何設(shè)計(jì)專業(yè)委員會(huì)第六次學(xué)術(shù)交流會(huì)會(huì)議 .西 寧 ， . [10] 劉炳文 .Visual Basic 程序?qū)嵱媒?程 [M] .北京：清華大學(xué)出版社 .. [11] 段興 .Visual Basic 控件實(shí)用程序設(shè)計(jì) 100 例 [M] .人民郵電出版社 ， . [12] 劉冰 .基于 CATIA 的三維標(biāo)準(zhǔn)件庫(kù)開發(fā)與研究 ： [碩士學(xué)位論文 ].沈陽(yáng) .沈陽(yáng)航空航天大學(xué) ， 2021. [13] 劉俊堂 .CAA 及其應(yīng)用 .第一飛機(jī) 設(shè)計(jì)研究院 ， 2021. [14] 尤春風(fēng) .CATIA V5 高級(jí) 應(yīng)用 .北京 :清華大學(xué)出版社 ， 2021. [15] 馮潼能 ， 王黎明 ， 初愛(ài)國(guó) .基于 CATIA V5 的自動(dòng)鉆鉚機(jī)工藝過(guò)程仿真 .西安飛機(jī)工業(yè)（集團(tuán)）有限責(zé)任公 司 ， . [16] 曹俊生 .基于 CATIA_CAA 的飛機(jī)結(jié)構(gòu)虛擬裝配信息模型研究： [碩士學(xué)位論文 ].南京 .南京航空航天大學(xué) ， 2021. [17] 程寶渠 .飛機(jī)制造協(xié)調(diào)準(zhǔn)確度與容差分配 [M].北京航空工 業(yè)出版社 ， . [18] [美 ]Dale Rogerson 著 .楊秀章 譯 江英 審 .COM 技術(shù)內(nèi)幕 — 微軟組件對(duì)象模型 .清華大學(xué) 出版社 ， . [19] 儲(chǔ)林波．面向虛擬裝配的裝配工藝規(guī)劃技術(shù)研究［ D］． [博士學(xué)位論文 ],哈爾濱：哈爾濱工業(yè)大學(xué) ， 2021. [20] 盧小平．面向虛擬裝配的裝配順序規(guī)劃研究 [J]．系統(tǒng)仿真學(xué)報(bào) ， . [21] Yoshikawa H. Design philosophythe state of the art. Annals of the CIRP, 1989, 38(2)： 579586 [22] Attention_For_Teacher_CAA_V5_For_CATIA_Foundations Version [23] 5 Release 7 July 2021 FORCATECAAFV5R7 [24] CAA_V5_For_CATIA_Foundations Version 5 Release 7 July 2021 FORCATECAAFV5R7 [25] Connacher H I ， Jayaram S ， Lyons K assembly design environment[A].Proceedings of 1995 ASME Computers in Engineering Conference and Engineering Database Symposium[C] ， Boston ， MA ，USA,September,1995:26～ 32 [26] Jayaram S,Connacher H I,Lyons K assembly using virtual reality techniques[J].Computer Aided Design,1997,29(8):575～ 584 [27] Liu Zhenyu， Tan Jianrong， Zhang Shuyou， et semantics of assembly modeling in virtual environment:Expression， transfer and transformation[J].Chinese Journal of Computers ， 2021 ，23(11):1208~1214(in Chinese) [28] L I Lieberman M A :An automation programming system for puter controlled mechanical assembly[J].IBM Journal of Research and Development,1997,7:321~333 沈陽(yáng)航空航天大學(xué)畢業(yè)設(shè)計(jì)（論文） 49 致 謝 在畢業(yè)設(shè)計(jì)這段時(shí)間里，我們的指導(dǎo)老師王巍老師對(duì)我們認(rèn)真負(fù)責(zé)，悉心指導(dǎo)，大力幫助，及時(shí)解決了我們畢業(yè)設(shè)計(jì)過(guò)程中遇到的種種問(wèn)題，使我們畢業(yè)設(shè)計(jì)得以順利進(jìn)行。畢業(yè)設(shè)計(jì)之所以能按期順利完成，這與我們王巍老師的辛勤付出密不可分。 附錄 Ⅰ 程序 清單 程序代碼： Sub CreateCylinder(iCount As Integer, iDis As Integer) Dim CATIA As Object On Error Resume Next Set CATIA = GetObject(, ) If 0 Then Set CATIA = CreateObject() = True End If On Error GoTo 0 Set documents1 = Set partDocument1 = (Part) Set part1 = Set bodies1 = Set body1 = (零部件幾何體 ) Set sketches1 = Set originElements1 = Set reference1 = Set sketch1 = (reference1) Dim arrayOfVariantOfDouble1(8) arrayOfVariantOfDouble1(0) = 0 arrayOfVariantOfDouble1(1) = 0 arrayOfVariantOfDouble1(2) = 0 arrayOfVariantOfDouble1(3) = 1 arrayOfVariantOfDouble1(4) = 0 arrayOfVariantOfDouble1(5) = 0 arrayOfVariantOfDouble1(6) = 0 arrayOfVariantOfDouble1(7) = 1 arrayOfVariantOfDouble1(8) = 0 沈陽(yáng)航空航天大學(xué)畢業(yè)設(shè)計(jì)（論文） 51 arrayOfVariantOfDouble1 = sketch1 Set factory2D1 = () Set geometricElements1 = Set axis2D1 = (絕對(duì)軸 ) Set line2D1 = (橫向 ) = 1 Set line2D2 = (縱向 ) = 2 X = 0 For I = 1 To iCount Set circle2D1 = (X, 0, 50) Set circle2D2 = (X, 0, 70) X = X + iDis Next = body1 = body1 Set shapeFactory1 = Set pad1 = (sketch1, 20) Set specsAndGeomWindow1 = Set viewer3D1 = Set viewpoint3D1 = End Sub Private Sub cmdCreate_Click() CreateCylinder Val(), Val() End Sub Private Sub cmdExit_Click() Unload Me End Sub 附錄 Ⅱ 程序清單 程序代碼： Private Sub cmdQIDONG_Click() Dim CATIA 39。Get CATIA or Launch it if necessary. On Error Resume Next Set CATIA = (, ) If 0 Then Set CATIA = () = True End If On Error GoTo 0 End Sub Private Sub Command1_Click() On Error Resume Next Set CATIA = GetObject(, ) If 0 Then Set CATIA = CreateObject() = True End If If bNewProduct Then Set oProductDoc = (Product) Else If strProduct = Then Set oProductDoc =