PML Macro PDF [PDF]

Zitiervorschau

By : Mansyur Usman ([email protected])

PML & Macro for Aveva E3D and PDMS

PML AND MACRO FOR AVEVA E3D AND PDMS

-

Save file  MSRTANK.pmlfrm to C:\Program Files (x86)\AVEVA\Plant\E3D1.1.0\PMLLIB\design\forms\

-

Open Aveva E3D

Islam is My Way

By : Mansyur Usman ([email protected])

PML & Macro for Aveva E3D and PDMS

-

Type in Command line  PML REHASH ALL

-

Type in Command line  PML INDEX

-

Type in Command line  SHOW!!MSRTANK

-

Position in Zone Area of Design Explorer

-

Fill the parameter value of that tank that you wanted or used default

-

Click Create

Islam is My Way

By : Mansyur Usman ([email protected])

PML & Macro for Aveva E3D and PDMS

-

Right now we will use the macro of MSRHOLE.mac

-

Save File  MSRHOLE.mac in that drive that you wanted, in this case we save in O Drive

-

Select Primitive that you wanted to make hole

-

Drag Macro MSRHOLE.mac to the command line or Type in Command line $M O:\MSRHOLE.mac

Islam is My Way

By : Mansyur Usman ([email protected])

PML & Macro for Aveva E3D and PDMS

-

Now we will try them in Aveva PDMS

-

Save file  MSRTANK.pmlfrm to C:\AVEVA\Plant\PDMS12.1.SP4\PMLLIB\design\forms\

-

Open PDMS

Islam is My Way

By : Mansyur Usman ([email protected])

PML & Macro for Aveva E3D and PDMS

-

Type in Command line  PML REHASH ALL

-

Type in Command line  PML INDEX

-

Type in Command line  SHOW!!MSRTANK

-

Position in Zone Area of Design Explorer

-

Fill the parameter value of that tank that you wanted or used default

-

Click Create

Islam is My Way

By : Mansyur Usman ([email protected])

PML & Macro for Aveva E3D and PDMS

-

Right now we will use the macro of MSRHOLE.mac

-

Save File  MSRHOLE.mac in that drive that you wanted, in this case we save in O Drive

-

Select Primitive that you wanted to make hole

-

Drag Macro MSRHOLE.mac to the command line or Type in Command line $M O:\MSRHOLE.mac

Islam is My Way

By : Mansyur Usman ([email protected])

PML & Macro for Aveva E3D and PDMS

-- Created by : Mansyur Usman ([email protected]) -- PML for Creating Simple Tank -- PML run in Aveva E3D and Aveva PDMS -- Name : MSRTANK.pmlfrm -- Created dated 15 - September - 2015 -- Chemical Engineering Sriwijaya University (UNSRI) Palembang - Indonesia

setup form !!msrtank size 64 8 !this .formtitle='Tank Form' path d text .L1

'Diameter Tank

text .L2 'Tinggi Tank

'

' at 0 1 width 8 is REAL

at 0 2 width 8 is REAL

text .L3

'Tinggi Atap

'

at 0 3 width 8 is REAL

text .L4

'Tebal Plate

'

at 0 4 width 8 is REAL

text .L5

'Diameter Plate ' at 0 5 width 8 is REAL

text .L6

'Tebal Pondasi

text .L7

'Diameter Pondasi ' at 0 7 width 8 is REAL

text .L8

'Nama Tank

' at 0 6 width 8 is REAL

' at 0 8 width 8 is STRING

frame .framepos 'Form' at 28 1 button .msr 'Create' at 0 1 callback '!this.create()' backg yellow button .usm 'Dismiss' at 18 1 backg green CANCEL button .yen 'Delete' at 9 1 callback '!this.hapus()' backg pink

paragraph .p1 AT 0 2.5 text 'This PML is used for Creating Simple Tank in Aveva E3D and Aveva PDMS' width 34 lines 2 paragraph .p2 AT 0 4.5 text 'your faithfully Mansyur Usman' width 34 lines 3

!this.L1.val = 10000 !this.L2.val = 60000 !this.L3.val = 2000 !this.L4.val = 300

Islam is My Way

By : Mansyur Usman ([email protected]) !this.L5.val = 13000 !this.L6.val = 600 !this.L7.val = 16000 !this.L8.val = 'T-0001' exit

Define method .create() !L1 = !this.L1.val !L2 = !this.L2.val !L3 = !this.L3.val !L4 = !this.L4.val !L5 = !this.L5.val !L6 = !this.L6.val !L7 = !this.L7.val !L8 = !this.L8.val

new equi name /$!L8 new sube /$!L8/Body

new cyl Diameter $!L1 Height $!L2 new dish Height $!L3 Diameter $!L1 by U $!L2/2 enhance sube colour green new sube /$!L8/Foundation new cyl Diameter $!L5 Height $!L4

Islam is My Way

PML & Macro for Aveva E3D and PDMS

By : Mansyur Usman ([email protected]) by d $!L2/2 by d $!L4/2

new cyl Diameter $!L7 Height $!L6 by d $!L2/2 by d $!L6/2 by d $!L4

new sube /$!L8/Nozzle new sube /$!L8/Datum new sube /$!L8/Obstruction

new cyl Level 7 10 Diameter ($!L1 * 2) Height ($!L2 * 2)

ADD EQUI auto equi

DO !i FROM 1 TO 24 BY 1 rotate about N WRT /* by 15 thr cyli1 REPRE OBST ON TRANSLUCENCY 25 REM CE ADD CE refresh pause 0.5

Islam is My Way

PML & Macro for Aveva E3D and PDMS

By : Mansyur Usman ([email protected]) REPRE OBST OFF REM CE ADD CE refresh pause 0.5

enddo Endmethod

Define method .hapus() EQUI delete EQUI !this.L1.val = 100000 !this.L2.val = 50000 !this.L3.val = 20000 !this.L4.val = 600 !this.L5.val = 110000 !this.L6.val = 900 !this.L7.val = 120000 !this.L8.val = 'T-0002' Endmethod exit

Islam is My Way

PML & Macro for Aveva E3D and PDMS

By : Mansyur Usman ([email protected])

PML & Macro for Aveva E3D and PDMS

-- Created by : Mansyur Usman ([email protected]) -- Macro for Creating Primitive Hole -- The Macro run in Aveva E3D and Aveva PDMS -- Name : MSRHOLE.mac -- Created dated 15 - September - 2015 -- Chemical Engineering Sriwijaya University (UNSRI) Palembang Indonesia

Handle any Elsehandle none Endhandle

repre hole on repre update

If !!CE.type eq 'BOX' then !xl = !!ce.Xlength !yl = !!ce.Ylength !zl = !!ce.Zlength

new nbox !xle = 0.95 * !xl !yle = 1.2 * !yl !zle = 0.95 * !zl Xlength $!xle Ylength $!yle Zlength $!zle

elseIf !!CE.type eq 'CYLI' then !dia = !!ce.diameter !hei = !!ce.height

Islam is My Way

By : Mansyur Usman ([email protected]) new ncyl !diam = !dia * 0.95 !heigh = 1.2 * !hei diameter $!diam height $!heigh

elseIf !!CE.type eq 'CONE' then !dt = !!ce.dtop !db = !!ce.dbottom !hei = !!ce.height

new ncone !dto = !dt * 0.95 !dbt = !db * 0.95 !heigh = 1. * !hei

Dtop $!dto Dbottom $!dbt Height $!heigh

elseIf !!CE.type eq 'DISH' then !dia = !!ce.diameter !hei = !!ce.height !ra = !!ce.radius

new ndish !diam = !dia * 0.65 !heigh = 0.75 * !hei diameter $!diam height $!heigh radius $!ra

Islam is My Way

PML & Macro for Aveva E3D and PDMS

By : Mansyur Usman ([email protected]) elseIf !!CE.type eq 'CTOR' then !ria = !!ce.rinside !rio= !!ce.routside !ang = !!ce.angle

new nctor Rinside ($!ria - 1) Routside ($!riod -1) angle ($!ang + 10)

else endif

Islam is My Way

PML & Macro for Aveva E3D and PDMS