...
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:
...
- sedtankelbow1
...
- origin2 +
...
- 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
...
-
...
...
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(ND
...
- SedPipeEntrance)
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)
Wiki Markup {float:left|border=2px solid black} [!rotate8.bmp|width=280px!|AutoCAD Channel Program] Top View {float}
...
rotate8
...
- -
...
- Rotate3d turns the object based on a given axis and degree angle.
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 |
|---|
1^) \\ \\ {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 |
|---|
1^) \\ \\ {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 |
|---|
1^) \\ \\ {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(NDSedPipeEntrance)
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
...
...
...
to
...
create
...
an
...
elbow.
...
elbow5
...
<
...
-
...
elbow(sedtankelbow5
...
origin,ND
...
SedPipeEntrance,EN
...
PipeSpec)
sedtankelbow5origin =
- x: tankorigin0 - (7*L
...
- Sed)/8
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- y:
...
- tank
...
- origin1 +
...
- W
...
- Sed/2
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- tank
...
- origin2 +
...
- S
...
- SedInlet +
...
- sedtankpipe9
...
- length +
...
- 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 |
|---|
{~}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} [!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
...
-
...
...
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 +
...
- sedtankpipe9
...
- length +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
sedtankelbow6origin =
- x: tankorigin0 - (5*L
...
- Sed)/8
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- y:
...
- tank
...
- origin1 +
...
- W
...
- Sed/2
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- tank
...
- origin2 +
...
- S
...
- SedInlet +
...
- sedtankpipe9
...
- length +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
sedtankelbow7origin =
- x: tankorigin0 - (3*L
...
- Sed)/8
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- y:
...
- tank
...
- origin1 +
...
- W
...
- Sed/2
...
- -
...
- ElbowRadius(ND
...
- SedPipeEntrance)
- z:
...
- tank
...
- origin2 +
...
- S
...
- SedInlet +
...
- sedtankpipe9
...
- length +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
sedtankelbow8origin =
- x: tankorigin0 - (1*LSed)/8 - ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedPipeEntrance)
- z: tankorigin2 + SSedInlet + sedtankpipe9length + ElbowRadius(NDSedPipeEntrance
Wiki Markup {float:left|border=2px solid black} [!rotate15.bmp|width=700px!|AutoCAD Channel Program] Top View {float}
...
rotate15
...
- -
...
- Rotate3d turns the object based on a given axis and degree angle.
rotate15 <- rotate3d(p1,sedtankpipe9origin,"z".sedtankpipe6
...
angle)
Note:
...
p1
...
is
...
a
...
dummy
...
variable
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankpipe9origin1 - outerradius(ND
...
- SedPipeEntrance)
- 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)
...
*
...
(((L
...
Sed/8
...
-
...
W
...
Channel/2)/
...
((W
...
Sed/2
...
-
...
outerradius(ND
...
SedLaunder))/4)
...
+
...
outerradius(ND
...
SedLaunder))
...
-1)
| Wiki Markup |
|---|
1^) \\ \\ {float:left|border=2px solid black} [!rotate16.bmp|width=700px!|AutoCAD Channel Program] Top View {float} *rotate16* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle. rotate16 <\- rotate{~}3d~(p1,sedtankpipe10{~}origin~ {float} |
rotate16 - Rotate3d turns the object based on a given axis and degree angle.
rotate16 <- rotate3d(p1,sedtankpipe10origin,"z".sedtankpipe7
...
angle)
Note:
...
p1
...
is
...
a
...
dummy
...
variable
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankpipe10origin1 - outerradius(ND
...
- SedPipeEntrance)
- y:
...
- sedtankpipe10origin2
- z:
...
- sedtankpipe11origin0
sedtankelbow10origin =
- x: tankorigin0 - LSed + WChannel + T{~}ChannelWall
...
- y:
...
- tank
...
- origin1 +
...
- W
...
- Sed/2
...
- -
...
- ElbowRadius(ND
...
- SedLaunder)
- z:
...
- tank
...
- origin2 +
...
- HSed - HChannel - TMp
"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 |
|---|
1^) \\ \\ {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".sedtankpipe5
...
angle)
Note:
...
p1
...
is
...
a
...
dummy
...
variable
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankpipe10origin1 - outerradius(ND
...
- SedPipeEntrance)
- y:
...
- sedtankpipe11origin2
- z:
...
- sedtankpipe12origin0
sedtankpipe11origin =
- x: tankorigin0 - (3*L
...
- Sed)/8
...
- y:
...
- tank
...
- origin1 +
...
- W
...
- Sed/2
...
- z:
...
- tank
...
- origin2 +
...
- 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".sedtankpipe8
...
angle)
Note:
...
p1
...
is
...
a
...
dummy
...
variable
...
used
...
only
...
in
...
the
...
program
...
help
...
section
...
to
...
designate
...
the
...
matrix
...
below.
...
p1
...
=
...
- x:
...
- sedtankpipe12origin0
- y:
...
- sedtankpipe12origin1 - outerradius(ND
...
- SedPipeEntrance)
- 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
...
<
...
-
...
layer
...
set("0")
...
layerfreeze5 - Layerfreeze locks the layer "elbowa"
...
so
...
that
...
it
...
cannot
...
be
...
edited.
...
layerfreeze5
...
<
...
-
...
layer
...
freeze("elbowa")
...
layer6 - Layerfreeze locks the layer "elbowb"
...
so
...
that
...
it
...
cannot
...
be
...
edited.
...
layer6
...
<
...
-
...
layer
...
new("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")