1、第四章 TRIBON舾裝托盤數(shù)據(jù)提取系統(tǒng)的開(kāi)發(fā)4.1 TRIBON編碼標(biāo)準(zhǔn)和建模標(biāo)準(zhǔn)的制定建立這個(gè)舾裝托盤數(shù)據(jù)提取系統(tǒng)的過(guò)程，實(shí)際上也是以中間產(chǎn)品為導(dǎo)向、以信息技術(shù)為手段標(biāo)準(zhǔn)舾裝生產(chǎn)設(shè)計(jì)內(nèi)容的過(guò)程?；赥RIBON的并行工程的核心在于信息集成和共享，即到達(dá)整個(gè)設(shè)計(jì)、生產(chǎn)周期的一體化，從而最優(yōu)地控制企業(yè)信息流，而且要建立造船中間產(chǎn)品信息模型關(guān)鍵也在于是否有一個(gè)可以操作、而且兼顧各種要求的產(chǎn)品代碼。其次，TRIBON的產(chǎn)品數(shù)據(jù)庫(kù)中的三維數(shù)據(jù)模型如果沒(méi)有統(tǒng)一的命名規(guī)那么，將對(duì)數(shù)據(jù)庫(kù)的管理、查詢?cè)斐珊艽笥绊?，不利于進(jìn)行進(jìn)一步的數(shù)據(jù)挖掘和二次開(kāi)發(fā)，同時(shí)造成大量的數(shù)據(jù)資源浪費(fèi)。再次，傳統(tǒng)的企業(yè)標(biāo)準(zhǔn)要求零件

2、或設(shè)備的代碼盡可能地包含全部的規(guī)格信息，比方大類、子類、型號(hào)、標(biāo)準(zhǔn)號(hào)、廠家等等信息，這樣的代碼少那么近十位，多那么二十多位 ，對(duì)于運(yùn)用Tribon系統(tǒng)建模的設(shè)計(jì)人員來(lái)說(shuō)無(wú)疑增加了很大的工作量，況且Tribon系統(tǒng)本身具有詳細(xì)的部件數(shù)據(jù)模塊，包含了各種舾裝件的參數(shù)信息項(xiàng)，因此有必要對(duì)現(xiàn)有的代碼編制方法作一定的修正，保證部件代碼能夠包含必要的參數(shù)信息并具有唯一性，同時(shí)簡(jiǎn)化設(shè)計(jì)人員編碼的繁瑣，充分利用Tribon的數(shù)據(jù)資源，為下一步工作的展開(kāi)做好鋪墊。 TRIBON系統(tǒng)軟件以統(tǒng)一的產(chǎn)品信息模型Product Information Model數(shù)據(jù)庫(kù)來(lái)管理模型對(duì)象Model Object 的各種數(shù)據(jù)信

3、息，包括幾何描述和技術(shù)數(shù)據(jù)。因此，用戶為了建立完備的產(chǎn)品信息模型，不僅需要建立模型對(duì)象的三維幾何描述，還要使模型對(duì)象經(jīng)過(guò)兩步數(shù)字化，即COMPONENT和EQUIPMENT，這個(gè)過(guò)程就是存儲(chǔ)產(chǎn)品的生產(chǎn)技術(shù)數(shù)據(jù)。建立托盤數(shù)據(jù)提取系統(tǒng)所進(jìn)行數(shù)據(jù)抽取的局部工作，就是以COMPONENT和EQUIPMENT中的技術(shù)參數(shù)為對(duì)象進(jìn)行的。此外，Tribon的Outfitting中包括Pipe modeling，Ventilation modeling ，Cable modeling，Structure modeling四個(gè)建模模塊，不同專業(yè)的生產(chǎn)設(shè)計(jì)人員可能需要運(yùn)用其中幾個(gè)模塊進(jìn)行建模，為了保證設(shè)計(jì)流程的正

4、確統(tǒng)一，有必要由專業(yè)設(shè)計(jì)人員對(duì)相關(guān)專業(yè)模塊建立一套設(shè)計(jì)流程標(biāo)準(zhǔn)。4.1.1 Outfitting Modules和Pipe Systems的劃分原那么和命名規(guī)那么 = 1 * GB2 模塊Module在TRIBON中被定義為相同種類的模型對(duì)象的一組集合，它為用戶管理和建立幾何數(shù)據(jù)模型提供一種背景或概念。Pipe ，Equipment，Cableway ，Ventilation和Structure都要定義在相應(yīng)的Module下。Module的劃分要表達(dá)中間產(chǎn)品的思想，建議以分段劃分為主，另外根據(jù)實(shí)際情況可增加局部特殊系統(tǒng)的模塊： = 1 * GB3 Module的劃分應(yīng)該在舾裝生產(chǎn)設(shè)計(jì)前期進(jìn)行，

5、由總體科或?qū)I(yè)科室指定系統(tǒng)管理員在Design Manager中按照船體分段建立好新模塊New Module，非系統(tǒng)管理員不得自行建立模塊。對(duì)于冗余模塊，系統(tǒng)管理員應(yīng)該及時(shí)發(fā)現(xiàn)，并進(jìn)行修改甚至刪除。 = 2 * GB3 Pipe ，Equipment， Structure，Cableway按照它們所處的分段位置定義在對(duì)應(yīng)的分段中；對(duì)于跨分段的設(shè)備、機(jī)座等部件應(yīng)放在其主體所在的分段中，主機(jī)放在其底座所在的分段中。 = 3 * GB3 對(duì)于局部管系如甲板上的管系按照所屬的平臺(tái)或系統(tǒng)進(jìn)行歸類，命名規(guī)那么可由風(fēng)道和管子建模人員根據(jù)相關(guān)要求制定。 = 2 * GB2 Pipe Systems的初始化應(yīng)該

6、由管裝科的系統(tǒng)管理員按照各種管系系統(tǒng)逐個(gè)建立，命名規(guī)那么由管裝科系統(tǒng)管理員制定。4.1.2 舾裝件Component和Equipment的代碼編制和輸入舾裝件的建模過(guò)程是由在Drafting中建立的Volume經(jīng)過(guò)兩步“數(shù)字化Component、Equipment后生成的。除了Pipe，Ventilation，Structure，Cable，Cableway，Accommodation以外，其他的舾裝件包括設(shè)備都要通過(guò)這個(gè)過(guò)程建立在Equipment庫(kù)中。在這個(gè)過(guò)程中，舾裝件Component和Equipment的代碼編制和輸入要求如下： = 1 * GB2 將建立的各類設(shè)備和其他舾裝件的特征

7、分類碼和Components庫(kù)的分類相配套，由各個(gè)專業(yè)的系統(tǒng)管理員規(guī)定本專業(yè)的設(shè)備和其他舾裝件在Components庫(kù)中分別創(chuàng)立在哪個(gè)子目錄，以及在這個(gè)目錄下Component type code的 Subclass和Family的劃分編碼如圖4-1所示。 = 1 * GB3 設(shè)備和其他舾裝件的具體劃分編碼。以機(jī)艙設(shè)備為例，將特征分類碼為4100鍋爐，4200熱交換器、冷卻器， 4500內(nèi)燃機(jī)，4600泵，4800軸系及傳動(dòng)設(shè)備的設(shè)備創(chuàng)立在Piping / Ship Equipment子目錄下，而特征分類碼為4700其他輔助機(jī)械的設(shè)備創(chuàng)立在Ventilation / General venti

8、lation components / General components子目錄下，劃分編碼如圖4-1所示。其它專業(yè)系列的設(shè)備可參照這種方式標(biāo)準(zhǔn)建模流程，由各專業(yè)的系統(tǒng)管理員將本專業(yè)設(shè)備的Components庫(kù)的創(chuàng)立程序和劃分編碼寫進(jìn)設(shè)計(jì)流程標(biāo)準(zhǔn)。圖4-1 Component代碼定義 = 2 * GB3 其他舾裝件的特征分類碼由字母表示，然而在Component type code中不認(rèn)字母，建議修改成由數(shù)字表示的特征分類碼，然后由相關(guān)專業(yè)的系統(tǒng)管理員參照 = 1 * GB3 描述的過(guò)程編寫創(chuàng)立這類舾裝件Components庫(kù)的設(shè)計(jì)流程標(biāo)準(zhǔn)。 = 2 * GB2 設(shè)備和其他舾裝件的Volum

9、e名，Component名，Equipment名的命名標(biāo)準(zhǔn)。一般船舶企業(yè)的標(biāo)準(zhǔn)標(biāo)準(zhǔn)中規(guī)定了各類設(shè)備和其他舾裝件的代碼結(jié)構(gòu)形式為附加碼型號(hào)、規(guī)格、標(biāo)準(zhǔn)號(hào)代碼特征分類碼 這種編碼方式形式過(guò)于繁瑣，同時(shí)缺乏對(duì)Tribon建模過(guò)程的針對(duì)性，因此，建議對(duì)其進(jìn)行修正，建立符合Tribon建模過(guò)程的“設(shè)備命名標(biāo)準(zhǔn)。在Tribon中創(chuàng)立“設(shè)備需要經(jīng)過(guò)三部曲：Volume Component Equipment因此，一個(gè)“設(shè)備對(duì)應(yīng)著 Volume名，Component名，Equipment名三個(gè)名稱。不同型號(hào)或類型的設(shè)備可能具有相同的外形，因此，在Tribon中同一個(gè)Volume可能對(duì)應(yīng)著不同的Componen

10、t；另外，同一種型號(hào)或類型的設(shè)備如果在多個(gè)位置布置，在Tribon中就反響為同一個(gè)Component對(duì)應(yīng)著多個(gè)的Equipment。由此可見(jiàn)，“設(shè)備的Volume名，Component名，Equipment名是具有相關(guān)性的，因此它們的命名標(biāo)準(zhǔn)也應(yīng)具有這個(gè)特點(diǎn)。建立TRIBON編碼標(biāo)準(zhǔn)和建模標(biāo)準(zhǔn)還應(yīng)包括各專業(yè)室在應(yīng)用過(guò)程中對(duì)設(shè)計(jì)過(guò)程的標(biāo)準(zhǔn)，其中應(yīng)該囊括Pipe，Ventilation，Cable，Structure等設(shè)計(jì)標(biāo)準(zhǔn)，以及Component，Equipment輸入標(biāo)準(zhǔn)。以上有關(guān)Module劃分原那么和舾裝件編碼的制定為設(shè)計(jì)人員應(yīng)用TRIBON進(jìn)行舾裝生產(chǎn)設(shè)計(jì)提供了綱要性的標(biāo)準(zhǔn)，同時(shí)也保證

11、了托盤數(shù)據(jù)提取系統(tǒng)在進(jìn)行定制托盤數(shù)據(jù)提取的準(zhǔn)確性和有效性。4.2 系統(tǒng)主界面和功能設(shè)計(jì) 友好的人機(jī)界面不但能方便用戶的使用，而且能夠贏得用戶的信任和好感。本課題設(shè)計(jì)的軟件界面充分考慮了用戶對(duì)軟件的功能執(zhí)行過(guò)程，能夠給使用者提供最大程度的便利。為了滿足各專業(yè)室提取技術(shù)數(shù)據(jù)并按照工廠定制托盤格式輸出的需要，TRIBON舾裝托盤數(shù)據(jù)提取系統(tǒng)采用Visual Basic 6.0作為開(kāi)發(fā)語(yǔ)言，設(shè)計(jì)了符合Windows風(fēng)格的主界面，如圖4-2所示。圖4-2系統(tǒng)主界面系統(tǒng)中心局部的背景為159，000噸油輪機(jī)艙舾裝局部TRIBON模型三維圖，而且在菜單欄、工具欄以及左側(cè)活動(dòng)功能區(qū)中使用的圖標(biāo)和名稱一律沿用T

12、RIBON M1的使用習(xí)慣和風(fēng)格，保證了設(shè)計(jì)人員對(duì)系統(tǒng)使用的親和力和好感。按照企業(yè)中現(xiàn)有專業(yè)劃分的工作模式，內(nèi)、外、機(jī)、電、管同一專業(yè)的設(shè)計(jì)人員可能要涉及到其他專業(yè)的托盤輸出需求，如管裝除了要求提取管子的安裝和內(nèi)場(chǎng)托盤，還要提取Structure中設(shè)計(jì)的管子架托盤。因此，系統(tǒng)把各個(gè)專業(yè)的托盤提取功能都集中到主界面中，使不同專業(yè)的設(shè)計(jì)人員能夠交叉提取所需的托盤數(shù)據(jù)，這樣同時(shí)也符合未來(lái)企業(yè)按照現(xiàn)代造船模式組織設(shè)計(jì)團(tuán)隊(duì)時(shí)的需要。 = 1 * GB2 工程編號(hào)欄 圖4-3工程編號(hào)欄及修改對(duì)話框使用系統(tǒng)進(jìn)行托盤提取前，首先要求輸入所進(jìn)行提取工程的編號(hào)，這個(gè)編號(hào)是企業(yè)根據(jù)新船型在設(shè)計(jì)前期編制船舶建造方針和

13、相關(guān)標(biāo)準(zhǔn)時(shí)建立的。一般來(lái)說(shuō)，在托盤代碼的前幾位數(shù)字和字母即是這個(gè)工程編號(hào)，如159，000噸的工程編號(hào)是BH509。系統(tǒng)因?yàn)榘?59，000作為課題研究對(duì)象，在工程標(biāo)號(hào)欄默認(rèn)為BH509。對(duì)于新船型，在進(jìn)行托盤輸出前先對(duì)工程編號(hào)進(jìn)行修改，單擊“修改按鈕，跳出如圖4-3中“修改工程編號(hào)對(duì)話框，然后輸入新的船舶工程編號(hào)單擊OK鍵即可。輸入的工程編號(hào)將在輸出的托盤中作為托盤表表號(hào)顯示。 = 2 * GB2 CoolBar活動(dòng)功能區(qū) CoolBar活動(dòng)功能區(qū)設(shè)計(jì)在系統(tǒng)左側(cè)，是系統(tǒng)的主要功能顯示區(qū)，如圖4-4所示。這個(gè)功能區(qū)集中了四大專業(yè)室七種托盤類型的數(shù)據(jù)提取功能，以及TRIBON中Outfittin

14、g Lists的快速啟動(dòng)功能。設(shè)計(jì)人員在應(yīng)用TRIBON系統(tǒng)進(jìn)行生產(chǎn)設(shè)計(jì)的過(guò)程中，Pipe，Ventilation，Cable，Structure是各專業(yè)室主要使用的模塊。本系統(tǒng)的主要功能就是提取出這四個(gè)專業(yè) 模塊設(shè)計(jì)的中間產(chǎn)品生產(chǎn)數(shù)據(jù)，并按照企業(yè)所需要的托盤格式輸出，從而直接應(yīng)用生產(chǎn)實(shí)踐和物流集配。這七種托盤包括管支架托盤表、管系附件閥件托盤表、管件安裝托盤表、管子內(nèi)場(chǎng)制作配套表、風(fēng)道安裝托盤表、電纜數(shù)據(jù)托盤表、型材數(shù)據(jù)統(tǒng)計(jì)托盤表。 = 3 * GB2 菜單欄和工具欄 圖4-4 CoolBar活動(dòng)功能區(qū) 菜單欄和工具欄位于系統(tǒng)主界面頂端，如圖4-5所示。菜單欄和活動(dòng)功能區(qū)功能大體類似，分為P

15、ipe，Ventilation，Cable，Structure，Outfitting Lists以及幫助六個(gè)功能菜單，其中Pipe，Ventilation，Cable，Structure列出了系統(tǒng)能夠提取的七種托盤提取功能。工具欄顯示了六個(gè)圖標(biāo)，從左至右分別表示：管系，風(fēng)道，電裝，型材件，Outfitting Lists以及幫助；激活前四個(gè)快捷圖標(biāo)即可顯示出相關(guān)專業(yè)的TRIBON建模標(biāo)準(zhǔn)和編碼說(shuō)明，第五個(gè)用來(lái)快速激活TRIBON中Outfitting Lists功能。圖4-5菜單欄和工具欄4.3 系統(tǒng)功能實(shí)現(xiàn)的關(guān)鍵技術(shù)系統(tǒng)為設(shè)計(jì)人員提供統(tǒng)一的托盤數(shù)據(jù)提取界面，設(shè)計(jì)人員在指定好選項(xiàng)和提取內(nèi)容后就

16、可以得到Excel格式的定制托盤表。在程序?qū)崿F(xiàn)過(guò)程中，有兩點(diǎn)關(guān)鍵技術(shù)需要實(shí)現(xiàn)： = 1 * GB2 對(duì)TRIBON數(shù)據(jù)庫(kù)的數(shù)據(jù)提取是利用部件模型對(duì)象COM-Object方法通過(guò)提取特定關(guān)鍵字來(lái)實(shí)現(xiàn)的，在程序設(shè)計(jì)前需要在微機(jī)中裝有TRIBON M1系統(tǒng)，然后在Visual Basic6.0集成環(huán)境中引用TRIBON提供的特定類庫(kù)TBDEXINT 1.0 TYPE LIBRARY，接著進(jìn)行變量聲明Public Extract As TBDex，這樣部件模型對(duì)象COM-Object提供的四種方法就可以順利地利用了； = 2 * GB2 為了實(shí)現(xiàn)Excel格式的定制托盤表的自動(dòng)輸出，程序需要利用VB的

17、OLE自動(dòng)化技術(shù)來(lái)實(shí)現(xiàn)對(duì)Excel對(duì)象的控制。下面就程序中需要實(shí)現(xiàn)的技術(shù)做一個(gè)簡(jiǎn)要的介紹： = 1 * GB3 OLE自動(dòng)化OLE自動(dòng)化允許在一個(gè)應(yīng)用程序中操作另一個(gè)應(yīng)用程序提供的對(duì)象。支持OLE自動(dòng)化的應(yīng)用程序向其他應(yīng)用程序提供他們自己的對(duì)象。例如，Excel提供的對(duì)象有宏、單元或整個(gè)工作表。 第一個(gè)與OLE自動(dòng)化效勞器聯(lián)系的方法是，用CreatObject函數(shù)生成要引用的應(yīng)用程序的新實(shí)例，其語(yǔ)法如下： Set AppObject = CreatObject (Class, ServerName) Excel的Class名為“Excel. Application；第二個(gè)變量是可選的，是生成對(duì)

18、象的網(wǎng)絡(luò)效勞器名。如果要聯(lián)系的應(yīng)用程序已經(jīng)運(yùn)行，那么通常不必要開(kāi)始新的實(shí)例。可以聯(lián)系現(xiàn)有的實(shí)例翻開(kāi)新文檔。要聯(lián)系效勞器應(yīng)用程序的運(yùn)行實(shí)例，可用GetObject函數(shù)，其語(yǔ)法如下：Set AppObject = GetObject (pathname, class) = 2 * GB3 Excel自動(dòng)化Excel提供的對(duì)象名稱不同，但同樣有合理的結(jié)構(gòu)化層次，可以訪問(wèn)表格式結(jié)構(gòu)中存放的數(shù)據(jù)。Excel的根本信息單元是Range。Range對(duì)象可以包含一個(gè)單元，也可以包含整個(gè)電子表格。Application對(duì)象表示Excel的實(shí)例。Worksheets集合包含當(dāng)前工作簿每個(gè)工作表的Worksheet

19、對(duì)象。為了加進(jìn)新的工作表，用Add方法，其語(yǔ)法如下：Application.Worksheets.Add (before, after, count, type)為了訪問(wèn)工作表，用Worksheets集合的Item方法，傳遞工作表的索引或名稱變量。以下表達(dá)式是等價(jià)的：Application.Worksheets.Item (2)或 Application.Worksheets.Item (“SalesData.xls)Item是集合的缺省屬性，可以省略。Range方法的根本語(yǔ)法如下：Worksheet. Range (cell1: cell2)Cell1和cell2是確定工作表矩形區(qū)的兩個(gè)單元

20、地址，分別是選項(xiàng)左上角和右下角的地址。這里要用標(biāo)準(zhǔn)Excel記號(hào)，即行號(hào)用數(shù)字，列號(hào)用字母，如A12或C3。要選擇活開(kāi)工作表右上角1010，用以下表達(dá)式：Worksheet. Range(“A1:J10)也可以用Cells方法將單個(gè)單元作為Range對(duì)象取得，其語(yǔ)法如下：Wordsheet.Cells (row, col)Row和col變量是單元坐標(biāo)數(shù)字。Rows和Columns方法返回整行或整列的數(shù)字。另一種使用單元的方法是作為選擇并訪問(wèn)Selection對(duì)象的屬性和方法，用Range對(duì)象的Select方法：Range(“A2:D2).Select這個(gè)語(yǔ)句生成新的Selection對(duì)象，可以

21、按名稱訪問(wèn)。由于工作表只有一個(gè)選擇項(xiàng)，所以不必指定變量。4.4 Pipe模塊程序設(shè)計(jì)與實(shí)現(xiàn) 在船廠應(yīng)用TRIBON系統(tǒng)進(jìn)行生產(chǎn)設(shè)計(jì)，工作量最大、設(shè)計(jì)周期最長(zhǎng)、生產(chǎn)數(shù)據(jù)最多的莫過(guò)于管系的設(shè)計(jì)及放樣工作。TRIBON系統(tǒng)給設(shè)計(jì)人員提供了全三維的放樣空間，而且保證任何模塊的設(shè)計(jì)人員在進(jìn)行干預(yù)檢查時(shí)都能隨意的調(diào)出船體、設(shè)備等模型，極大的提高了設(shè)計(jì)效率，節(jié)省了設(shè)計(jì)本錢。然而，在管系的設(shè)計(jì)過(guò)程中面臨著大量的工作時(shí)間要花在管子小票圖繪制，以及數(shù)種托盤表的數(shù)據(jù)統(tǒng)計(jì)與核算。本系統(tǒng)的Pipe模塊主要就是為了解決這數(shù)種托盤表的輸出問(wèn)題，即提取TRIBON產(chǎn)品數(shù)據(jù)模型中的管系數(shù)據(jù)，用Excel表格的形式按照工廠要求輸

22、出定制托盤表。本Pipe模塊提供了四大類托盤表的定制：a.管子內(nèi)場(chǎng)制作配套表 b.管子安裝托盤表 c.管支架托盤表 d.管系附件閥件安裝托盤表。下面就對(duì)這些托盤表的實(shí)現(xiàn)程序與設(shè)計(jì)原理進(jìn)行詳細(xì)的介紹。管子安裝托盤表 = 1 * GB2 工作界面及功能激活CoolBar活動(dòng)功能區(qū)的Pipe模塊分頁(yè)，單擊“管子安裝托盤表命令按鈕，即可在背景區(qū)顯示管子安裝托盤表的提取界面窗口，如圖4-6所示。圖4-6管子安裝托盤表提取界面 Module文本框中輸入需要提取的管子所在的分段號(hào)，此分段號(hào)是在應(yīng)用TRIBON系統(tǒng)開(kāi)始新船型設(shè)計(jì)時(shí)由總體科確定的分段劃分方式，也就是說(shuō)所有的管子在進(jìn)行生產(chǎn)設(shè)計(jì)放樣時(shí)都得按照其所在

23、的區(qū)域定義在相應(yīng)的Module下，只有這樣才能保證按照中間產(chǎn)品的形式提取出托盤數(shù)據(jù)，這里的中間產(chǎn)品即是定義在Module下的管子。 Option選項(xiàng)欄中列出了兩種可選擇的功能：一是“管子安裝托盤表，輸出指定Module里的管子數(shù)據(jù)；二是“封面，只生成管子安裝托盤表Excel格式的表樣。 = 2 * GB2 程序設(shè)計(jì) 圖4-7管子安裝托盤表程序流程圖 圖4-7中描述了實(shí)現(xiàn)提取并輸出管子安裝托盤表的程序流程，其中涉及的關(guān)鍵字有： PIPE.PIPS. NAME 管子小票名；PIPE.PIPS. MTRL. COMP_T 管材類型；PIPE.PIPS. MTRL. COMP_N 管材的Compone

24、nt名；COMP. GEN_PR.WEI 管材的線密度component庫(kù)general模塊中的weight, 單位kg/m；COMP. GEN_PR.MTRL_C 管材的材質(zhì)編號(hào)；PIPE.PIPS. MTRL. QU 管材長(zhǎng)度；PIPE.PIPS. GEN_P.TESTPRES 管子小票中的壓力值；其中，管材的材質(zhì)編號(hào)需要轉(zhuǎn)換成材質(zhì)名稱，對(duì)應(yīng)關(guān)系如下： 0 TY(C) = 普通鋼 TY-材質(zhì)名稱TY(C) = 普通鋼TY(C) = 抗熱鋼TY(C) = 不銹鋼TY(C) = 銅,黃銅TY(C) = 鋁,黃銅 TY(C) = 銅鎳TY(C) = 鋁合金 TY(C) = 塑料 TY(C) =

25、其他材料對(duì)于普通鋼，G = Val(Mid(MM(C), 3, 3) If G 300 Then TY(C) = 無(wú)縫鋼管 Else TY(C) = 焊接鋼管End If在程序中，COMP. GEN_PR.WEI對(duì)應(yīng)的是TRIBON系統(tǒng)Component庫(kù)General模塊中的Weight值，它在此表示管子的線密度。而在輸出的托盤表中需要的是管子的重量，因此要對(duì)此進(jìn)行換算，公式為：線密度*長(zhǎng)度/1000，其中長(zhǎng)度提取的是對(duì)應(yīng)管材PIPE.PIPS. MTRL. QU。程序中作為管材類型的判斷碼7101，7103，7104，7110表示TRIBON系統(tǒng)Component庫(kù)中Pipe/Straig

26、ht Pipes特定類別的管子：7101-Steel ordinary7103-Steel stainless7104-Copper and Brass7110-Other materials = 3 * GB2 輸出表樣圖4-8輸出的管子安裝托盤表4.4.2管系附件閥件安裝托盤表 = 1 * GB2 工作界面及功能 激活CoolBar活動(dòng)功能區(qū)的Pipe模塊分頁(yè)，單擊“管系附件閥件托盤表命令按鈕，即可在背景區(qū)顯示管系附件閥件托盤表的提取界面窗口，如圖4-9所示。Module文本框中輸入需要提取的管系附件閥件所在的分段號(hào)，此分段號(hào)是在應(yīng)用TRIBON系統(tǒng)開(kāi)始新船型設(shè)計(jì)時(shí)由總體科確定的分段劃分方

27、式，也就是說(shuō)所有的管子在進(jìn)行生產(chǎn)設(shè)計(jì)放樣時(shí)都得按照其所在的區(qū)域定義在相應(yīng)的Module下，只有這樣才能保證按照中間產(chǎn)品的形式提取出托盤數(shù)據(jù)，這里的中間產(chǎn)品即是定義在Module下的管系附件閥件。 Option選項(xiàng)欄中列出了三種可選擇的功能：一是“附件閥件托盤表，輸出指定Module里所有附件以及閥件的托盤數(shù)據(jù)；二是“螺栓墊片清單，輸出指定Module里的所有螺栓墊片托盤數(shù)據(jù)；三是“封面，只生成管系附件閥件托盤表Excel格式的表樣。圖4-9管系附件閥件托盤表提取界面 = 2 * GB2 程序設(shè)計(jì)圖4-10中描述了實(shí)現(xiàn)提取并輸出管系附件閥件托盤表的程序流程，其中涉及的關(guān)鍵字有： PIPE.PIP

28、S. NAME 管子小票名；PIPE.PIPS. MTRL. COMP_T 管材類型；PIPE.PIPS. MTRL. COMP_N 管材的Component名；COMP. GEN_PR.WEI 管材的線密度component庫(kù)general模塊中的weight, 單位kg/m；COMP. GEN_PR.MTRL_C 管材的材質(zhì)編號(hào)；PIPE.PIPS. MTRL. QU 管材總長(zhǎng)度；PIPE.PIPS. MTRL. BUILDING_L 管材的管段長(zhǎng)；其中，管材的材質(zhì)編號(hào)需要轉(zhuǎn)換成材質(zhì)名稱，對(duì)應(yīng)關(guān)系同上一節(jié)所述。 程序中，以QU_VALUE - BU_VALUE=120作為判斷條件，它表示的

29、意思是：對(duì)于連接法蘭的管段其PIPE.PIPS. MTRL. QU和PIPE.PIPS. MTRL. BUILDING_L提取的長(zhǎng)度是相等的，而對(duì)于沒(méi)有連接法蘭的管段PIPE.PIPS. MTRL. QU比PIPE.PIPS. MTRL. BUILDING_L長(zhǎng)120MM的長(zhǎng)度，因此用此作為是否為法蘭的判斷條件。能夠提取的法蘭包括的種類有Blank flanges，Slip-on flanges，Weld neck flanges，Spacer flanges，F(xiàn)langes with threaded holes，F(xiàn)langes without holes，在TRIBON系統(tǒng)中類型碼為200

30、0系列。 能夠提取的其他附件閥件種類有Connection Pieces(1000系列)，Valves3000系列，Couplings4000系列。圖4-10管系附件閥件托盤表程序流程圖 = 3 * GB2 輸出表樣圖4-11輸出的管系附件閥件托盤表和螺栓墊片清單4.4.3 管子內(nèi)場(chǎng)制作配套表 = 1 * GB2 工作界面及功能 激活CoolBar活動(dòng)功能區(qū)的Pipe模塊分頁(yè)，單擊“管子內(nèi)場(chǎng)制作配套表命令按鈕，即可在背景區(qū)顯示管子內(nèi)場(chǎng)制作配套表的提取界面窗口，如圖4-12所示。Module文本框中輸入需要提取的管子所在的分段號(hào)，此分段號(hào)是在應(yīng)用TRIBON系統(tǒng)開(kāi)始新船型設(shè)計(jì)時(shí)由總體科確定的分段

31、劃分方式，也就是說(shuō)所有的管子在進(jìn)行生產(chǎn)設(shè)計(jì)放樣時(shí)都得按照其所在的區(qū)域定義在相應(yīng)的Module下，只有這樣才能保證按照中間產(chǎn)品的形式提取出托盤數(shù)據(jù)，這里的中間產(chǎn)品即是定義在Module下的管子，管材或附件閥件。 Option選項(xiàng)欄中列出了四種可選擇的功能：一是“管件清單，輸出指定Module里所有管子的托盤數(shù)據(jù)，此功能是管子安裝托盤表的延伸，提取的原理和處理的關(guān)鍵字根本相同；二是“管材清單，對(duì)指定Module里的所有管子的管材進(jìn)行統(tǒng)計(jì)，另外對(duì)同種管材的數(shù)量、長(zhǎng)度、重量都做一個(gè)匯總；三是“附件清單，輸出指定Module里的相關(guān)附件數(shù)據(jù)，它也是前面管系附件閥件托盤表的延伸，提取原理和關(guān)鍵字同前；四是

32、“封面，只生成管系附件閥件托盤表Excel格式的表樣。圖4-12管子內(nèi)場(chǎng)制作配套表提取界面 = 2 * GB2 程序設(shè)計(jì) 因?yàn)楣芗鍐魏透郊鍐蔚奶崛〕绦蚺c前面的管子安裝托盤表和附件閥件托盤表的程序設(shè)計(jì)相同，這里主要對(duì)管材數(shù)據(jù)匯總的方法進(jìn)行詳細(xì)的介紹，程序?qū)崿F(xiàn)過(guò)程如下： = 1 * GB3 按照管子安裝托盤表的數(shù)據(jù)提取過(guò)程，提取出“序號(hào)、“管段名稱、“主要管材、“材質(zhì)、“長(zhǎng)度、“重量、“壓力、“外表處理等數(shù)據(jù)信息，提取程序的流程可參照?qǐng)D4-7，并把這些數(shù)據(jù)輸出在Excel格式的Pipe_List頁(yè)中，格式位置如圖4-13所示；圖4-13 Pipe_List表 = 2 * GB3 將Pipe_L

33、ist表數(shù)據(jù)按C列的升序順序重新排列：Range (C2). SelectSelection. Sort Key1: =Range (C3), Order1: =xlAscending, Header: =xlGuess, _ OrderCustom:=1,MatchCase:=False, orientation:=xlTopToBottom ，_ SortMethod:=xlPinYin = 3 * GB3 逐項(xiàng)讀取Pipe_List中 “主要管材、“材質(zhì)、“長(zhǎng)度、“重量 的數(shù)據(jù)，并賦值給數(shù)組： While X = 1 Range (c + Trim (Str (M + 2). Selec

34、t If ActiveCell.Value Then M3 (M) = ActiveCell.Value / 主要管材-M3() ReDim Preserve M3 (UBound (M3) + 1) Range (d + Trim (Str (M + 2). Select M4 (M) = ActiveCell.Value / 材質(zhì)-M4() ReDim Preserve M4 (UBound (M4) + 1) Range (e + Trim (Str (M + 2). Select M5 (M) = ActiveCell.Value / 長(zhǎng)度-M5() ReDim Preserve M5

35、 (UBound (M5) + 1) Range (f + Trim (Str (M + 2). Select M6 (M) = ActiveCell.Value / 重量-M6() ReDim Preserve M6 (UBound (M6) + 1) M = M + 1Else X = 0 End If Wend = 4 * GB3 根據(jù)“主要管材M3是否相同統(tǒng)計(jì)長(zhǎng)度和重量：J = 1M7(1) = M3(1)M8(1) = M4(1)M9(1) = M5(1)M10(1) = M6(1)For i = 2 To M - 1 If M7(J) = M3(i) Then M9(J) = M9

36、(J) + M5(i) M10(J) = M10(J) + M6(i) Else ReDim Preserve M7(UBound(M7) + 1) ReDim Preserve M8(UBound(M8) + 1) ReDim Preserve M9(UBound(M9) + 1) ReDim Preserve M10(UBound(M10) + 1) M7(J + 1) = M3(i) M8(J + 1) = M4(i) M9(J + 1) = M5(i) M10(J + 1) = M6(i) J = J + 1 End IfNext i = 5 * GB3 將統(tǒng)計(jì)結(jié)果輸出在正式的管材清單

37、Excel表格中，如103分段的管材統(tǒng)計(jì)結(jié)果如圖4-14所示。圖4-14輸出的管子內(nèi)場(chǎng)配套表管材清單4.4.4 .管支架托盤表 在應(yīng)用TRIBON系統(tǒng)建模的過(guò)程中，管支架作為型材件，一般來(lái)說(shuō)放在Structure模塊進(jìn)行放樣設(shè)計(jì)，因此它的托盤表只能在Structure模型庫(kù)中進(jìn)行提取，系統(tǒng)的型材托盤表模塊中提供了這一功能，而在這里僅僅輸出定制的Excel格式的管支架托盤表。定制托盤表的輸出方法用在“系統(tǒng)功能實(shí)現(xiàn)的關(guān)鍵技術(shù)一節(jié)中介紹OLE自動(dòng)化來(lái)實(shí)現(xiàn)。工作界面如圖4-15所示。圖4-15管支架托盤表提取界面4.5 Ventilation模塊程序設(shè)計(jì)與實(shí)現(xiàn)圖4-16風(fēng)道安裝托盤表提取界面 = 1

38、* GB2 工作界面及功能 激活CoolBar活動(dòng)功能區(qū)的Ventilation模塊分頁(yè)，單擊“風(fēng)道安裝托盤表命令按鈕，即可在背景區(qū)顯示風(fēng)道安裝托盤表的提取界面窗口，如圖4-16所示。 Project文本框需要輸入進(jìn)行提取的船型工程代號(hào)，這個(gè)工程代號(hào)是在進(jìn)行新船型初始化設(shè)計(jì)時(shí)定義的。激活TRIBON中Project Select模塊，設(shè)計(jì)人員可以看到系統(tǒng)所有工程的目錄樹(shù)，根目錄的中文或英文代號(hào)就是船型的工程代號(hào)。 Module文本框中輸入需要提取的風(fēng)管所在的分段號(hào)，此分段號(hào)是在應(yīng)用TRIBON系統(tǒng)開(kāi)始新船型設(shè)計(jì)時(shí)由總體科確定的分段劃分方式，也就是說(shuō)所有的風(fēng)管在進(jìn)行生產(chǎn)設(shè)計(jì)放樣時(shí)都得按照其所在的

39、區(qū)域定義在相應(yīng)的Module下，只有這樣才能保證按照中間產(chǎn)品的形式提取出托盤數(shù)據(jù)，這里的中間產(chǎn)品即是定義在Module下的風(fēng)管管段。 在進(jìn)行數(shù)據(jù)提取之前，還必須對(duì)Option選項(xiàng)功能欄中的安裝階段和安裝內(nèi)容進(jìn)行指定。根據(jù)第二章托盤設(shè)計(jì)的內(nèi)容，風(fēng)管安裝托盤表是一種典型的多維數(shù)據(jù)信息表，也就是說(shuō)一張托盤表中包括數(shù)種有關(guān)風(fēng)管安裝以及物資集配的信息欄。風(fēng)管托盤表的上方表頭包括安裝階段、托盤表號(hào)、工藝年份、安裝區(qū)域、安裝內(nèi)容以及安裝圖號(hào)這些數(shù)據(jù)欄，由此可見(jiàn)在同一Module里的風(fēng)管管段根據(jù)不同的安裝階段、安裝區(qū)域以及安裝內(nèi)容分別輸出在不同的托盤表格中。因此，Ventilation模塊在進(jìn)行數(shù)據(jù)提取時(shí)需要

40、充分考慮設(shè)計(jì)人員在進(jìn)行托盤編制工程中的這點(diǎn)要求。這樣的話，在利用本系統(tǒng)進(jìn)行提取之前需要指定安裝階段和安裝內(nèi)容，系統(tǒng)就會(huì)根據(jù)所選擇的安裝階段和安裝內(nèi)容輸出Module里的風(fēng)管管段數(shù)據(jù)。 = 2 * GB2 程序設(shè)計(jì) 程序根據(jù)安裝階段分段、艏舾、艉舾的不同分別運(yùn)行FdProgram，SxProgram，WxProgram三個(gè)子程序，這三個(gè)程序的設(shè)計(jì)原理大致相同，現(xiàn)就FdProgram為例說(shuō)明其實(shí)現(xiàn)過(guò)程。 = 1 * GB3 調(diào)用 DrawVentForm(Ventsheet) ，繪制風(fēng)管安裝托盤表； = 2 * GB3 根據(jù)指定的安裝階段和安裝內(nèi)容在風(fēng)管安裝托盤表上輸出托盤表號(hào)、安裝區(qū)域、安裝內(nèi)容

41、，并對(duì)“分段欄涂灰顯示； Range (D1:D2). Select With Selection. Interior . ColorIndex = 15 . Pattern = xlSolid . PatternColorIndex = xlAutomatic End With = 3 * GB3 調(diào)用ExtractVent(Project, Module, ContentList, Y, Ventsheet)，按指定內(nèi)容進(jìn)行提?。?a.提取風(fēng)管管段名稱，并存放于數(shù)組VentName()中； If Len (Project) 0 Then DexStr = VENT ( + Convert2

42、DexString (Project) + ). Else DexStr = VENT (*). End If If Len (Module) 0 Then DexStr_1 = DexStr + VENTM ( + Module + *). NAME Else If GetAllModel () = False Then Exit Sub End If DexStr_1 = DexStr + VENTM (*). NAME End If Extract.DoDataExtraction DexStr_1 Value = GetExtract (DexStr_1, s) b.從管段名稱中提取出

43、管件號(hào)JH()；For S = 1 To VentNumber l = Len(VentName(S) n = InStr(VentName(S), -) JH (S) = Right (VentName (S), l - n) ReDim Preserve JH (UBound (JH) + 1) Next S c.提取方案單元信息PlanUnit； DexStr_1 = DexStr + VENTM ( + VentName (t) + ). MAN_P.PLANNING_UNIT Extract.DoDataExtraction DexStr_1 PLanUnit = GetExtrac

44、t (DexStr_1, s) d. 根據(jù)PlanUnit中的區(qū)域代碼和安裝方式代碼選擇要進(jìn)行提取的風(fēng)管，然后提取出該風(fēng)管的安裝圖號(hào)； l = Len(PLanUnit) n = InStr(PLanUnit, -) If n 0 Then ACode = Right(PLanUnit, l - n) / ACode-安裝方式代碼 QCode = Left(PLanUnit, n - 1) / QCode- 區(qū)域代碼 If ACode = APhase Then / APhase-安裝階段 Y:分段預(yù)舾裝，CS：艏舾，CW：艉舾 Select Case QCode Case JD Conten

45、t = 機(jī)艙底層 / Content-安裝內(nèi)容 Case JC Content = 機(jī)艙C平臺(tái) Case JB Content = 機(jī)艙B平臺(tái) Case JA Content = 機(jī)艙A平臺(tái) Case YF Content = 煙囪 Case BF Content = 泵艙 Case WF Content = 艉部 Case SF Content = 艏部 Case HY Content = 貨艙或油管倉(cāng)庫(kù) End Select If Content = ContentList Then DexStr_1 = DexStr + VENTM ( + VentName (t) + ). MAN_P

46、.DRAWING_NAME Extract.DoDataExtraction DexStr_1 DrawName = GetExtract (DexStr_1, s) End If End If End If = 3 * GB2 輸出表樣圖4-17輸出的風(fēng)管安裝托盤表4.6 Cable模塊程序設(shè)計(jì)與實(shí)現(xiàn) = 1 * GB2 工作界面及功能 激活CoolBar活動(dòng)功能區(qū)的Cable模塊分頁(yè)，單擊“電纜數(shù)據(jù)托盤表命令按鈕，即可在背景區(qū)顯示電纜數(shù)據(jù)托盤表的提取界面窗口，如圖4-18所示。 Project文本框需要填寫船型的工程名。如需提取全船主干電纜的數(shù)據(jù)，那么在Cable Name文本框輸入星號(hào)“

47、*；如需提取某系統(tǒng)電纜數(shù)據(jù)，那么輸入系統(tǒng)名加星號(hào)，如LGM*。 圖4-18電纜數(shù)據(jù)托盤表提取界面 = 2 * GB2 程序設(shè)計(jì)圖4-19風(fēng)道安裝托盤表提取流程圖圖4-19中描述了實(shí)現(xiàn)提取并輸出風(fēng)管安裝托盤表的程序流程，其中涉及的關(guān)鍵字有：電纜代號(hào)電纜Component名電纜總長(zhǎng)CABLE.CAB_MOD.CON (s). EQUIP電纜連接的設(shè)備名稱CABLE. CAB_MOD. NMARKP 電纜經(jīng)過(guò)的標(biāo)記點(diǎn)數(shù)量CABLE. CAB_MOD. MARKP (s). NAME電纜經(jīng)過(guò)的標(biāo)記點(diǎn)名稱EQUIP.ITEM.REF.POINT 設(shè)備位置參考坐標(biāo)CABLE.CAB_MOD.MARKP(1

48、).LENGTH_A 以標(biāo)記電位參考的電纜前長(zhǎng)CABLE.CAB_MOD.MARKP(1).LENGTH_B以標(biāo)記電位參考的電纜后長(zhǎng)EQUIP.ITEM. ROOM設(shè)備所在甲板信息EQUIP.ITEM. MAN_P.PUR (s) 設(shè)備中文名稱CABLE. CAB_MOD. NBRANCH 電纜的分支數(shù)CABLE. CAB_MOD. BRAN.NPNTR_R電纜分支中真實(shí)貫穿的數(shù)量電纜分支中真實(shí)貫穿的名稱程序中，根據(jù)設(shè)備位置點(diǎn)坐標(biāo)換算出設(shè)備所在的肋位號(hào)fr1/fr2的過(guò)程是通過(guò)子程序XCOORD_EXCHANGE (XCOORD, FR)來(lái)實(shí)現(xiàn)的 ，程序段如下：Public Sub XCOOR

49、D_EXCHANGE (XCOORD, FR) If XCOORD = 44800 Then/X坐標(biāo)值 44800 And XCOORD 251200 Then A = Int (XCOORD - 44800) / 1200) /44800X坐標(biāo)值= 251200 Then /X坐標(biāo)值251200時(shí)肋位段長(zhǎng)度為800 A = Int (XCOORD - 251200) / 800) Frame = 228 + A FR = Trim (Str (Frame) End IfEnd Sub設(shè)備位置Y坐標(biāo)大于0，那么設(shè)備處于“左舷；設(shè)備位置Y坐標(biāo)小于0，那么設(shè)備處于“右舷。 = 3 * GB2 輸出

50、表樣圖4-20輸出的風(fēng)道安裝托盤表4.7 Structure模塊程序設(shè)計(jì)與實(shí)現(xiàn) = 1 * GB2 工作界面及功能 激活CoolBar活動(dòng)功能區(qū)的Structure模塊分頁(yè)，單擊“型材數(shù)據(jù)統(tǒng)計(jì)托盤表命令按鈕，即可在背景區(qū)顯示型材數(shù)據(jù)統(tǒng)計(jì)托盤表的提取界面窗口，如圖4-21所示。 Project文本框填寫船型的工程名。型材是按照安裝圖紙進(jìn)行托盤數(shù)據(jù)統(tǒng)計(jì)的，因此系統(tǒng)要求設(shè)計(jì)人員在應(yīng)用TRIBON的DRAFTING模塊出圖時(shí)，把需要統(tǒng)計(jì)的型材定義在同一圖幅內(nèi)，然后在Drawing Name文本框中輸入這個(gè)圖名，即可提取出指定 圖4-21型材數(shù)據(jù)統(tǒng)計(jì)托盤表提取界面安裝圖中的型材數(shù)據(jù)。 = 2 * GB2

51、 程序設(shè)計(jì)圖4-22型材數(shù)據(jù)統(tǒng)計(jì)托盤表提取流程圖圖4-22中描述了實(shí)現(xiàn)提取并輸出型材數(shù)據(jù)統(tǒng)計(jì)托盤表的程序流程，其中涉及的關(guān)鍵字有： 安裝圖中Structure的數(shù)量 Structure名STR.ITEM.GROUP (1). NPART Structure中Part個(gè)數(shù)STR.ITEM.GROUP (1). PART (). COMP_NAME Structure中Part的Component名COMP.DESC (1) Part的技術(shù)說(shuō)明STR.ITEM.GROUP (1). PART (). POS Part位置號(hào)STR.ITEM.GROUP (1). PART (). WEIGHT Part重量STR.ITEM.GROUP (1). PART (). TYPE Part的Component類型STR.ITEM.GROUP (1). PART (). PLATE.LENGTH Plate類Part長(zhǎng)STR.ITEM.GROUP (1).