|
楼主 |
发表于 2013-9-8 21:29:32
|
显示全部楼层
- --___________________________________________________________________________________________
- --
- -- Copyright (C) 2013 COSCO (ZHOUSHAN) SHIPYARD Co.,LTD DESIGN DEPARTMENT All Rights Reserved.
- --
- -- File: HvacExportMatl.pmlfrm
- -- Type: Form Definition
- -- Group: Application
- -- Keyword:
- -- Module: Design
- -- Author: LiYuan (HVAC Desiger)
- -- Created: 08/17/2013 08:22:35
- --
- -- Description: Export material for HVAC team
- --___________________________________________________________________________________________
- --
- -- Methods defined:
- --
- -- Method call Return Description
- -- =========== ====== ===========
- -- HvacExportMatl() -
- -- track() -
- -- rightClickExplorer(ARRAY) -
- -- setHvacReport() -
- -- addZone() -
- -- addZonelist(STRING) -
- -- Apply() -
- -- ductBranch(STRING) ARRAY
- -- ductFlanges(STRING) ARRAY
- -- ductInfor(ARRAY,STRING) ARRAY
- -- DuctsList(DBREF) ARRAY
- -- DuctSupportList(DBREF) ARRAY
- -- isDuctSupportList(ARRAY) ARRAY
- -- PipeSupportList(DBREF) ARRAY
- -- isPipeSupportList(ARRAY) ARRAY
- -- isSupportList(ARRAY) -
- -- isDuctFlangeList(ARRAY) ARRAY
- -- FlangeMatlSpec(STRING,STRING) ARRAY
- -- isFlange(STRING,STRING) ARRAY
- -- MergeFlangeMatl(ARRAY) ARRAY
- -- isDuctList(ARRAY) ARRAY
- -- isDuctSteelplate(ARRAY) ARRAY
- -- RemZoneList(STRING) -
- -- SteelplateSpec(STRING) ARRAY
- -- SupportMatl(ARRAY) ARRAY
- -- sdInfor(STRING) ARRAY
- -- sdFitting(ARRAY) ARRAY
- -- equiFitting(DBREF) ARRAY
- -- hvacFitting(DBREF) ARRAY
- -- isFitting(ARRAY) ARRAY
- --
- --___________________________________________________________________________________________
- import 'ExplorerAddin'
- handle any
- endhandle
- using namespace 'Aveva.Pdms.Presentation'
- Setup Form !!HvacExportMatl
- member .explorer is PMLExplorerControl
- member .element is DBREF
- member .SelectzoneList is ARRAY
- member .ductListInfor is ARRAY
- member .supportListInfor is ARRAY
- path down
- container .explorerFrame nobox PmlNetControl 'explorer' anchor t+l width 40 height 10.3
- menu .explorerPopup popup
- !this.explorerPopup.add( 'CALLBACK', 'Add to Zone List', '!this.addZone()', 'addzone')
- path right
- hdist 0
- list .zoneList 'Zone List' callback || multiple width 25 heig 14
- Text .txtFilePath 'The Path of Exported File:' At XMin.explorerFrame YMax.explorerFrame+0.5 tagwid 17 Width 29 is STRING
- button .btnApply 'Apply' callback |!this.Apply()| At XMax.txtFilePath+1 YMin.txtFilePath Width 18 Height 1
- track |DESICE| call |!this.track()|
- Exit
- --___________________________________________________________________________________________
- define method .HvacExportMatl()
- using namespace 'Aveva.Pdms.Presentation'
- !this.explorer = object PMLExplorerControl()
- !this.explorerFrame.control = !this.explorer.handle()
- !this.explorer.addeventhandler('OnPopup', !this, 'rightClickExplorer')
- !this.formTitle = 'Hvac Export Material v1.0'
- !this.explorer.initialise('/*','')
- !this.explorer.selectElement(!!ce.name)
-
- !RemMenu = !this.newMenu('RemMenu')
- !RemMenu.add('CALLBACK', 'Rem Selected', |!this.RemZoneList('RemSelected')|)
- !RemMenu.add('CALLBACK', 'Rem All', |!this.RemZoneList('Remall')|)
- !this.zoneList.setpopup(!RemMenu)
-
- !this.txtFilePath.val = 'D:\HvacReport'
- !this.txtFilePath.seteditable(FALSE)
- endmethod
- --___________________________________________________________________________________________
复制代码 |
|