$(H
------------------------------------------------------------------------
(c) Copyright 1992 to Current Year AVEVA Solutions Limited
Macro: fcomp
Author: MARTIN WARD
Modiefied: MAX POWER
Macro Generic Type: Form Definitions
------------------------------------------------------------------------
$)
$(D
$)
kill _CDCOMP
setup form _CDCOMP at xr 0 yr 0.5
title |Piping Components|
init |CALLP ICOMP FCOMP|
$* Define Available Specifications
para _S at 0 0 text |Specifications:|
$* Pipe Specs
list _PSPEC at xmin_S ymax |Piping | call |CALLP MCOMPSPEC $<$$_PSPEC$>| width 25 length 4
var list _PSPEC add |None Available| exit
path down
vdist 0.1
$* Insulation Specs
option _ISPEC |Insulation| call |var list _CDPSPEC_ISPEC select '$$_ISPEC'
exit| width 10
var list _ISPEC add |None Available| exit
$* Tracing Spec
option _TSPEC |Tracing | call |var list _CDPSPEC_TSPEC select '$$_TSPEC'
exit| width 10
var list _TSPEC add |None Available| exit
toggle _ISPECSWITCH at xmax_ISPEC+1 ymin_ISPEC call |CALLP UPSPEC I $$_ISPECSWITCH| states |Off| |On|
toggle _TSPECSWITCH at xmax_TSPEC+1 ymin_TSPEC call |CALLP UPSPEC T $$_TSPECSWITCH| states |Off| |On|
path right
$* Movement Mode
frame _BACKWFORW at xmin_S ymax
rtoggle _FORW |Forwards| call |CALLG UCOMPMODE| states |BACKW| |FORW|
rtoggle _BACKW |Backwards| call |CALLG UCOMPMODE| states |FORW| |BACKW|
exit
path Right
frame _SHOWINSU at xmin_S ymax
rtoggle _ON |Insu on | call |REPR INSU ON UPDATE|
rtoggle _OFF |Insu off | call |REPR INSU OFF UPDATE|
exit
path down
vdist 0.4
$* Available GTYPES for Current Spec
list _TYPE AT xmin_S ymax+0.1 width 12 length 20
toggle _DEFAULT at xmax_TYPE+1 ymin_TYPE |Default| call |var _CDCHOOSEO_DEFSEL '$$_DEFAULT'| states |OFF| |ON|
toggle _ACONN |Auto Conn| call |CHOOSE AUTOC $$_ACONN
CALLP ICHOOSEO| states |OFF| |ON|
button _CHOOSE | Create | call |$$_TYPE NEW|
button _MODIFY |Re-select | call |$$_TYPE OLD|
button _HEAD |Conn Head | call |BRAN CONN PH TO ID@|
button _TAIL |Conn Tail | call |BRAN CONN PT TO ID@|
button _FIRST |Head First| call |BRAN CONN PH TO FIRST MEM|
button _LAST |Tail Last | call |BRAN CONN PT TO LAST MEM|
button _PHPT |Head->Tail| call |BRAN CONN PH TO PT OF ID BRAN@|
button _PTPH |Tail->Head| call |BRAN CONN PT TO PH OF ID BRAN@|
vdist 0.2
path RIGHT
hdist 2
$* Direction/orientation
option _DIR at xmin_S ymax_TYPE+0.75 call |CALLP MDIRECT $$_DIR| width 10
var list _DIR pairs |Direct N .| |N|
|Direct E| |E|
|Direct U| |U|
|Direct S| |S|
|Direct W| |W|
|Direct D| |D|
sel 1
exit
button _ORI |Ori| call |CALLP MROTATE ORI|
hdist 0.1
button _FLIP |Flip| at xmax+0.2 ymin call |CALLP MROTATE FLIP|
option _ANGL at xmin_S ymax+0.2 call |CALLP MROTATE $$_ANGL| width 10
var list _ANGL pairs |Rotate 30 .| |30|
|Rotate 45| |45|
|Rotate 90| |90|
|Rotate 180| |180|
sel 1
exit
$* Positioning
option _POSOPT at xmin_S ymax+0.2 call |CALLP MPOSCOMP $$_POSOPT| width 10
var list _POSOPT pairs |Thro CE| |THROCE| $* fix pur
|Thro Cursor| |THROC|
|Thro ID Cursor| |THROIDC|
|Thro Point| |THROIDP|
|Thro Next| |NEXT|
|Thro Tail| |TAIL|
|Thro Previous| |PREV|
|Thro Head| |HEAD|
|Connect| |CONN|
sel 1
exit
$* button _DISTANCE |Distance| at xmin_S ymax+0.2 call |CALLP MPOSCOMP DIST|
option _DISTANCE at xmin_S ymax+0.2 call |CALLP MPOSCOMP $$_DISTANCE| width 10 $* fix pur 23375
var list _DISTANCE pairs |Spool| |SPOOL|
|Distance| |DIST|
sel 1
exit
text _DIST width 10 isou
path down
$* Dismiss
button _DISMISS at xmin_S ymax+0.2 |Dismiss| ok
exit
$.