KEMBAR78
Animation Button of Pdms and E3d - Compress | PDF
Scribd
Upload
139 views28 pages

Animation Button of Pdms and E3d - Compress

The document describes a PDMS tool called YENYEN.pml that contains various animation buttons. It defines methods for each button that change the button labels and colors when clicked to perform actions like showing/hiding the CE, locking/unlocking components, claiming/unclaiming work, and saving/removing work. The methods call PDMS commands to manipulate the CE and work items.

Uploaded by

Angel Gabriel Perez Valdez
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
139 views28 pages

Animation Button of Pdms and E3d - Compress

The document describes a PDMS tool called YENYEN.pml that contains various animation buttons. It defines methods for each button that change the button labels and colors when clicked to perform actions like showing/hiding the CE, locking/unlocking components, claiming/unclaiming work, and saving/removing work. The methods call PDMS commands to manipulate the CE and work items.

Uploaded by

Angel Gabriel Perez Valdez
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 28

 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

ANIMATION BUTTON OF PDMS


 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

- Buka Notepad
- Copy pml ini dan kasih nama : YENYEN.pmlfrm

-- Created by Mansyur Usman, Indra Wahjudin and Maliki Yakub for MEINDO Tools 

-- Dated : 20-08-2014

Kill !!YENYEN

Setup Form !!YENYEN

Title 'ToolBox'

Var !UserName Login

Var !UserName UpCase(|$!UserName


UpCase(|$!UserName|)
|)

paragraph.par2 at
at 2 0 text |Name : $!UserName|
$!UserName|

Button .MSR 'SHOW CE' AT X1 Y1.3


Y1.3 CALLBACK
CALLBACK |!THIS.SHOWUSMAN()| WIDTH 10
button .LOCK 'LOCK'
'LOCK' AT X1 Y2.3 CALLBACK
CALLBACK |!THIS.LOCK()| WIDTH 10

button .CLAIM 'CLAIM'


'CLAIM' AT X1 Y3.3 CALLBACK
CALLBACK |!THIS.CLAIM()| WIDTH 10

button .SAVE 'GET WORK' AT X1 Y4.3 CALLBACK |!THIS.SAVE()|


|!THIS.SAVE()| WIDTH 10

button .MARK 'MARK'


'MARK' AT X1 Y5.3 CALLBACK
CALLBACK |!THIS.MARK()| WIDTH 10

button .REM 'SAVE' AT X1 Y6.3 CALLBACK


CALLBACK |!THIS.REM()| WIDTH 10

button .COG 'SHOW


'SHOW COG' AT X13.5 Y1.3 CALLBACK
CALLBACK |!THIS.COG()|
|!THIS.COG()| WIDTH 10

button .GRID 'SHOW


'SHOW GRID' AT X13.5 Y2.3 CALLBACK
CALLBACK |!THIS.GRID()| WIDTH 10

button .DT 'SHOW DATUM'


DATUM' AT X13.5 Y3.3 CALLBACK |!THIS.DATUM()| WIDTH 10

button .AX 'SHOW


'SHOW AXES' AT X13.5 Y4.3 CALLBACK
CALLBACK |!THIS.AXES()| WIDTH 10

button .INS 'SHOW


'SHOW INSU' AT X13.5 Y5.3 CALLBACK
CALLBACK |!THIS.INSU()| WIDTH 10

button .OBS 'SHOW OBST'


OBST' AT X13.5 Y6.3 CALLBACK |!THIS.OBST()|
|!THIS.OBST()| WIDTH 10

Button .DISMISS 'DISMISS' AT X1 y7.3


y7.3 CALLBACK |KILL!!YENYEN|
|KILL!!YENYEN| WIDTH 10 backg
backg
WHITE

Button .CANCEL 'CANCEL' AT X13.5 y7.3 WIDTH 10 backg WHITE CANCEL

Exit
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

DEFINE METHOD .SHOWUSMAN()

!CENAM = !!CE.NAME

!VISI = !THIS.MSR.TAG

IF !VISI.EQ( 'SHOW CE' ) THEN


!THIS.MSR.TAG = 'HIDE CE'

!THIS.DISMISS.TAG = 'CANCEL'

!THIS.CANCEL.TAG = 'DISMISS'

!THIS.MSR.BACKGROUND = 340

!THIS.LOCK.BACKGROUND = 340

!THIS.CLAIM.BACKGROUND = 340

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 340

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 340

!THIS.REM.BACKGROUND = 340

!THIS.COG.BACKGROUND = 308

!THIS.GRID.BACKGROUND = 308

!THIS.DT.BACKGROUND = 308

!THIS.AX.BACKGROUND = 308

!THIS.INS.BACKGROUND = 308

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 308

 ADD CE

 AUTO CE

MARK CE
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

ELSEIF !VISI.EQ( 'HIDE CE' ) THEN

!THIS.MSR.TAG = 'SHOW CE'

!THIS.DISMISS.TAG = 'DISMISS'

!THIS.CANCEL.TAG = 'CANCEL'

!THIS.MSR.BACKGROUND = 336
!THIS.LOCK.BACKGROUND = 336

!THIS.CLAIM.BACKGROUND = 336

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 336

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 336

!THIS.REM.BACKGROUND = 336

!THIS.COG.BACKGROUND = 345

!THIS.GRID.BACKGROUND = 345

!THIS.DT.BACKGROUND = 345

!THIS.AX.BACKGROUND = 345

!THIS.INS.BACKGROUND = 345

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 345

REM CE

UNMARK CE

ENDIF

$!CENAM

ENDMETHOD
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

DEFINE METHOD .LOCK()

!CENAM = !!CE.NAME

!VISI = !THIS.LOCK.TAG

IF !VISI.EQ( 'LOCK' ) THEN


!THIS.LOCK.TAG = 'UNLOCK'

!THIS.DISMISS.TAG = 'CANCEL'

!THIS.CANCEL.TAG = 'DISMISS'

!THIS.MSR.BACKGROUND = 345

!THIS.LOCK.BACKGROUND = 345

!THIS.CLAIM.BACKGROUND = 345

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 345

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 345

!THIS.REM.BACKGROUND = 345

!THIS.COG.BACKGROUND = 334

!THIS.GRID.BACKGROUND = 334

!THIS.DT.BACKGROUND = 334

!THIS.AX.BACKGROUND = 334

!THIS.INS.BACKGROUND = 334

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 334

!Tolarray = Object Array()

var !pipearray coll all pipe for ce

var !equiarray coll all equi for ce

var !struarray coll all stru for ce


 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

!Tolarray.Appendarray(!pipearray)

!Tolarray.Appendarray(!equiarray)

!Tolarray.Appendarray(!struarray)

!I = 1
do !mem values !Tolarray

!pipename = name of $!mem

!equiname = name of $!mem

!struname = name of $!mem

$!mem

IF !!CE.TYPE.EQ('PIPE') THEN

LOCK ALL

!I = !I + 1

Q NAME LOCK

ELSEIF !!CE.TYPE.EQ('EQUI') THEN

LOCK ALL

!I = !I + 1

Q NAME LOCK

ELSEIF !!CE.TYPE.EQ('STRU') THEN

LOCK ALL

!I = !I + 1

Q NAME LOCK

ENDIF

ENDDO
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

ELSEIF !VISI.EQ( 'UNLOCK' ) THEN

!THIS.LOCK.TAG = 'LOCK'

!THIS.DISMISS.TAG = 'DISMISS'

!THIS.CANCEL.TAG = 'CANCEL'

!THIS.MSR.BACKGROUND = 336

!THIS.LOCK.BACKGROUND = 336

!THIS.CLAIM.BACKGROUND = 336

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 336

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 336

!THIS.REM.BACKGROUND = 336

!THIS.COG.BACKGROUND = 345

!THIS.GRID.BACKGROUND = 345

!THIS.DT.BACKGROUND = 345

!THIS.AX.BACKGROUND = 345

!THIS.INS.BACKGROUND = 345

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 345

UNLOCK ALL

UNCLAIM ALL

Q NAME LOCK

ENDIF

$!CENAM

ENDMETHOD
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

DEFINE METHOD .CLAIM()

!CENAM = !!CE.NAME

!VISI = !THIS.CLAIM.TAG

IF !VISI.EQ( 'CLAIM' ) THEN


!THIS.CLAIM.TAG = 'UNCLAIM'

!THIS.MSR.BACKGROUND = 348

!THIS.LOCK.BACKGROUND = 348

!THIS.CLAIM.BACKGROUND = 348

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 348

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 348

!THIS.REM.BACKGROUND = 348

!THIS.COG.BACKGROUND = 308

!THIS.GRID.BACKGROUND = 308

!THIS.DT.BACKGROUND = 308

!THIS.AX.BACKGROUND = 308

!THIS.INS.BACKGROUND = 308

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 308

getwork

claim ce hier

ELSEIF !VISI.EQ( 'UNCLAIM' ) THEN

!THIS.CLAIM.TAG = 'CLAIM'

!THIS.MSR.BACKGROUND = 336

!THIS.LOCK.BACKGROUND = 336
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

!THIS.CLAIM.BACKGROUND = 336

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 336

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 336

!THIS.REM.BACKGROUND = 336

!THIS.COG.BACKGROUND = 329

!THIS.GRID.BACKGROUND = 329

!THIS.DT.BACKGROUND = 329

!THIS.AX.BACKGROUND = 329

!THIS.INS.BACKGROUND = 329

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 329

getwork

unclaim all

ENDIF

$!CENAM

ENDMETHOD

DEFINE METHOD .SAVE()

!CENAM = !!CE.NAME

!VISI = !THIS.SAVE.TAG

IF !VISI.EQ( 'GET WORK' ) THEN

!THIS.SAVE.TAG = 'REM ALL'


 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

!THIS.MSR.BACKGROUND = 348

!THIS.LOCK.BACKGROUND = 348

!THIS.CLAIM.BACKGROUND = 348

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 348
!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 348

!THIS.REM.BACKGROUND = 348

!THIS.COG.BACKGROUND = 352

!THIS.GRID.BACKGROUND = 352

!THIS.DT.BACKGROUND = 352

!THIS.AX.BACKGROUND = 352
!THIS.INS.BACKGROUND = 352

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 352

GETWORK

REPRE UPDATE

UNCLAIM ALL

ELSEIF !VISI.EQ( 'REM ALL' ) THEN

!THIS.SAVE.TAG = 'GET WORK'

!THIS.MSR.BACKGROUND = 352

!THIS.LOCK.BACKGROUND = 352

!THIS.CLAIM.BACKGROUND = 352

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 352

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 352

!THIS.REM.BACKGROUND = 352
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

!THIS.COG.BACKGROUND = 329

!THIS.GRID.BACKGROUND = 329

!THIS.DT.BACKGROUND = 329

!THIS.AX.BACKGROUND = 329
!THIS.INS.BACKGROUND = 329

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 329

REM ALL

ENDIF

$!CENAM
ENDMETHOD

DEFINE METHOD .MARK()

!CENAM = !!CE.NAME

!VISI = !THIS.MARK.TAG

IF !VISI.EQ( 'MARK' ) THEN

!THIS.MARK.TAG = 'UNMARK'

!THIS.MSR.BACKGROUND = 310

!THIS.LOCK.BACKGROUND = 310

!THIS.CLAIM.BACKGROUND = 310

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 310

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 310

!THIS.REM.BACKGROUND = 310
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

!THIS.COG.BACKGROUND = 334

!THIS.GRID.BACKGROUND = 334

!THIS.DT.BACKGROUND = 334

!THIS.AX.BACKGROUND = 334

!THIS.INS.BACKGROUND = 334
!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 334

MARK CE

ELSEIF !VISI.EQ( 'UNMARK' ) THEN

!THIS.MARK.TAG = 'MARK'

!THIS.MSR.BACKGROUND = 327

!THIS.LOCK.BACKGROUND = 327

!THIS.CLAIM.BACKGROUND = 327
!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 327

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 327

!THIS.REM.BACKGROUND = 327

!THIS.COG.BACKGROUND = 329

!THIS.GRID.BACKGROUND = 329

!THIS.DT.BACKGROUND = 329

!THIS.AX.BACKGROUND = 329

!THIS.INS.BACKGROUND = 329

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 329

UNMARK ALL

ENDIF

$!CENAM

ENDMETHOD
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

DEFINE METHOD .REM()

!CENAM = !!CE.NAME

!VISI = !THIS.REM.TAG

IF !VISI.EQ( 'SAVE' ) THEN


!THIS.REM.TAG = 'REM ALL'

!THIS.MSR.BACKGROUND = 348

!THIS.LOCK.BACKGROUND = 348

!THIS.CLAIM.BACKGROUND = 348

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 348

!THIS.MARK.BACKGROUND = 348
!THIS.MARK.BACKGROUND
!THIS.REM.BACKGROUND = 348

!THIS.COG.BACKGROUND = 352

!THIS.GRID.BACKGROUND = 352

!THIS.DT.BACKGROUND = 352

!THIS.AX.BACKGROUND = 352

!THIS.INS.BACKGROUND = 352

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 352

getwork

SAVEWORK

ELSEIF !VISI.EQ( 'REM ALL' ) THEN

!THIS.REM.TAG = 'SAVE'

!THIS.MSR.BACKGROUND = 352
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

!THIS.LOCK.BACKGROUND = 352

!THIS.CLAIM.BACKGROUND = 352

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 352

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 352

!THIS.REM.BACKGROUND = 352
!THIS.COG.BACKGROUND = 329

!THIS.GRID.BACKGROUND = 329

!THIS.DT.BACKGROUND = 329

!THIS.AX.BACKGROUND = 329

!THIS.INS.BACKGROUND = 329

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 329

REM ALL

ENDIF

$!CENAM

ENDMETHOD

DEFINE METHOD .COG()

!CENAM = !!CE.NAME

!VISI = !THIS.COG.TAG

VAR !CZON COLL ALL ZONE WI PURP EQ 'COG'

DO !X FROM 1 TO !CZON.SIZE()

$!CZON[$!X]

VAR !CBOX APPEND COLL ALL BOX FOR CE

ENDDO

IF !CBOX.SIZE().EQ( 0 ) THEN
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

$P No COG BOXs found

RETURN

ENDIF

IF !VISI.EQ( 'SHOW COG' ) THEN

!LEV = '0 10'

!THIS.COG.TAG = 'HIDE COG'

!THIS.MSR.BACKGROUND = 342

!THIS.LOCK.BACKGROUND = 342

!THIS.CLAIM.BACKGROUND = 342
!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 342

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 342

!THIS.REM.BACKGROUND = 342

!THIS.COG.BACKGROUND = 317

!THIS.GRID.BACKGROUND = 317

!THIS.DT.BACKGROUND = 317

!THIS.AX.BACKGROUND = 317

!THIS.INS.BACKGROUND = 317

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 317

$P Tampilkan BOXs untuk menentukan Limit Area COG ...


 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

ELSEIF !VISI.EQ( 'HIDE COG' ) THEN

!LEV = '8 10'

!THIS.COG.TAG = 'SHOW COG'

!THIS.MSR.BACKGROUND = 317

!THIS.LOCK.BACKGROUND = 317
!THIS.CLAIM.BACKGROUND = 317

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 317

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 317

!THIS.REM.BACKGROUND = 317

!THIS.COG.BACKGROUND = 329

!THIS.GRID.BACKGROUND = 329
!THIS.DT.BACKGROUND = 329

!THIS.AX.BACKGROUND = 329

!THIS.INS.BACKGROUND = 329

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 329

$P Hilangkan BOXs Jika sudah selesai Menentukan Limit Area COG ...
. ..

ENDIF

DO !A FROM 1 TO !CBOX.SIZE()

$!CBOX[$!A]

 AUTOCOL OFF REM CE ADD CE COL PINK TRANSLU 80 EDGES ON AUTOCOL ON

LEVEL $!LEV

ENDDO

$!CENAM

ENDMETHOD
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

DEFINE METHOD .GRID()

!CENAM = !!CE.NAME

!VISI = !THIS.GRID.TAG

VAR !CZON COLL ALL ZONE WI PURP EQ 'GD'

DO !X FROM 1 TO !CZON.SIZE()

$!CZON[$!X]

VAR !CBOX APPEND COLL ALL SCTN FOR CE

ENDDO

IF !CBOX.SIZE().EQ( 0 ) THEN
$P No Gridline found

RETURN

ENDIF

IF !VISI.EQ( 'SHOW GRID' ) THEN

 ADD /KMB-GRID ENHANCE /KMB-GRID COL GREEN


GREEN

 AUTO CE

!THIS.GRID.TAG = 'HIDE GRID'

!THIS.MSR.BACKGROUND = 352

!THIS.LOCK.BACKGROUND = 352

!THIS.CLAIM.BACKGROUND = 352

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 352

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 352

!THIS.REM.BACKGROUND = 352
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

!THIS.COG.BACKGROUND = 318

!THIS.GRID.BACKGROUND = 318

!THIS.DT.BACKGROUND = 318

!THIS.AX.BACKGROUND = 318
!THIS.INS.BACKGROUND = 318

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 318

$P Tampilkan Gridline ...

ELSEIF !VISI.EQ( 'HIDE GRID' ) THEN

REM /KMB-GRID

!THIS.GRID.TAG = 'SHOW GRID'

!THIS.MSR.BACKGROUND = 318

!THIS.LOCK.BACKGROUND = 318

!THIS.CLAIM.BACKGROUND = 318

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 318

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 318

!THIS.REM.BACKGROUND = 318

!THIS.COG.BACKGROUND = 317

!THIS.GRID.BACKGROUND = 317

!THIS.DT.BACKGROUND = 317

!THIS.AX.BACKGROUND = 317

!THIS.INS.BACKGROUND = 317

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 317
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

$P Hilangkan Gridline ...

ENDIF

$!CENAM
ENDMETHOD

DEFINE METHOD .DATUM()

!CENAM = !!CE.NAME

!VISI = !THIS.DT.TAG

IF !VISI.EQ( 'SHOW DATUM' ) THEN


!THIS.DT.TAG = 'HIDE DATUM'

!THIS.MSR.BACKGROUND = 340

!THIS.LOCK.BACKGROUND = 340

!THIS.CLAIM.BACKGROUND = 340

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 340

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 340

!THIS.REM.BACKGROUND = 340

!THIS.COG.BACKGROUND = 308

!THIS.GRID.BACKGROUND = 308

!THIS.DT.BACKGROUND = 308

!THIS.AX.BACKGROUND = 308

!THIS.INS.BACKGROUND = 308

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 308
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

 ADD /KMB-DATUM

 AUTO /KMB_DATUM-POINT

ELSEIF !VISI.EQ( 'HIDE DATUM' ) THEN


!THIS.DT.TAG = 'SHOW DATUM'

!THIS.MSR.BACKGROUND = 336

!THIS.LOCK.BACKGROUND = 336

!THIS.CLAIM.BACKGROUND = 336

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 336

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 336

!THIS.REM.BACKGROUND = 336

!THIS.COG.BACKGROUND = 345

!THIS.GRID.BACKGROUND = 345

!THIS.DT.BACKGROUND = 345

!THIS.AX.BACKGROUND = 345

!THIS.INS.BACKGROUND = 345

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 345

REM /KMB-DATUM

ENDIF

$!CENAM

ENDMETHOD
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

DEFINE METHOD .AXES()

!CENAM = !!CE.NAME

!VISI = !THIS.AX.TAG

IF !VISI.EQ( 'SHOW AXES' ) THEN


!THIS.AX.TAG = 'HIDE AXES'

!THIS.MSR.BACKGROUND = 342

!THIS.LOCK.BACKGROUND = 342

!THIS.CLAIM.BACKGROUND = 342

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 342

!THIS.MARK.BACKGROUND = 342
!THIS.MARK.BACKGROUND
!THIS.REM.BACKGROUND = 342

!THIS.COG.BACKGROUND = 308

!THIS.GRID.BACKGROUND = 308

!THIS.DT.BACKGROUND = 308

!THIS.AX.BACKGROUND = 308

!THIS.INS.BACKGROUND = 308

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 308

 AXES AT CE

ELSEIF !VISI.EQ( 'HIDE AXES' ) THEN

!THIS.AX.TAG = 'SHOW AXES'

!THIS.MSR.BACKGROUND = 336

!THIS.LOCK.BACKGROUND = 336

!THIS.CLAIM.BACKGROUND = 336
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 336

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 336

!THIS.REM.BACKGROUND = 336

!THIS.COG.BACKGROUND = 342
!THIS.GRID.BACKGROUND = 342

!THIS.DT.BACKGROUND = 342

!THIS.AX.BACKGROUND = 342

!THIS.INS.BACKGROUND = 342

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 342

 AXES OFF

ENDIF
$!CENAM

ENDMETHOD

DEFINE METHOD .INSU()

REPRE INSUL ON TRANSLUCENCY 25

REM CE

 ADD CE

!CENAM = !!CE.NAME

!VISI = !THIS.INS.TAG

IF !VISI.EQ( 'SHOW INSU' ) THEN

!THIS.INS.TAG = 'HIDE INSU'


 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

!THIS.MSR.BACKGROUND = 306

!THIS.LOCK.BACKGROUND = 306

!THIS.CLAIM.BACKGROUND = 306

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 306

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 306
!THIS.REM.BACKGROUND = 306

!THIS.COG.BACKGROUND = 306

!THIS.GRID.BACKGROUND = 306

!THIS.DT.BACKGROUND = 306

!THIS.AX.BACKGROUND = 306

!THIS.INS.BACKGROUND = 306
!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUN D = 306

ELSEIF !VISI.EQ( 'HIDE INSU' ) THEN

REPRE INSUL OFF

REM CE

 ADD CE

!THIS.INS.TAG = 'SHOW INSU'

!THIS.MSR.BACKGROUND = 336

!THIS.LOCK.BACKGROUND = 336

!THIS.CLAIM.BACKGROUND = 336

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 336

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 336

!THIS.REM.BACKGROUND = 336
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

!THIS.COG.BACKGROUND = 342

!THIS.GRID.BACKGROUND = 342

!THIS.DT.BACKGROUND = 342

!THIS.AX.BACKGROUND = 342

!THIS.INS.BACKGROUND = 342
!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 342

ENDIF

$!CENAM

ENDMETHOD

DEFINE METHOD .OBST()

REPRE OBST ON TRANSLUCENCY 25

REM CE

 ADD CE

!CENAM = !!CE.NAME

!VISI = !THIS.OBS.TAG

IF !VISI.EQ( 'SHOW OBST' ) THEN

!THIS.OBS.TAG = 'HIDE OBST'

!THIS.MSR.BACKGROUND = 313

!THIS.LOCK.BACKGROUND = 313

!THIS.CLAIM.BACKGROUND = 313
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 313

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 313

!THIS.REM.BACKGROUND = 313

!THIS.COG.BACKGROUND = 355
!THIS.GRID.BACKGROUND = 355

!THIS.DT.BACKGROUND = 355

!THIS.AX.BACKGROUND = 355

!THIS.INS.BACKGROUND = 355

!THIS.OBS.BACKGROUND = 355

ELSEIF !VISI.EQ( 'HIDE OBST' ) THEN

REPRE OBST OFF

REM CE

 ADD CE

!THIS.OBS.TAG = 'SHOW OBST'

!THIS.MSR.BACKGROUND = 312

!THIS.LOCK.BACKGROUND = 312

!THIS.CLAIM.BACKGROUND = 312

!THIS.SAVE.BACKGROUND
!THIS.SAVE.BACKGROUND = 312

!THIS.MARK.BACKGROUND
!THIS.MARK.BACKGROUND = 312

!THIS.REM.BACKGROUND = 312

!THIS.COG.BACKGROUND = 309

!THIS.GRID.BACKGROUND = 309

!THIS.DT.BACKGROUND = 309
 

By : Mansyur Usman (mansyur.usm@gmail.com


mansyur.usm@gmail.com)), Indra Wahjudin and Maliki Yakub

!THIS.AX.BACKGROUND = 309

!THIS.INS.BACKGROUND = 309

!THIS.OBS.BACKGROUND
!THIS.OBS.BACKGROUND = 309

ENDIF

$!CENAM
ENDMETHOD

- Simpan file ini ke C:\AVEVA\Plant\PDMS12.0.SP


C:\AVEVA\Plant\PDMS12.0.SP6\PMLLIB\design\forms
6\PMLLIB\design\forms atau
- C:\AVEVA\Plant\PDMS12.1.SP2\PML
C:\AVEVA\Plant\PDMS12.1.SP2\PMLLIB\design\forms
LIB\design\forms atau
- C:\Program Files (x86)\AVEVA\Plant\E3D1.1.0\PMLL
(x86)\AVEVA\Plant\E3D1.1.0\PMLLIB\design\forms
IB\design\forms
- Masuk ke PDMS atau E3D dan ketik di Command Line :

You might also like