Catalogues and Specifications
Reference Manual
Piping Components
: Construction of Typical Piping Components
Construction of Typical Piping Components
This section gives sample macros for the construction of typical Catalogue Piping Components using PARAGON.
Each macro starts at CATEGORY level. The view parameters used to produce the drawings shown vary between each example, and so are not given here. Each drawing has REPRESENTATION settings of TUBE ON CENTRELINE ON PPOINTS ON NUMBERS ON. Some of the Components are too large to fit onto a typical view area when drawn at the default SCALE value of 1. Values of 0.5 are suggested for examples 1 and 3, and 0.05 for example 6.
The definition for each Component includes the possibility of insulation being present, although this is not drawn. Note how the clash geometry and component geometry have been combined.
Figure 10:3.
A Control Valve, using the SDSH primitive
NEW PTSE /CVMWPS
NEW GMSE /CVMWGS
NEW SCOM /CVMW
GTYP INST PARA 25 100 133 17.5 FLGD
PTRE /CVMWPS
GMRE /CVMWGS
MODEL CE
GOTO PTRE
NEW PTAX
PCON (PARAM[5]) NUMB 1 PBOR (PARAM[1])
PDIS (PARAM[2]) PAXI -Y
NEW PTAX
PCON (PARAM[5]) NUMB 2 PBOR (PARAM[1])
PDIS (PARAM[2]) PAXI Y
NEW PTAX
PCON NULL NUM 3 PBOR 0 PDIS (2.50 * PARAM[4]) PAXI X
/CVMW
GOTO GMRE
NEW SCYL
PDIS (PARAM[2]) PHEI (-2 * PARAM[2]) PDIA (PARAM[3]) PAXI Y
NEW SCYL
PDIS 0 PHEI (2.5 * PARAM[2]) PDIA (1.6 * PARAM[2]) PAXI X
NEW SSPH
OBST 0 CLFL TRUE TUFL TRUE PDIS 0 PAXI -Y PDIA (0.50 * PARAM[1])
NEW SCON
OBST 0 CLFL TRUE TUFL TRUE PDIS (2.5 * PARAM[2]) PDIA (1.6 * PARAM[2])
PAXI X
NEW SDSH
CLFL TRUE TUFL TRUE PDIA (1.6 * PARAM[2]) PHEI (0.8 * PARAM[2])
PDIS (2.5 * PARAM[2]) PAXI X
NEW SCYL
OBST 0 TUFL TRUE PDIS (PARAM[2]) PHEI (-1 * PARAM[4])
PDIA (PARAM[3] + IPARAM[1]) PAXI -Y
NEW SCYL COPY PREV PAXI Y
OBST 0 TUFL TRUE PDIS (PARAM[2]) PHEI (-1.0 * PARAM[4])
PDIA (PARAM[3] + IPARAM[1]) PAXI Y
NEW LSNO
OBST 0 TUFL TRUE PTDI (PARAM[2] - PARAM[4]) PBDI 0
PTDM (PARAM[3] + IPARAM[1]) PBDM (1 + IPARAM[1])
PAAX -Y PBAX Z
NEW LSNO COPY PREV PAAX Y
NEW LSNO
OBST 0 CLFL TRUE PTDI (PARAM[2]) PBDI 0
PTDM (PARAM[3] + IPARAM[1]) PBDM (1 + IPARAM[1])
PAAX -Y PBAX Z
NEW LSNO COPY PREV PAAX Y
$.
Figure 10:4.
An Unequal Tee
NEW PTSE /MWTPTSET
NEW GMSE /MWTGMSET
NEW SCOM /MWNEQTEE
GTYP TEE PARA 100 80 114 90 BWD 105 80 15 10
PTRE /MWTPTSET
GMRE /MWTGMSET
MODEL CE
GOTO PTRE
NEW PTAX
PCON (PARAM[5]) NUMB 1 PBOR (PARAM[1])
PDIS (PARAM[6]) PAXI -Y
NEW PTAX COPY PREV PAXI Y NUM 2
NEW PTAX
PCON (PARAM[5]) NUMB 3 PBOR (PARAM[2])
PDIS (PARAM[7]) PAXI X
/MWNEQTEE
GOTO GMRE
NEW LINE
OBST 0 CLFL TRUE P1 P2
NEW LINE
OBST 0 CLFL TRUE P3 P0
NEW SSPH
OBST 0 CLFL TRUE PDIS 0 PAXI P1 PDIA (PARAM[8])
NEW SSPH
COPY PREV PAXI P2
NEW SSPH
OBST 0 CLFL TRUE LEVE 0 2 PDIS 0 PAXI P3
PDIA (PARAM[9])
NEW SCYL
TUFL TRUE PDIS 0 PHEI (-2 * PARAM[6])
PDIA (PARAM[3]) PAXI P1
NEW SCYL
TUFL TRUE PDIS 0 PHEI (PARAM[7])
PDIA (PARAM[4]) PAXI X
END
$.
Figure 10:5.
A Weld Neck Flange
NEW PTSE /MWFLPS
NEW GMSE /MWFLGS
NEW SCOM /MWWNFLAN
GTYP FLAN PARA 100 114 254 30 56 180 TUB FLGD 20
PTRE /MWFLPS
GMRE /MWFLGS
MODEL CE
GOTO PTRE
NEW PTAX
PCON (PARAM[8]) NUMB 1 PBOR (PARAM[1])
PDIS 0 PAXI -Y
NEW PTAX
PCON (PARAM[7]) NUMB 2 PBOR (PARAM[1]) PAXI Y
PDIS (PARAM[4] + PARAM[5])
/MWWNFLAN
GOTO GMRE
NEW SCYL
CLFL TRUE TUFL TRUE PDIS 0 PHEI (PARAM[4])
PDIA (PARAM[3] + IPARAM[1]) PAXI Y
NEW LINE
OBST 0 CLFL TRUE P1 P2
NEW SSPH
OBST 0 CLFL TRUE PDIS 0 PAXI P2 PDIA (PARAM[9])
NEW LSNO
TUFL TRUE PTDI (PARAM[5] + PARAM[4])
PBDI (PARAM[4]) PBDM (PARAM[6] + IPARAM[1])
PTDM (PARAM[2] + IPARAM[1]) PAAX Y PBAX X POFF 0
END
$.
Figure 10:6.
A Concentric Reducer
NEW PTSE /MWRPTSET
NEW GMSE /MWRGMSET
NEW SCOM /MWCR2
GTYP REDU PARA 100 80 110 90 102 0 BWD 15 10
PTRE /MWRPTSET
GMRE /MWRGMSET
MODEL CE
GOTO PTRE
NEW PTAX
NUMB 1 PCON (PARAM[7]) PBOR (PARAM[1]) PDIS 0 PAXI -Y
NEW PTCA
NUMB 2 PCON (PARAM[7]) PBOR (PARAM[2]) PX 0
PY (PARAM[5]) PZ (-1 * PARAM[6])
NEW PTAX
NUMB 3 PDIS 0 PAXI -Z
/MWCR2
GOTO GMRE
NEW LINE
OBST 0 CLFL TRUE P1 P2
NEW SSPH OBST 0 CLFL TRUE PDIS 0 PAXI P1 PDIA (PARAM[8])
NEW SSPH OBST 0 CLFL TRUE PDIS 0 PAXI P2 PDIA (0.65 * PARAM[9])
NEW LSNO
TUFL TRUE PTDI (PARAM[5])
PBDI 0 PTDM (PARAM[4] + IPARAM[1])
PBDM (PARAM[3] + IPARAM[1])
PAAX Y PBAX -Z POFF (PARAM[6])
END
$.
Figure 10:7.
An Elbow
NEW PTSE /MWPS35
NEW GMSE /MWGS34
NEW SCOM /MWEL5
GTYP ELBO PARA 50 60 25 75 15 SWF
PTRE /MWPS35
GMRE /MWGS34
MODEL CE
GOTO PTRE
NEW PTAX
PCON (PARAM[6]) NUMB 1 PBOR (PARAM[1])
PDIS (PARAM[3]) PAXI -Y
NEW PTAX
PCON (PARAM[6]) NUMB 2 PBOR (PARAM[1])
PDIS (PARAM[3]) PAXI Y 45 X
/MWEL5
GOTO GMRE
NEW LINE
OBST 0 CLFL TRUE P1 T0 P2
NEW SCTO
TUFL TRUE PAAX P1 PBAX P2 PDIA (PARAM[2] + IPARAM[1])
NEW LSNO
OBST 0 CLFL TRUE PTDI (PARAM[5]) PBDI 0.00 PTDM (PARAM[4] + IPARAM[1])
PBDM (PARAM[4] + IPARAM[1]) PAAX P1 PBAX Z TVIS FALSE
NEW LSNO COPY PREV PAAX P2
NEW SCYL OBST 0
TUFL TRUE PHEI (PARAM[5])
PDIA (PARAM[4] + IPARAM[1]) PAXI P1
NEW SCYL COPY PREV PAXI P2
END
$.
Figure 10:8.
A Mitred Elbow, using SSLC Primitives
NEW PTSE /MWPTESTC1
NEW GMSE /MWGTESTC1
NEW SCOM /MWLOBST-51
GTYP ELBO PARA 500 2000 398.7 -550 -152.2 -1234.6 -585.5 BWDN
PTRE /MWPTESTC1
GMRE /MWGTESTC1
MODEL CE
GOTO PTRE
NEW PTAX
PCON (PARAM[8]) NUMB 1 PBOR (PARAM[1]) PDIS (PARAM[2])
PAXI -Y
NEW PTAX
PCON (PARAM[8]) NUMB 2 PBOR (PARAM[1]) PDIS (PARAM[2])
PAXI X
NEW PTCA
NUMB 3 PX (-PARAM[6]) PY (PARAM[5]) PZ 0
PTCDIR -X 24 -Y
NEW PTCA
NUMB 4 PX (-PARAM[7]) PY (PARAM[7]) PZ 0
PTCDIR -X 45 -Y
NEW PTCA
NUMB 5 PX (-PARAM[5]) PY (PARAM[6]) PZ 0
PTCDIR -Y 24 -X
/MWLOBST-51
GOTO GMRE
NEW SRTO
PAAX P1 PBAX P2
PDIA (-1.2 * PARAM[4])
PHEI (PARAM[3])
NEW SSLC OBST 0
CLFL TRUE TUFL TRUE PDIA (PARAM[4]) PHEI (-PARAM[3]) PDIS 0
PAXI P1 PXTS -11.5
NEW SSLC OBST 0
CLFL TRUE TUFL TRUE PDIA (PARAM[4]) PHEI (-PARAM[3]) PDIS 0
PAXI P2 PXTS 11.5
NEW SSLC OBST 0
CLFL TRUE TUFL TRUE PDIA (PARAM[4]) PHEI (-2 * PARAM[3])
PDIS (PARAM[3]) PAXI P3 PXTS -11.5 PXBS 11.5
NEW SSLC COPY PREV PAXI P4
NEW SSLC COPY PREV PAXI P5
END
$.
Figure 10:9.
A Rectangular Cross Section Pipe, using BOXI primitives
PARAGON
Syntax:
NEW PTSE /PBOXI2
NEW PTAX
PCON BWD NUM 1 PBOR (PARAM[1]) PDIS 0 PAXI -Y
END OF END
NEW GMSE /GBOXI2
NEW BOXI
PAXI P1 PXLE (PARAM[3]) PZLE (PARAM[2]) CLFL TRUE TUFL TRUE
END OF END
NEW PTSE /PELBO
NEW PTAX
PCON BWD NUM 1 PBOR (PARAM[1]) PDIS 250
PAXI -Y
END
NEW PTAX
PCON BWD NUM 2 PBOR (PARAM[1]) PDIS 250
PAXI X
END OF END
NEW GMSE /GELBO
NEW SRTO
CLFL TRUE TUFL TRUE PAAX P1 PBAX P2 PDIA (PARAM[2])
PHEI (PARAM[3])
END OF END
NEW PTSE /PVELBO
NEW PTAX
PCON BWD NUM 1 PBOR (PARAM[1]) PDIS 250
PAXI -Y
END
NEW PTAX
PCON BWD NUM 2 PBOR (PARAM[1]) PDIS 250
PAXI Z
END OF END
NEW PTSE /PWELD
NEW PTAX
PCON BWD NUM 1 PBOR (PARAM[1]) PDIS 0 PAXI Y
END
NEW PTAX
PCON BWD NUM 2 PBOR (PARAM[1]) PDIS 0 PAXI -Y
END OF END
NEW GMSE /GWELD
NEW SSPH
CLFL TRUE TUFL TRUE PAXI P1 PDIA (PARAM[2])
END OF END
NEW SCOM /BOX100
GTYP TUBE PARA 300100 100 300
END
OLD SCOM /BOX100
PTRE PTSE /PBOXI2 GMRE GMSE /GBOXI2
NEW SCOM /HELBO100
GTYP ELBO PARA 300100 300 100
END
OLD SCOM /HELBO100
PTRE /PELBO GMRE /GELBO
NEW SCOM /VELBO100
GTYP ELBO PARA 300100 100 300
END
OLD SCOM /VELBO100
PTRE /PVELBO GMRE /GELBO
NEW SCOM /BWELD100
GTYP WELD PARA 300100 200
END
OLD SCOM /BWELD100
PTRE /PWELD GMRE /GWELD
SPECON Macro:
NEW SPECIFICATION /BOXI.SPEC
MATREF =0
FLUREF =0
RATING 0.000
LINETYPE NUL
HEADING
TYPE NAME PBOR0 CATREF DETAIL MATXT CMPREF BLTREF
TUBE */D300X100 300100.0 /BOX101 =0 =0 =0 =0
HEADING
TYPE NAME PBOR0 STYP CATREF DETAIL MATXT CMPRE BLTREF
ELBO */HB300X100 300100.0 H /HELBO101 =0 =0 =0 =0
ELBO */VB300X100 300100.0 V /VELBO101 =0 =0 =0 =0
HEADING
TYPE NAME PBOR0 CATREF DETAIL MATXT CMPREF BLTREF
WELD */W300X100 300100.0 /BWELD101 =0 =0 =0 =0
$.
MODEL Syntax:
NEW PIPE
SPEC BOXI.SPEC
NEW BRAN /BOXIBRAN
HPOS E0 HBOR 300100 HDIR N HCON BWD
TPOS E2500 N7000 U1000 TDIR S TBOR 300100 TCON BWD
NEW WELD SEL CONN TO PH AND P0 IS U
SPRE /BOXI.SPEC/W300X100 LSTU/BOXI.SPEC/D300X100 ORIF TRUE POSF TRUE
NEW ELBO SEL WI STYP V
THRO N5000 DIR U
NEW ELBO SEL WI STYP H
THRO U1000 DIR E
NEW ELBO SEL WI STYP V
THRO PT DIR N
NEW WELD SEL CONN TO PT AND P0 IS E
END
Note:
That it is assumed that a COCO element allowing BWD to BWD connections already exists in your database.
1974 to current year.
AVEVA Solutions Limited and its subsidiaries. All rights reserved.
