TRIBON舾裝托盤數(shù)據(jù)提取系統(tǒng)的開發(fā)

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

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

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

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

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

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

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

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

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

10、的外形，因此，在Tribon中同一個Volume可能對應(yīng)著不同的Component；另外，同一種型號或類型的設(shè)備如果在多個位置布置，在Tribon中就反應(yīng)為同一個Component對應(yīng)著多個的Equipment。由此可見，“設(shè)備”的Volume名，Component名，Equipment名是具有相關(guān)性的，因此它們的命名規(guī)范也應(yīng)具有這個特點。建立TRIBON編碼標準和建模規(guī)范還應(yīng)包括各專業(yè)室在應(yīng)用過程中對設(shè)計過程的規(guī)范，其中應(yīng)該囊括Pipe，Ventilation，Cable，Structure等設(shè)計標準，以及Component，Equipment輸入標準。以上有關(guān)Module劃分原則和舾裝件編

11、碼的制定為設(shè)計人員應(yīng)用TRIBON進行舾裝生產(chǎn)設(shè)計提供了綱要性的規(guī)范，同時也保證了托盤數(shù)據(jù)提取系統(tǒng)在進行定制托盤數(shù)據(jù)提取的準確性和有效性。4.2 系統(tǒng)主界面和功能設(shè)計 友好的人機界面不但能方便用戶的使用，而且能夠贏得用戶的信任和好感。本課題設(shè)計的軟件界面充分考慮了用戶對軟件的功能執(zhí)行過程，能夠給使用者提供最大程度的便利。為了滿足各專業(yè)室提取技術(shù)數(shù)據(jù)并按照工廠定制托盤格式輸出的需要，TRIBON舾裝托盤數(shù)據(jù)提取系統(tǒng)采用Visual Basic 6.0作為開發(fā)語言，設(shè)計了符合Windows風(fēng)格的主界面，如圖4-2所示。圖4-2系統(tǒng)主界面系統(tǒng)中心部分的背景為159，000噸油輪機艙舾裝部分TRIBO

12、N模型三維圖，而且在菜單欄、工具欄以及左側(cè)活動功能區(qū)中使用的圖標和名稱一律沿用TRIBON M1的使用習(xí)慣和風(fēng)格，保證了設(shè)計人員對系統(tǒng)使用的親和力和好感。按照企業(yè)中現(xiàn)有專業(yè)劃分的工作模式，內(nèi)、外、機、電、管同一專業(yè)的設(shè)計人員可能要涉及到其他專業(yè)的托盤輸出需求，如管裝除了要求提取管子的安裝和內(nèi)場托盤，還要提取Structure中設(shè)計的管子架托盤。因此，系統(tǒng)把各個專業(yè)的托盤提取功能都集中到主界面中，使不同專業(yè)的設(shè)計人員能夠交叉提取所需的托盤數(shù)據(jù)，這樣同時也符合未來企業(yè)按照現(xiàn)代造船模式組織設(shè)計團隊時的需要。 = 1 * GB2 工程編號欄 圖4-3工程編號欄及修改對話框使用系統(tǒng)進行托盤提取前，首先要

13、求輸入所進行提取工程的編號，這個編號是企業(yè)根據(jù)新船型在設(shè)計前期編制船舶建造方針和相關(guān)標準時建立的。一般來說，在托盤代碼的前幾位數(shù)字和字母即是這個工程編號，如159，000噸的工程編號是BH509。系統(tǒng)因為把159，000作為課題研究對象，在工程標號欄默認為BH509。對于新船型，在進行托盤輸出前先對工程編號進行修改，單擊“修改”按鈕，跳出如圖4-3中“修改工程編號”對話框，然后輸入新的船舶工程編號單擊OK鍵即可。輸入的工程編號將在輸出的托盤中作為托盤表表號顯示。 = 2 * GB2 CoolBar活動功能區(qū) CoolBar活動功能區(qū)設(shè)計在系統(tǒng)左側(cè)，是系統(tǒng)的主要功能顯示區(qū)，如圖4-4所示。這個功

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

15、欄和工具欄位于系統(tǒng)主界面頂端，如圖4-5所示。菜單欄和活動功能區(qū)功能大體類似，分為Pipe，Ventilation，Cable，Structure，Outfitting Lists以及幫助六個功能菜單，其中Pipe，Ventilation，Cable，Structure列出了系統(tǒng)能夠提取的七種托盤提取功能。工具欄顯示了六個圖標，從左至右分別表示：管系，風(fēng)道，電裝，型材件，Outfitting Lists以及幫助；激活前四個快捷圖標即可顯示出相關(guān)專業(yè)的TRIBON建模規(guī)范和編碼說明，第五個用來快速激活TRIBON中Outfitting Lists功能。圖4-5菜單欄和工具欄4.3 系統(tǒng)功能實現(xiàn)的

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

17、用了； = 2 * GB2 為了實現(xiàn)Excel格式的定制托盤表的自動輸出，程序需要利用VB的OLE自動化技術(shù)來實現(xiàn)對Excel對象的控制。下面就程序中需要實現(xiàn)的技術(shù)做一個簡要的介紹： = 1 * GB3 OLE自動化OLE自動化允許在一個應(yīng)用程序中操作另一個應(yīng)用程序提供的對象。支持OLE自動化的應(yīng)用程序向其他應(yīng)用程序提供他們自己的對象。例如，Excel提供的對象有宏、單元或整個工作表。 第一個與OLE自動化服務(wù)器聯(lián)系的方法是，用CreatObject（）函數(shù)生成要引用的應(yīng)用程序的新實例，其語法如下： Set AppObject = CreatObject (Class, ServerName)

18、 Excel的Class名為“Excel. Application”；第二個變量是可選的，是生成對象的網(wǎng)絡(luò)服務(wù)器名。如果要聯(lián)系的應(yīng)用程序已經(jīng)運行，則通常不必要開始新的實例?？梢月?lián)系現(xiàn)有的實例打開新文檔。要聯(lián)系服務(wù)器應(yīng)用程序的運行實例，可用GetObject（）函數(shù)，其語法如下：Set AppObject = GetObject (pathname, class) = 2 * GB3 Excel自動化Excel提供的對象名稱不同，但同樣有合理的結(jié)構(gòu)化層次，可以訪問表格式結(jié)構(gòu)中存放的數(shù)據(jù)。Excel的基本信息單元是Range。Range對象可以包含一個單元，也可以包含整個電子表格。Applicat

19、ion對象表示Excel的實例。Worksheets集合包含當前工作簿每個工作表的Worksheet對象。為了加進新的工作表，用Add方法，其語法如下：Application.Worksheets.Add (before, after, count, type)為了訪問工作表，用Worksheets集合的Item方法，傳遞工作表的索引或名稱變量。下列表達式是等價的：Application.Worksheets.Item (2)或 Application.Worksheets.Item (“SalesData.xls”)Item是集合的缺省屬性，可以省略。Range方法的基本語法如下：Works

20、heet. Range (cell1: cell2)Cell1和cell2是確定工作表矩形區(qū)的兩個單元地址，分別是選項左上角和右下角的地址。這里要用標準Excel記號，即行號用數(shù)字，列號用字母，如A12或C3。要選擇活動工作表右上角1010，用下列表達式：Worksheet. Range(“A1:J10”)也可以用Cells方法將單個單元作為Range對象取得，其語法如下：Wordsheet.Cells (row, col)Row和col變量是單元坐標數(shù)字。Rows和Columns方法返回整行或整列的數(shù)字。另一種使用單元的方法是作為選擇并訪問Selection對象的屬性和方法，用Range對象

21、的Select方法：Range(“A2:D2”).Select這個語句生成新的Selection對象，可以按名稱訪問。由于工作表只有一個選擇項，所以不必指定變量。4.4 Pipe模塊程序設(shè)計與實現(xiàn) 在船廠應(yīng)用TRIBON系統(tǒng)進行生產(chǎn)設(shè)計，工作量最大、設(shè)計周期最長、生產(chǎn)數(shù)據(jù)最多的莫過于管系的設(shè)計及放樣工作。TRIBON系統(tǒng)給設(shè)計人員提供了全三維的放樣空間，而且保證任何模塊的設(shè)計人員在進行干涉檢查時都能隨意的調(diào)出船體、設(shè)備等模型，極大的提高了設(shè)計效率，節(jié)省了設(shè)計成本。然而，在管系的設(shè)計過程中面臨著大量的工作時間要花在管子小票圖繪制，以及數(shù)種托盤表的數(shù)據(jù)統(tǒng)計與核算。本系統(tǒng)的Pipe模塊主要就是為了解

22、決這數(shù)種托盤表的輸出問題，即提取TRIBON產(chǎn)品數(shù)據(jù)模型中的管系數(shù)據(jù)，用Excel表格的形式按照工廠要求輸出定制托盤表。本Pipe模塊提供了四大類托盤表的定制：a.管子內(nèi)場制作配套表 b.管子安裝托盤表 c.管支架托盤表 d.管系附件閥件安裝托盤表。下面就對這些托盤表的實現(xiàn)程序與設(shè)計原理進行詳細的介紹。管子安裝托盤表 = 1 * GB2 工作界面及功能激活CoolBar活動功能區(qū)的Pipe模塊分頁，單擊“管子安裝托盤表”命令按鈕，即可在背景區(qū)顯示管子安裝托盤表的提取界面窗口，如圖4-6所示。圖4-6管子安裝托盤表提取界面 Module文本框中輸入需要提取的管子所在的分段號，此分段號是在應(yīng)用TR

23、IBON系統(tǒng)開始新船型設(shè)計時由總體科確定的分段劃分方式，也就是說所有的管子在進行生產(chǎn)設(shè)計放樣時都得按照其所在的區(qū)域定義在相應(yīng)的Module下，只有這樣才能保證按照中間產(chǎn)品的形式提取出托盤數(shù)據(jù)，這里的中間產(chǎn)品即是定義在Module下的管子。 Option選項欄中列出了兩種可選擇的功能：一是“管子安裝托盤表”，輸出指定Module里的管子數(shù)據(jù)；二是“封面”，只生成管子安裝托盤表Excel格式的表樣。 = 2 * GB2 程序設(shè)計 圖4-7管子安裝托盤表程序流程圖 圖4-7中描述了實現(xiàn)提取并輸出管子安裝托盤表的程序流程，其中涉及的關(guān)鍵字有： PIPE.PIPS. NAME 管子小票名；PIPE.PI

24、PS. MTRL. COMP_T 管材類型；PIPE.PIPS. MTRL. COMP_N 管材的Component名；COMP. GEN_PR.WEI 管材的線密度（component庫general模塊中的weight, 單位kg/m）；COMP. GEN_PR.MTRL_C 管材的材質(zhì)編號；PIPE.PIPS. MTRL. QU 管材長度；PIPE.PIPS. GEN_P.TESTPRES 管子小票中的壓力值；其中，管材的材質(zhì)編號需要轉(zhuǎn)換成材質(zhì)名稱，對應(yīng)關(guān)系如下： 0 TY(C) = 普通鋼 TY-材質(zhì)名稱TY(C) = 普通鋼TY(C) = 抗熱鋼TY(C) = 不銹鋼TY(C) =

25、銅,黃銅TY(C) = 鋁,黃銅 TY(C) = 銅鎳TY(C) = 鋁合金 TY(C) = 塑料 TY(C) = 其他材料對于普通鋼，G = Val(Mid(MM(C), 3, 3) If G 300 Then TY(C) = 無縫鋼管 Else TY(C) = 焊接鋼管End If在程序中，COMP. GEN_PR.WEI對應(yīng)的是TRIBON系統(tǒng)Component庫General模塊中的Weight值，它在此表示管子的線密度。而在輸出的托盤表中需要的是管子的重量，因此要對此進行換算，公式為：線密度*長度/1000，其中長度提取的是對應(yīng)管材PIPE.PIPS. MTRL. QU。程序中作為管

26、材類型的判斷碼（7101，7103，7104，7110）表示TRIBON系統(tǒng)Component庫中Pipe/Straight Pipes特定類別的管子：7101-Steel ordinary7103-Steel stainless7104-Copper and Brass7110-Other materials = 3 * GB2 輸出表樣圖4-8輸出的管子安裝托盤表4.4.2管系附件閥件安裝托盤表 = 1 * GB2 工作界面及功能 激活CoolBar活動功能區(qū)的Pipe模塊分頁，單擊“管系附件閥件托盤表”命令按鈕，即可在背景區(qū)顯示管系附件閥件托盤表的提取界面窗口，如圖4-9所示。Modul

27、e文本框中輸入需要提取的管系附件閥件所在的分段號，此分段號是在應(yīng)用TRIBON系統(tǒng)開始新船型設(shè)計時由總體科確定的分段劃分方式，也就是說所有的管子在進行生產(chǎn)設(shè)計放樣時都得按照其所在的區(qū)域定義在相應(yīng)的Module下，只有這樣才能保證按照中間產(chǎn)品的形式提取出托盤數(shù)據(jù)，這里的中間產(chǎn)品即是定義在Module下的管系附件閥件。 Option選項欄中列出了三種可選擇的功能：一是“附件閥件托盤表”，輸出指定Module里所有附件以及閥件的托盤數(shù)據(jù)；二是“螺栓墊片清單”，輸出指定Module里的所有螺栓墊片托盤數(shù)據(jù)；三是“封面”，只生成管系附件閥件托盤表Excel格式的表樣。圖4-9管系附件閥件托盤表提取界面

28、= 2 * GB2 程序設(shè)計圖4-10中描述了實現(xiàn)提取并輸出管系附件閥件托盤表的程序流程，其中涉及的關(guān)鍵字有： PIPE.PIPS. NAME 管子小票名；PIPE.PIPS. MTRL. COMP_T 管材類型；PIPE.PIPS. MTRL. COMP_N 管材的Component名；COMP. GEN_PR.WEI 管材的線密度（component庫general模塊中的weight, 單位kg/m）；COMP. GEN_PR.MTRL_C 管材的材質(zhì)編號；PIPE.PIPS. MTRL. QU 管材總長度；PIPE.PIPS. MTRL. BUILDING_L 管材的管段長；其中，管材

29、的材質(zhì)編號需要轉(zhuǎn)換成材質(zhì)名稱，對應(yīng)關(guān)系同上一節(jié)所述。 程序中，以QU_VALUE - BU_VALUE=120作為判斷條件，它表示的意思是：對于連接法蘭的管段其PIPE.PIPS. MTRL. QU和PIPE.PIPS. MTRL. BUILDING_L提取的長度是相等的，而對于沒有連接法蘭的管段PIPE.PIPS. MTRL. QU比PIPE.PIPS. MTRL. BUILDING_L長120MM的長度，因此用此作為是否為法蘭的判斷條件。能夠提取的法蘭包括的種類有Blank flanges，Slip-on flanges，Weld neck flanges，Spacer flanges，F(xiàn)

30、langes with threaded holes，F(xiàn)langes without holes，在TRIBON系統(tǒng)中類型碼為2000系列。 能夠提取的其他附件閥件種類有Connection Pieces(1000系列)，Valves（3000系列），Couplings（4000系列）。圖4-10管系附件閥件托盤表程序流程圖 = 3 * GB2 輸出表樣圖4-11輸出的管系附件閥件托盤表和螺栓墊片清單4.4.3 管子內(nèi)場制作配套表 = 1 * GB2 工作界面及功能 激活CoolBar活動功能區(qū)的Pipe模塊分頁，單擊“管子內(nèi)場制作配套表”命令按鈕，即可在背景區(qū)顯示管子內(nèi)場制作配套表的提取界面

31、窗口，如圖4-12所示。Module文本框中輸入需要提取的管子所在的分段號，此分段號是在應(yīng)用TRIBON系統(tǒng)開始新船型設(shè)計時由總體科確定的分段劃分方式，也就是說所有的管子在進行生產(chǎn)設(shè)計放樣時都得按照其所在的區(qū)域定義在相應(yīng)的Module下，只有這樣才能保證按照中間產(chǎn)品的形式提取出托盤數(shù)據(jù)，這里的中間產(chǎn)品即是定義在Module下的管子，管材或附件閥件。 Option選項欄中列出了四種可選擇的功能：一是“管件清單”，輸出指定Module里所有管子的托盤數(shù)據(jù)，此功能是管子安裝托盤表的延伸，提取的原理和處理的關(guān)鍵字基本相同；二是“管材清單”，對指定Module里的所有管子的管材進行統(tǒng)計，另外對同種管材的

32、數(shù)量、長度、重量都做一個匯總；三是“附件清單”，輸出指定Module里的相關(guān)附件數(shù)據(jù)，它也是前面管系附件閥件托盤表的延伸，提取原理和關(guān)鍵字同前；四是“封面”，只生成管系附件閥件托盤表Excel格式的表樣。圖4-12管子內(nèi)場制作配套表提取界面 = 2 * GB2 程序設(shè)計 因為管件清單和附件清單的提取程序與前面的管子安裝托盤表和附件閥件托盤表的程序設(shè)計相同，這里主要對管材數(shù)據(jù)匯總的方法進行詳細的介紹，程序?qū)崿F(xiàn)過程如下： = 1 * GB3 按照管子安裝托盤表的數(shù)據(jù)提取過程，提取出“序號”、“管段名稱”、“主要管材”、“材質(zhì)”、“長度”、“重量”、“壓力”、“表面處理”等數(shù)據(jù)信息，提取程序的流程可

33、參照圖4-7，并把這些數(shù)據(jù)輸出在Excel格式的Pipe_List頁中，格式位置如圖4-13所示；圖4-13 Pipe_List表 = 2 * GB3 將Pipe_List表數(shù)據(jù)按C列的升序順序重新排列：Range (C2). SelectSelection. Sort Key1: =Range (C3), Order1: =xlAscending, Header: =xlGuess, _ OrderCustom:=1,MatchCase:=False, orientation:=xlTopToBottom ，_ SortMethod:=xlPinYin = 3 * GB3 逐項讀取Pipe_

34、List中 “主要管材”、“材質(zhì)”、“長度”、“重量” 的數(shù)據(jù)，并賦值給數(shù)組： While X = 1 Range (c + Trim (Str (M + 2). Select 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) Ran

35、ge (e + Trim (Str (M + 2). Select M5 (M) = ActiveCell.Value / 長度-M5() ReDim Preserve M5 (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 = 1M7(1) = M3(1)M

36、8(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(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) = M

37、4(i) M9(J + 1) = M5(i) M10(J + 1) = M6(i) J = J + 1 End IfNext i = 5 * GB3 將統(tǒng)計結(jié)果輸出在正式的管材清單Excel表格中，如103分段的管材統(tǒng)計結(jié)果如圖4-14所示。圖4-14輸出的管子內(nèi)場配套表（管材清單）4.4.4 .管支架托盤表 在應(yīng)用TRIBON系統(tǒng)建模的過程中，管支架作為型材件，一般來說放在Structure模塊進行放樣設(shè)計，因此它的托盤表只能在Structure模型庫中進行提取，系統(tǒng)的型材托盤表模塊中提供了這一功能，而在這里僅僅輸出定制的Excel格式的管支架托盤表。定制托盤表的輸出方法用在“系統(tǒng)功能實現(xiàn)的

38、關(guān)鍵技術(shù)”一節(jié)中介紹OLE自動化來實現(xiàn)。工作界面如圖4-15所示。圖4-15管支架托盤表提取界面4.5 Ventilation模塊程序設(shè)計與實現(xiàn)圖4-16風(fēng)道安裝托盤表提取界面 = 1 * GB2 工作界面及功能 激活CoolBar活動功能區(qū)的Ventilation模塊分頁，單擊“風(fēng)道安裝托盤表”命令按鈕，即可在背景區(qū)顯示風(fēng)道安裝托盤表的提取界面窗口，如圖4-16所示。 Project文本框需要輸入進行提取的船型工程代號，這個工程代號是在進行新船型初始化設(shè)計時定義的。激活TRIBON中Project Select模塊，設(shè)計人員可以看到系統(tǒng)所有工程的目錄樹，根目錄的中文或英文代號就是船型的工程代

39、號。 Module文本框中輸入需要提取的風(fēng)管所在的分段號，此分段號是在應(yīng)用TRIBON系統(tǒng)開始新船型設(shè)計時由總體科確定的分段劃分方式，也就是說所有的風(fēng)管在進行生產(chǎn)設(shè)計放樣時都得按照其所在的區(qū)域定義在相應(yīng)的Module下，只有這樣才能保證按照中間產(chǎn)品的形式提取出托盤數(shù)據(jù)，這里的中間產(chǎn)品即是定義在Module下的風(fēng)管管段。 在進行數(shù)據(jù)提取之前，還必須對Option選項功能欄中的安裝階段和安裝內(nèi)容進行指定。根據(jù)第二章托盤設(shè)計的內(nèi)容，風(fēng)管安裝托盤表是一種典型的多維數(shù)據(jù)信息表，也就是說一張托盤表中包括數(shù)種有關(guān)風(fēng)管安裝以及物資集配的信息欄。風(fēng)管托盤表的上方表頭包括安裝階段、托盤表號、工藝年份、安裝區(qū)域、安

40、裝內(nèi)容以及安裝圖號這些數(shù)據(jù)欄，由此可見在同一Module里的風(fēng)管管段根據(jù)不同的安裝階段、安裝區(qū)域以及安裝內(nèi)容分別輸出在不同的托盤表格中。因此，Ventilation模塊在進行數(shù)據(jù)提取時需要充分考慮設(shè)計人員在進行托盤編制工程中的這點要求。這樣的話，在利用本系統(tǒng)進行提取之前需要指定安裝階段和安裝內(nèi)容，系統(tǒng)就會根據(jù)所選擇的安裝階段和安裝內(nèi)容輸出Module里的風(fēng)管管段數(shù)據(jù)。 = 2 * GB2 程序設(shè)計 程序根據(jù)安裝階段（分段、艏舾、艉舾）的不同分別運行FdProgram，SxProgram，WxProgram三個子程序，這三個程序的設(shè)計原理大致相同，現(xiàn)就FdProgram為例說明其實現(xiàn)過程。 =

41、1 * GB3 調(diào)用 DrawVentForm(Ventsheet) ，繪制風(fēng)管安裝托盤表； = 2 * GB3 根據(jù)指定的安裝階段和安裝內(nèi)容在風(fēng)管安裝托盤表上輸出托盤表號、安裝區(qū)域、安裝內(nèi)容，并對“分段”欄涂灰顯示； Range (D1:D2). Select With Selection. Interior . ColorIndex = 15 . Pattern = xlSolid . PatternColorIndex = xlAutomatic End With = 3 * GB3 調(diào)用ExtractVent(Project, Module, ContentList, Y, Vents

42、heet)，按指定內(nèi)容進行提?。?a）.提取風(fēng)管管段名稱，并存放于數(shù)組VentName()中； If Len (Project) 0 Then DexStr = VENT ( + Convert2DexString (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 + VEN

43、TM (*). NAME End If Extract.DoDataExtraction DexStr_1 Value = GetExtract (DexStr_1, s) b）.從管段名稱中提取出管件號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 + VE

44、NTM ( + VentName (t) + ). MAN_P.PLANNING_UNIT Extract.DoDataExtraction DexStr_1 PLanUnit = GetExtract (DexStr_1, s) d）. 根據(jù)PlanUnit中的區(qū)域代碼和安裝方式代碼選擇要進行提取的風(fēng)管，然后提取出該風(fēng)管的安裝圖號； l = Len(PLanUnit) n = InStr(PLanUnit, -) If n 0 Then ACode = Right(PLanUnit, l - n) / ACode-安裝方式代碼 QCode = Left(PLanUnit, n - 1) /

45、QCode- 區(qū)域代碼 If ACode = APhase Then / APhase-安裝階段 Y:分段預(yù)舾裝，CS：艏舾，CW：艉舾 Select Case QCode Case JD Content = 機艙底層 / Content-安裝內(nèi)容 Case JC Content = 機艙C平臺 Case JB Content = 機艙B平臺 Case JA Content = 機艙A平臺 Case YF Content = 煙囪 Case BF Content = 泵艙 Case WF Content = 艉部 Case SF Content = 艏部 Case HY Content = 貨

46、艙或油管倉庫 End Select If Content = ContentList Then DexStr_1 = DexStr + VENTM ( + VentName (t) + ). MAN_P.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è)計與實現(xiàn) = 1 * GB2 工作界面及功能 激活CoolBar活動功能區(qū)的Cable模塊分頁，單擊“

47、電纜數(shù)據(jù)托盤表”命令按鈕，即可在背景區(qū)顯示電纜數(shù)據(jù)托盤表的提取界面窗口，如圖4-18所示。 Project文本框需要填寫船型的工程名。如需提取全船主干電纜的數(shù)據(jù)，則在Cable Name文本框輸入星號“*”；如需提取某系統(tǒng)電纜數(shù)據(jù)，則輸入系統(tǒng)名加星號，如LGM*。 圖4-18電纜數(shù)據(jù)托盤表提取界面 = 2 * GB2 程序設(shè)計圖4-19風(fēng)道安裝托盤表提取流程圖圖4-19中描述了實現(xiàn)提取并輸出風(fēng)管安裝托盤表的程序流程，其中涉及的關(guān)鍵字有：電纜代號電纜Component名電纜總長CABLE.CAB_MOD.CON (s). EQUIP電纜連接的設(shè)備名稱CABLE. CAB_MOD. NMARKP

48、電纜經(jīng)過的標記點數(shù)量CABLE. CAB_MOD. MARKP (s). NAME電纜經(jīng)過的標記點名稱EQUIP.ITEM.REF.POINT 設(shè)備位置參考坐標CABLE.CAB_MOD.MARKP(1).LENGTH_A 以標記電位參考的電纜前長CABLE.CAB_MOD.MARKP(1).LENGTH_B以標記電位參考的電纜后長EQUIP.ITEM. ROOM設(shè)備所在甲板信息EQUIP.ITEM. MAN_P.PUR (s) 設(shè)備中文名稱CABLE. CAB_MOD. NBRANCH 電纜的分支數(shù)CABLE. CAB_MOD. BRAN.NPNTR_R電纜分支中真實貫通的數(shù)量電纜分支中真實

49、貫通的名稱程序中，根據(jù)設(shè)備位置點坐標換算出設(shè)備所在的肋位號（fr1/fr2）的過程是通過子程序XCOORD_EXCHANGE (XCOORD, FR)來實現(xiàn)的 ，程序段如下：Public Sub XCOORD_EXCHANGE (XCOORD, FR) If XCOORD = 44800 Then/X坐標值 44800 And XCOORD 251200 Then A = Int (XCOORD - 44800) / 1200) /44800X坐標值= 251200 Then /X坐標值251200時肋位段長度為800 A = Int (XCOORD - 251200) / 800) Fram

50、e = 228 + A FR = Trim (Str (Frame) End IfEnd Sub設(shè)備位置Y坐標大于0，則設(shè)備處于“左舷”；設(shè)備位置Y坐標小于0，則設(shè)備處于“右舷”。 = 3 * GB2 輸出表樣圖4-20輸出的風(fēng)道安裝托盤表4.7 Structure模塊程序設(shè)計與實現(xiàn) = 1 * GB2 工作界面及功能 激活CoolBar活動功能區(qū)的Structure模塊分頁，單擊“型材數(shù)據(jù)統(tǒng)計托盤表”命令按鈕，即可在背景區(qū)顯示型材數(shù)據(jù)統(tǒng)計托盤表的提取界面窗口，如圖4-21所示。 Project文本框填寫船型的工程名。型材是按照安裝圖紙進行托盤數(shù)據(jù)統(tǒng)計的，因此系統(tǒng)要求設(shè)計人員在應(yīng)用TRIBON

51、的DRAFTING模塊出圖時，把需要統(tǒng)計的型材定義在同一圖幅內(nèi)，然后在Drawing Name文本框中輸入這個圖名，即可提取出指定 圖4-21型材數(shù)據(jù)統(tǒng)計托盤表提取界面安裝圖中的型材數(shù)據(jù)。 = 2 * GB2 程序設(shè)計圖4-22型材數(shù)據(jù)統(tǒng)計托盤表提取流程圖圖4-22中描述了實現(xiàn)提取并輸出型材數(shù)據(jù)統(tǒng)計托盤表的程序流程，其中涉及的關(guān)鍵字有： 安裝圖中Structure的數(shù)量 Structure名STR.ITEM.GROUP (1). NPART Structure中Part個數(shù)STR.ITEM.GROUP (1). PART (). COMP_NAME Structure中Part的Component名COMP.DESC (1) Part的技術(shù)說明STR.ITEM.GROUP (1). PART (). POS Part位置號STR.ITEM.GROUP (1). PART (). WEIGHT Part重量STR.ITEM.GROUP (1). PART (). TYPE Part的Component類型STR.ITEM.GROUP (1). PART (). PLATE.LENGTH Plate類Part長STR.ITEM.GROUP (1). PAR