...
Elbow
...
Drawing
...
Script
...
layer4 - Layernew creates a new green layer "elbow."
...
layer4
...
<
...
-
...
layer
...
new("elbow",green)
Wiki Markup |
---|
{float:left|border=2px solid black} [!elbow1.bmp|width=280px!|AutoCAD Channel Program] Top View {float} * |
elbow1
...
-
...
Calls
...
the
...
...
...
to
...
create
...
an
...
elbow.
...
elbow1
...
<
...
-
...
elbow(sedtankelbow1
...
origin,ND
...
SedPipeEntrance,ENPipeSpec)
sedtankelbow1origin =
- x: PlantOrigin0 - LSed + WInletChannel/2
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 3*(WSed/2 - outerradius(NDSedLaunder))/4 - ElbowRadius(NDSedPipeEntrance)
- z: PlantOrigin2 + sedtankpipe9length + SSedInlet + 2ElbowRadius(NDSedPipeEntrance)
NDSedPipeEntrance = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow
ENPipeSpec = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
Wiki Markup |
---|
{~}PipeSpec~) sedtankelbow1{~}origin~ = * x: Plant{~}Origin0~ \- L{~}Sed~ + W{~}InletChannel~/2 * y: Plant{~}Origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4 - ElbowRadius(ND{~}SedPipeEntrance~) * z: Plant{~}Origin2~ + sedtankpipe9{~}length~ + S{~}SedInlet~ + 2ElbowRadius(ND{~}SedPipeEntrance~) ND{~}SedPipeEntrance~ = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow EN{~}PipeSpec~ = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code. \\ \\ {float:left|border=2px solid black} [!rotate6.bmp|width=280px!|AutoCAD Channel Program] Top View {float} * |
rotate6
...
-
...
Rotate3d turns the object based on a given axis and degree angle.
rotate6 <- rotate3d(p1,p2,"x",-90)
...
Note:
...
p1
...
and
...
p2
...
are
...
dummy
...
variables
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankelbow1origin0
- y:
...
- sedtankelbow1
...
- origin1 +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- sedtankelbow1origin2 + innerD(ND
...
- SedPipeEntrance,EN
...
- PipeSpec)/2
...
p2
...
=
...
- x:
...
- sedtankelbow1origin0
- y:
...
- sedtankelbow1
...
- origin1 +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- sedtankelboworigin2
"x"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
-90
...
-
...
rotation angle
Wiki Markup |
---|
angle \\ \\ {float:left|border=2px solid black} [!rotate7.bmp|width=280px!|AutoCAD Channel Program] Top View {float} * |
rotate7
...
-
...
Rotate3d turns the object based on a given axis and degree angle.
rotate7 <- rotate3d(p1,p2,"y",90)
...
Note:
...
p1
...
and
...
p2
...
are
...
dummy
...
variables
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankelbow1origin0
- y:
...
- sedtankelbow1
...
- origin1 +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- sedtankelbow1
...
- origin2 +
...
- innerD(ND
...
- SedPipeEntrance,EN
...
- PipeSpec)/2
...
p2
...
=
...
- x:
...
- sedtankelbow1origin0
- y:
...
- sedtankelbow1
...
- origin1 +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- sedtankelboworigin2
"y"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
90
...
-
...
rotation
...
angle.
Wiki Markup |
---|
{float:left|border=2px solid black}
[!copy1.bmp|width=280px!|AutoCAD Channel Program]
Top View
{float} |
copy1 - CopyDa duplicates the selected object.
copy1 <- copyDa(p1,sedtankpipe5
...
origin,sedtankpipe6
...
origin,sedtankpipe7
...
origin,sedtankpipe8
...
origin)
Note:
...
p1
...
is
...
a
...
dummy
...
variable
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankpipe5origin0
- y: sedtankpipe5origin1
- z: sedtankpipe5origin2 - outerradius(NDSedPipeEntrance)
sedtankpipe5origin =
- x: PlantOrigin0 - LSed + ElbowRadius(NDSedPipeEntrance)
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 3(WSed/2 - outerradius(ND{~}SedLaunder))/4
...
- z:
...
- Plant
...
- Origin2 +
...
- (W
...
- Sed/2)*tank(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
sedtankpipe6origin =
- x: PlantOrigin0 - LSed + ElbowRadius(NDSedPipeEntrance)
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 1(WSed/2 - outerradius(ND{~}SedLaunder))/4
...
- z:
...
- Plant
...
- Origin2 +
...
- (W
...
- Sed/2)*tank(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
sedtankpipe7origin =
- x: PlantOrigin0 - LSed + ElbowRadius(NDSedPipeEntrance)
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 1(WSed/2 - outerradius(ND{~}SedLaunder))/4
...
- z:
...
- Plant
...
- Origin2 +
...
- (W
...
- Sed/2)*tank(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
sedtankpipe8origin =
- x: PlantOrigin0 - LSed + ElbowRadius(NDSedPipeEntrance)
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 3(WSed/2 - outerradius(ND{~}SedLaunder))/4
...
- z:
...
- Plant
...
- Origin2 +
...
- (W
...
- Sed/2)*tank(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
rotate8 - Rotate3d turns the object based on a given axis and degree angle.Wiki Markup {float:left|border=2px solid black} [!rotate8.bmp|width=280px!|AutoCAD Channel Program] Top View {float}
rotate8 <- rotate3d(p1,sedtankpipe1origin,"z",sedtankpipe5
...
angle)
Note:
...
p1
...
is
...
a
...
dummy
...
variable
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankpipe5origin0
- y:
...
- sedtankpipe5origin1
- z:
...
- sedtankpipe5origin2 - outerradius(ND
...
- SedPipeEntrance)
sedtankpipe1origin =
- x: PlantOrigin0 - LSed + ElbowRadius(NDSedPipeEntrance)
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 3(WSed/2 - outerradius(ND{~}SedLaunder))/4
...
- z:
...
- Plant
...
- Origin2 +
...
- (W
...
- Sed/2)*tank(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
"z"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
sedtankpipe5angle = -(rad/deg)
...
*
...
atan((((5*L
...
Sed)/8
...
-
...
W
...
Channel/2)/
...
[3
...
*
...
(W
...
Sed/2
...
-
...
outerradius(ND
...
SedLaunder))/4)
...
+
...
outerradius(ND
...
SedLaunder))
...
-
...
1)
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotate9.bmp|width=280px!|AutoCAD Channel Program]
Top View
{float} |
rotate9 - Rotate3d turns the object based on a given axis and degree angle.
rotate9 <- rotate3d(p1,sedtankpipe2origin,"z".sedtankpipe6
...
angle)
Note:
...
p1
...
is
...
a
...
dummy
...
variable
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankpipe6origin0
- y:
...
- sedtankpipe6origin1
- z:
...
- sedtankpipe6origin2 - outerradius(ND
...
- SedPipeEntrance)
sedtankpipe2origin =
- x: PlantOrigin0 - LSed + ElbowRadius(NDSedPipeEntrance)
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 1(WSed/2 - outerradius(ND{~}SedLaunder))/4
...
- z:
...
- Plant
...
- Origin2 +
...
- (W
...
- Sed/2)*tank(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
"z"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
sedtankpipe6angle = -(rad/deg)
...
*
...
(((L
...
Sed/8
...
-
...
W
...
Channel/2)/
...
((W
...
Sed/2
...
-
...
outerradius(ND
...
SedLaunder))/4)
...
+
...
outerradius(ND
...
SedLaunder))
...
-
...
1)
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotate10.bmp|width=280px!|AutoCAD Channel Program]
Top View
{float} |
rotate10 - Rotate3d turns the object based on a given axis and degree angle.
rotate10 <- rotate3d(p1,sedtankpipe3origin,"z".sedtankpipe7
...
angle)
Note:
...
p1
...
is
...
a
...
dummy
...
variable
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankpipe7origin0
- y:
...
- sedtankpipe7origin1
- z:
...
- sedtankpipe7origin2 - outerradius(ND
...
- SedPipeEntrance)
sedtankpipe3origin =
- x: PlantOrigin0 - LSed + ElbowRadius(NDSedPipeEntrance)
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 1(WSed/2 - outerradius(ND{~}SedLaunder))/4
...
- z:
...
- Plant
...
- Origin2 +
...
- (W
...
- Sed/2)*tank(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
"z"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
sedtankpipe7angle = -(rad/deg)
...
*
...
atan(((3*L
...
Sed/8
...
-
...
W
...
Channel/2)/
...
((W
...
Sed/2
...
-
...
outerradius(ND
...
SedLaunder))/4)
...
+
...
outerradius(ND
...
SedLaunder))
...
-
...
1)
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotate11.bmp|width=280px!|AutoCAD Channel Program]
Top View
{float} |
rotate11 - Rotate3d turns the object based on a given axis and degree angle.
rotate11 <- rotate3d(p1,sedtankpipe4origin,"z".sedtankpipe8
...
angle)
Note:
...
p1
...
is
...
a
...
dummy
...
variable
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankpipe8origin0
- y:
...
- sedtankpipe8origin1
- z:
...
- sedtankpipe8origin2 - outerradius(ND
...
- SedPipeEntrance)
sedtankpipe4origin =
- x: PlantOrigin0 - LSed + ElbowRadius(NDSedPipeEntrance)
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 1(WSed/2 - outerradius(ND{~}SedLaunder))/4
...
- z:
...
- Plant
...
- Origin2 +
...
- (W
...
- Sed/2)*tank(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
"z"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
sedtankpipe8angle = -(rad/deg)
...
*
...
atan((((7*L
...
Sed)/8
...
-
...
W
...
Channel/2)/
...
(3*(W
...
Sed/2
...
-
...
outerradius(ND
...
SedLaunder))/4)
...
+
...
outerradius(ND
...
SedLaunder))
...
-
...
1)
...
layerset - Layerset selects the layer "0".
...
layerset
...
<
...
-
...
layer
...
set("0")
...
layerfreeze4 - Layerfreeze locks the layer "elbow"
...
so
...
that
...
it
...
cannot
...
be
...
edited.
...
layerfreeze4
...
<
...
-
...
layer
...
freeze("elbow")
...
layer5 - Layernew creates a new green layer "elbowa."
...
layer5
...
<
...
-
...
layer
...
new("elbowa",green)
...
Wiki Markup |
---|
{float:left|border=2px solid black}
[!elbow5.bmp|width=280px!|AutoCAD Channel Program]
Top View
{float} |
elbow5 - Calls the Elbow Program to create an elbow.
elbow5 <- elbow(sedtankelbow5origin,NDSedPipeEntrance,ENPipeSpec)
sedtankelbow5origin =
- x: tankorigin0 - (7*LSed)/8 - ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedPipeEntrance)
- z: tankorigin2 + SSedInlet + sedtankpipe9length + ElbowRadius(NDSedPipeEntrance)
NDSedPipeEntrance = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow
ENPipeSpec = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotate14.bmp|width=280px!|AutoCAD Channel Program]
Top View
{float} |
rotate14 - Rotate3d turns the object based on a given axis and degree angle.
rotate14 <- rotate3d(p1,p2,"x",90)
...
Note:
...
p1
...
and
...
p2
...
are
...
dummy
...
variables
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankelbow5origin0
- y:
...
- sedtankelbow5
...
- origin1 +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- sedtankelbow5
...
- origin2 +
...
- (innerD(ND
...
- SedPipeEntrance,EN
...
- PipeSpec)/2)
...
p2
...
=
...
- x:
...
- sedtankelbow5origin0
- y:
...
- sedtankelbow5
...
- origin1 +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- sedtankelbow5origin2
"x"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
90
...
-
...
specifies
...
rotation
...
angle.
Wiki Markup |
---|
{float:left|border=2px solid black}
[!copy2.bmp|width=280px!|AutoCAD Channel Program]
Top View
{float} |
copy2 - CopyDa duplicates the selected objuect.
copy2 <- copyDa(p1,sedtankelbow5
...
origin,sedtankelbow6
...
origin,sedtankelbow7
...
origin,sedtankelbow8
...
origin)
Note:
...
p1
...
is
...
a
...
dummy
...
variable
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankpipe9origin0 - ElbowRadius(ND
...
- SedPipeEntrance)
- y:
...
- sedtankpipe9origin1
- z:
...
- sedtankpipe9origin2
sedtankelbow5origin =
- x: tankorigin0 - (7*L
...
- Sed)/8
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- y:
...
- tank
...
- origin1 +
...
- W
...
- Sed/2
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- tank
...
- origin2 +
...
- S
...
- SedInlet +
...
- sedtankpipe9length + ElbowRadius(ND
...
- SedPipeEntrance)
sedtankelbow6origin =
- x: tankorigin0 - (5*L
...
- Sed)/8
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- y:
...
- tank
...
- origin1 +
...
- W
...
- Sed/2
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- tankorigin2 + SSedInlet + sedtankpipe9length + ElbowRadius(NDSedPipeEntrance)
sedtankelbow7origin =
- x: tankorigin0 - (3*LSed)/8 - ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedPipeEntrance)
- z: tankorigin2 + SSedInlet + sedtankpipe9length + ElbowRadius(NDSedPipeEntrance)
sedtankelbow8origin =
- x: tankorigin0 - (1*LSed)/8 - ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedPipeEntrance)
- z: tankorigin2 + SSedInlet + sedtankpipe9length + ElbowRadius(NDSedPipeEntrance
rotate15 - Rotate3d turns the object based on a given axis and degree angle.Wiki Markup {float:left|border=2px solid black} [!rotate15.bmp|width=700px!|AutoCAD Channel Program] Top View {float}
rotate15 <- rotate3d(p1,sedtankpipe9origin,"z".sedtankpipe6angle)
Note: p1 is a dummy variable used only in the program help section to designate the matrix below.
p1 =
- x: sedtankpipe9origin1 - outerradius(NDSedPipeEntrance)
- y: sedtankpipe9origin2
- z: sedtankpipe10origin0
sedtankelbow9origin =
- x: tankorigin0 - LSed + WChannel + TChannelWall + ElbowRadius(NDSedLaunder~)
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedLaunder)
- z: tankorigin2 + HWSed - HSedAbove/2 - ElbowRadius(NDSedLaunder)
"z" - specifies axis that object will be rotated about.
sedtankpipe6angle = -(rad/deg) * (((LSed/8 - WChannel/2)/ ((WSed/2 - outerradius(NDSedLaunder))/4) + outerradius(NDSedLaunder))-1)
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotate16.bmp|width=700px!|AutoCAD Channel Program]
Top View
{float} |
rotate16 - Rotate3d turns the object based on a given axis and degree angle.
rotate16 <- rotate3d(p1,sedtankpipe10origin,"z".sedtankpipe7angle)
Note: p1 is a dummy variable used only in the program help section to designate the matrix below.
p1 =
- x: sedtankpipe10origin1 - outerradius(NDSedPipeEntrance)
- y: sedtankpipe10origin2
- z: sedtankpipe11origin0
sedtankelbow10origin =
- x: tankorigin0 - LSed + WChannel + T{~}ChannelWall
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedLaunder)
- z: tankorigin2 + HSed - HChannel - TMp
"z" - specifies axis that object will be rotated about.
sedtankpipe7angle = -(rad/deg) * atan(((3*LSed/8 - WChannel/2)/ ((WSed/2 - outerradius(NDSedLaunder))/4) + outerradius(NDSedLaunder))-1)
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotate17.bmp|width=700px!|AutoCAD Channel Program]
Top View
{float} |
rotate17 - Rotate3d turns the object based on a given axis and degree angle.
rotate17 <- rotate3d(p1,sedtankpipe11origin,"z".sedtankpipe5angle)
Note: p1 is a dummy variable used only in the program help section to designate the matrix below.
p1 =
- x: sedtankpipe10origin1 - outerradius(NDSedPipeEntrance)
- y: sedtankpipe11origin2
- z: sedtankpipe12origin0
sedtankpipe11origin =
- x: tankorigin0 - (3*LSed)/8
- y: tankorigin1 + WSed/2
- z: tankorigin2 + SSedInlet
"z" - specifies axis that object will be rotated about.
sedtankpipe5{~}angle - specifies rotation angle.
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotate18.bmp|width=700px!|AutoCAD Channel Program]
Top View
{float} |
rotate18 - Rotate3d turns the object based on a given axis and degree angle.
rotate18 <- rotate3d(p1,sedtankpipe12origin,"z".sedtankpipe8angle)
Note: p1 is a dummy variable used only in the program help section to designate the matrix below.
p1 =
- x: sedtankpipe12origin0
- y: sedtankpipe12origin1 - outerradius(NDSedPipeEntrance)
- z: sedtankpipe12origin2
sedtankpipe12origin =
- x: tankorigin0 - (LSed)/8
- y: tankorigin1 + WSed/2
- z: tankorigin2 + SSedInlet
"z" - specifies axis that object will be rotated about.
sedtankpipe8{~}angle - specifies rotation angle.
layerset - Layerset selects the layer "0".
layerset <- layerset("0")
layerfreeze5 - Layerfreeze locks the layer "elbowa" so that it cannot be edited.
layerfreeze5 <- layerfreeze("elbowa")
layer6 - Layerfreeze locks the layer "elbowb" so that it cannot be edited.
layer6 <- layernew("elbowb",green)
elbow9 - Calls the Elbow Program to create an elbow.
elbow9 <- elbow(sedtankelbow9origin,NDSedLaunder,ENPipeSpec)
sedtankelbow9origin =
- x: tankorigin0 - LSed + WChannel + TChannelWall + ElbowRadius(NDSedLaunder~)
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedLaunder)
- z: tankorigin2 + HWSed - HSedAbove/2 - ElbowRadius(NDSedLaunder)
NDSedPipeEntrance = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow
ENPipeSpec = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
rotate19 - Rotate3d turns the object based on a given axis and degree angle.
rotate19 <- rotate3d(p1,p2,"z",90)
...
Note:
...
p1
...
and
...
p2
...
are
...
dummy
...
variables
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankelbow9origin0
- y:
...
- sedtankelbow9
...
- origin1 +
...
- ElbowRadius(ND
...
- SedLaunder)
- z:
...
- sedtankelbow9
...
- origin2 +
...
- (innerD(ND
...
- SedLaunder,EN
...
- PipeSpec)/2)
...
p2
...
=
...
- x:
...
- sedtankelbow9origin0
- y:
...
- sedtankelbow9
...
- origin1 +
...
- ElbowRadius(ND
...
- SedLaunder)
- z:
...
- sedtankelbow9origin2
"z"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
90
...
-
...
specifies
...
rotation
...
angle.
...
rotate20 - Rotate3d turns the object based on a given axis and degree angle.
rotate20 <- rotate3d(p1,p2,"x",90)
...
Note:
...
p1
...
and
...
p2
...
are
...
dummy
...
variables
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankelbow9origin0
- y:
...
- sedtankelbow9
...
- origin1 +
...
- ElbowRadius(ND
...
- SedLaunder)
- z:
...
- sedtankelbow9
...
- origin2 +
...
- (innerD(ND
...
- SedLaunder,EN
...
- PipeSpec)/2)
...
p2
...
=
...
- x:
...
- sedtankelbow9origin0
- y:
...
- sedtankelbow9
...
- origin1 +
...
- ElbowRadius(ND
...
- SedLaunder)
- z:
...
- sedtankelbow9origin2
"x"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
90
...
-
...
specifies
...
rotation
...
angle.
...
elbow10 - Calls the Elbow Program to create an elbow.
elbow10 <- elbow(sedtankelbow10origin,NDSedLaunder,ENPipeSpec)
sedtankelbow10origin =
- x: tankorigin0 - LSed + WChannel + T{~}ChannelWall
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedLaunder)
- z: tankorigin2 + HSed - HChannel - TMp
NDSedPipeEntrance = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow
ENPipeSpec = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
rotate21 - Rotate3d turns the object based on a given axis and degree angle.
rotate21 <- rotate3d(p1,p2,"x",-90)
...
Note:
...
p1
...
and
...
p2
...
are
...
dummy
...
variables
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankelbow10origin0
- y:
...
- sedtankelbow10
...
- origin1 +
...
- ElbowRadius(ND
...
- SedLaunder)
- z:
...
- sedtankelbow10
...
- origin2 +
...
- (innerD(ND
...
- SedLaunder,EN
...
- PipeSpec)/2)
...
p2
...
=
...
- x:
...
- sedtankelbow10origin0
- y:
...
- sedtankelbow10
...
- origin1 +
...
- ElbowRadius(ND
...
- SedLaunder)
- z:
...
- sedtankelbow10origin2
"x"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
-90
...
-
...
specifies
...
rotation
...
angle.
...
layerset - Layerset selects the layer "0".
...
layerset
...
<
...
-
...
layer
...
set("0")
...
layerfreeze6 - Layerfreeze locks the layer "elbowb"
...
so
...
that
...
it
...
cannot
...
be
...
edited.
...
layerfreeze6
...
<
...
-
...
layer
...
freeze("elbowb")