...
Inlet
...
Pipe
...
Drawing
...
Script
...
-
...
layout
...
1
viewtops - Adjusts the workspace so that the object is being viewed from the top.
viewtops <- viewtop1
layerthawc - Layerthaw unlocks the layer "channel" so that it can be edited.
layerthawc <- layerthaw("channel")
layersetc - Layerset selects the layer "channel".
layersetc <- layerset("channel")
Wiki Markup |
---|
*viewtops* \- Adjusts the workspace so that the object is being viewed from the top. viewtops <\- viewtop1 *layerthawc* \- [Layer{~}thaw~|AutoCAD Basics Layer] unlocks the layer "channel" so that it can be edited. layerthawc <\- layer{~}thaw~("channel") *layersetc* \- [Layer{~}set~|AutoCAD Basics Layer] selects the layer "channel". layersetc <\- layer{~}set~("channel") {float:left|border=2px solid black} [!cylinder1.bmp|width=500px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
cylinder1
...
-
...
...
creates
...
a
...
cylinder
...
based
...
on
...
three
...
dimensions.
...
cylinder1
...
<
...
-
...
cylinderA(sedtankpipe1
...
origin,outerradius(ND
...
SedPipeEntrance),-TChannelWall)
sedtankpipe1origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank
TChannelWall = Thickness of channel wall.
Wiki Markup |
---|
{~}ChannelWall~) sedtankpipe1{~}origin~ = * x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2 * y: tank{~}origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4 * z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ ND{~}SedPipeEntrance~ = Nominal diameter of launder. T{~}ChannelWall~ = Thickness of channel wall. \\ \\ {float:left|border=2px solid black} [!cylinder2.bmp|width=500px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
cylinder2
...
-
...
...
creates
...
a
...
cylinder
...
based
...
on
...
three
...
dimensions.
...
cylinder2
...
<
...
-
...
cylinderA(sedtankpipe2
...
origin,outerradius(ND
...
SedPipeEntrance),-TChannelWall)
sedtankpipe2origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
TChannelWall = Thickness of channel wall.
Wiki Markup |
---|
{~}ChannelWall~) sedtankpipe2{~}origin~ = * x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2 * y: tank{~}origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 1*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4 * z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ ND{~}SedPipeEntrance~ = Nominal diameter of launder. T{~}ChannelWall~ = Thickness of channel wall. \\ \\ {float:left|border=2px solid black} [!cylinder3.bmp|width=500px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
cylinder3
...
-
...
...
creates
...
a
...
cylinder
...
based
...
on
...
three
...
dimensions.
...
cylinder3
...
<
...
-
...
cylinderC(sedtankpipe3
...
origin,outerradius(ND
...
SedPipeEntrance),-TChannelWall)
sedtankpipe3origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank
TChannelWall = Thickness of channel wall.
Wiki Markup |
---|
{~}ChannelWall~) sedtankpipe3{~}origin~ = * x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2 * y: tank{~}origin1~ + W{~}Sed~/2 - outerradius(ND{~}SedLaunder~) - 1*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4 * z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ ND{~}SedPipeEntrance~ = Nominal diameter of launder. T{~}ChannelWall~ = Thickness of channel wall. \\ \\ {float:left|border=2px solid black} [!cylinder4.bmp|width=500px600px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
cylinder4
...
-
...
CylinderA creates a cylinder based on three dimensions.
cylinder4 <- cylinderA(sedtankpipe4origin,outerradius(ND
...
SedPipeEntrance),-TChannelWall)
sedtankpipe4origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank
TChannelWall = Thickness of channel wall.
subtract1 - SubtractH subtracts a selected object based on three specified points.
subtract1 <- subtractH(channelorigin,p1,p2)
channelorigin =
- if layout 1-3:
- x: tankorigin0 - LSed + WChannel
- y: tankorigin1 - TPlantWall
- z: tankorigin2 + HSed - HChannel
- if layout4:
- x: tankorigin0 - LSed -TChannelWall
- y: tankorigin1 - TPlantWall
- z: tankorigin2 + HSed - HChannel
p1 =
- x: sedtankpipe1origin0 + outerradius(NDSedPipeEntrance)
- y: sedtankpipe1origin1 + outerradius(NDSedPipeEntrance)
- z: sedtankpipe1origin2
p2 =
- x: sedtankpipe4origin0 - outerradius(NDSedPipeEntrance)
- y: sedtankpipe4origin1 - outerradius(NDSedPipeEntrance)
- z: sedtankpipe4origin2
layerset - Layerset selects the layer "0".
layerset <- layerset("0")
layerfreeze - Layerfreeze locks the layer "channel" so that it cannot be edited.
layerfreeze <- layerfreeze("channel")
layer3 - Layernew creates a new blue layer "pipe".
layer3 <- layernew("pipe",blue)
Wiki Markup |
---|
{~}ChannelWall~) sedtankpipe4{~}origin~ = * x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2 * y: tank{~}origin1~ + W{~}Sed~/2 - outerradius(ND{~}SedLaunder~) - 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4 * z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ ND{~}SedPipeEntrance~ = Nominal diameter of launder. T{~}ChannelWall~ = Thickness of channel wall. \\ \\ *subtract1* \- [SubtractH|AutoCAD Basics Subtractions] subtracts a selected object based on three specified points. subtract1 <\- subtractH(channel{~}origin~,p1,p2) channel{~}origin~ = * if layout 1-3: ** x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~ ** y: tank{~}origin1~ \- T{~}PlantWall~ ** z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ * if layout4: ** x: tank{~}origin0~ \- L{~}Sed~ \-T{~}ChannelWall~ ** y: tank{~}origin1~ \- T{~}PlantWall~ ** z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ p1 = * x: sedtankpipe1{~}origin0~ + outerradius(ND{~}SedPipeEntrance~) * y: sedtankpipe1{~}origin1~ + outerradius(ND{~}SedPipeEntrance~) * z: sedtankpipe1{~}origin2~ p2 = * x: sedtankpipe4{~}origin0~ \- outerradius(ND{~}SedPipeEntrance~) * y: sedtankpipe4{~}origin1~ \- outerradius(ND{~}SedPipeEntrance~) * z: sedtankpipe4{~}origin2~ *layerset* \- [Layer{~}set~|AutoCAD Basics Layer] selects the layer "0". layerset <\- layer{~}set~("0") *layerfreeze* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "channel" so that it cannot be edited. layerfreeze <\- layer{~}freeze~("channel") *layer3* \- [Layer{~}new~|AutoCAD Basics Layer] creates a new blue layer "pipe". layer3 <\- layer{~}new~("pipe",blue) {float:left|border=2px solid black} [!pipe1.bmp|width=300px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
pipe1
...
-
...
Calls
...
the
...
...
...
to
...
create
...
a
...
pipe.
...
pipe1
...
<
...
-
...
Pipe(sedtankpipe1
...
origin,ND
...
SedPipeEntrance,-sedtankpipe1
...
length,ENPipeSpec)
sedtankpipe1origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe1{}length = HSed - HInletChannel - (WSed/2 * tank(ANSedBottom) + ElbowRadius(NDSedPipeEntrance))-ElbowRadius(NDSedPipeEntrance)
ENPipeSpec = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
Wiki Markup |
---|
{~}PipeSpec~) sedtankpipe1{~}origin~ = * x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2 * y: tank{~}origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4 * z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ ND{~}SedPipeEntrance~ = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank. sedtankpipe1{*}{*}{~}length~ = H{~}Sed~ \- H{~}InletChannel~ \- (W{~}Sed~/2 * tank(AN{~}SedBottom~) + ElbowRadius(ND{~}SedPipeEntrance~))-ElbowRadius(ND{~}SedPipeEntrance~) EN{~}PipeSpec~ = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code. \\ \\ {float:left|border=2px solid black} [!pipe2.bmp|width=300px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
pipe2
...
-
...
Calls
...
the
...
...
...
to
...
create
...
a
...
pipe.
...
pipe2
...
<
...
-
...
Pipe(sedtankpipe2
...
origin,ND
...
SedPipeEntrance,-sedtankpipe1length,ENPipeSpec)
sedtankpipe2origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe1{}length = HSed - HInletChannel - (WSed/2 * tank(ANSedBottom) + ElbowRadius(NDSedPipeEntrance))-ElbowRadius(NDSedPipeEntrance)
ENPipeSpec = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
Wiki Markup |
---|
{~}length~,EN{~}PipeSpec~) sedtankpipe2{~}origin~ = * x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2 * y: tank{~}origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 1*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4 * z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ ND{~}SedPipeEntrance~ = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank. sedtankpipe1{*}{*}{~}length~ = H{~}Sed~ \- H{~}InletChannel~ \- (W{~}Sed~/2 * tank(AN{~}SedBottom~) + ElbowRadius(ND{~}SedPipeEntrance~))-ElbowRadius(ND{~}SedPipeEntrance~) EN{~}PipeSpec~ = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code. \\ \\ {float:left|border=2px solid black} [!pipe3.bmp|width=300px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
pipe3
...
-
...
Calls
...
the
...
...
...
to
...
create
...
a
...
pipe.
...
pipe3
...
<
...
-
...
Pipe(sedtankpipe3
...
origin,ND
...
SedPipeEntrance,-sedtankpipe1
...
length,ENPipeSpec)
sedtankpipe3origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe1{}length = HSed - HInletChannel - (WSed/2 * tank(ANSedBottom) + ElbowRadius(NDSedPipeEntrance))-ElbowRadius(NDSedPipeEntrance)
ENPipeSpec = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
Wiki Markup |
---|
{~}PipeSpec~) sedtankpipe3{~}origin~ = * x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2 * y: tank{~}origin1~ + W{~}Sed~/2 - outerradius(ND{~}SedLaunder~) - 1*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4 * z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ ND{~}SedPipeEntrance~ = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank. sedtankpipe1{*}{*}{~}length~ = H{~}Sed~ \- H{~}InletChannel~ \- (W{~}Sed~/2 * tank(AN{~}SedBottom~) + ElbowRadius(ND{~}SedPipeEntrance~))-ElbowRadius(ND{~}SedPipeEntrance~) EN{~}PipeSpec~ = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code. \\ \\ {float:left|border=2px solid black} [!pipe4.bmp|width=200px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
pipe4
...
-
...
Calls
...
the
...
...
...
to
...
create
...
a
...
pipe.
...
pipe4
...
<
...
-
...
Pipe(sedtankpipe4
...
origin,ND
...
SedPipeEntrance,-sedtankpipe1
...
length,ENPipeSpec)
sedtankpipe4origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe1{}length = HSed - HInletChannel - (WSed/2 * tank(ANSedBottom) + ElbowRadius(NDSedPipeEntrance))-ElbowRadius(NDSedPipeEntrance)
ENPipeSpec = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
Wiki Markup |
---|
{~}PipeSpec~) sedtankpipe4{~}origin~ = * x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2 * y: tank{~}origin1~ + W{~}Sed~/2 - outerradius(ND{~}SedLaunder~) - 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4 * z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ ND{~}SedPipeEntrance~ = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank. sedtankpipe1{*}{*}{~}length~ = H{~}Sed~ \- H{~}InletChannel~ \- (W{~}Sed~/2 * tank(AN{~}SedBottom~) + ElbowRadius(ND{~}SedPipeEntrance~))-ElbowRadius(ND{~}SedPipeEntrance~) EN{~}PipeSpec~ = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code. \\ \\ {float:left|border=2px solid black} [!pipe5.bmp|width=400px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
pipe5
...
-
...
Calls
...
the
...
...
...
to
...
create
...
a
...
pipe.
...
pipe5
...
<
...
-
...
Pipe(sedtankpipe5
...
origin,ND
...
SedPipeEntrance,-sedtankpipe5
...
length,EN
...
PipeSpec)
sedtankpipe5origin =
- x: tankorigin0 - LSed + WChannel/2 + ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + WSed/2*tan(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe5length = ((5LSed/8 - WInletChannel/2)2 + (outerradius(NDSedLaunder) + 3*(WSed/2 - outerradius(NDSedLaunder))/4)
...
2
...
)
...
1/2
...
-
...
2ElbowRadius(ND
...
SedPipeEntrance~)
ENPipeSpec = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
Wiki Markup |
---|
EN{~}PipeSpec~ = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code. \\ \\ {float:left|border=2px solid black} [!rotatepipe5.bmp|width=550px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
rotatepipe5
...
-
...
Rotate3d turns the object based on a given axis and degree angle.
rotatepipe5 <- rotate3d(p1,sedtankpipe5origin,"y",90)
...
p1
...
=
- x: sedtankpipe5origin0 + innerD(ND
...
- SedPipeEntrance,EN
...
- PipeSpec)/2
...
- y:
...
- sedtankpipe5origin1
- z:
...
- sedtankpipe5origin2
sedtankpipe5origin =
- x: tankorigin0 - LSed + WChannel/2 + ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + WSed/2*tan(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
"y"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
Wiki Markup |
---|
\\ \\ {float:left|border=2px solid black} [!rotate2a.bmp|width=500px!|AutoCAD Channel Program] Top View {float} * |
rotate2a
...
-
...
Rotate3d turns the object based on a given axis and degree angle.
rotate2a - rotate3d(p1,sedtankpipe1origin,"z",sedtankpipe5
...
angle)
sedtankpipe1origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
p1 =
- x: sedtankpipe5origin0
- y: sedtankpipe5origin1 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- z: sedtankpipe5origin2 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
"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(NDSedLaunder))-1)
Wiki Markup |
---|
{~}SedLaunder~))^\-1^) \\ \\ {float:left|border=2px solid black} [!pipe6 NE.bmp|width=500px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
pipe6
...
-
...
Calls
...
the
...
...
...
to
...
create
...
a
...
pipe.
...
pipe6
...
<
...
-
...
Pipe(sedtankpipe6
...
origin,ND
...
SedPipeEntrance,sedtankpipe6
...
length,EN
...
PipeSpec)
sedtankpipe6origin =
- x: tankorigin0 - LSed + WChannel/2 + ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + WSed/2*tan(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(NDSedPipeEntrance)
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe6length = ((LSed/8 - WInletChannel/2)2 + (outerradius(NDSedLaunder) + 1*(WSed/2 - outerradius(NDSedLaunder))/4)2)1/2 - 2ElbowRadius(NDSedPipeEntrance)
Wiki Markup |
---|
{~}SedPipeEntrance~) ND{~}SedPipeEntrance~ = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank. *sedtankpipe6{*}{*}{~}length{~}* = ((L{~}Sed~/8 - W{~}InletChannel~/2)^2^ + (outerradius(ND{~}SedLaunder~) + 1*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4)^2^)^1/2^ \- 2ElbowRadius(ND{~}SedPipeEntrance~) \\ \\ {float:left|border=2px solid black} [!rotate3 new.bmp|width=500px!|AutoCAD Channel Program] Top View {float} * |
rotate3
...
-
...
Rotate3d turns the object based on a given axis and degree angle.
rotate3 <- rotate3d(p1,sedtankpipe6origin,"y",90)
...
p1
...
=
...
- x:
...
- sedtankpipe
...
- origin0 +
...
- innerD(ND
...
- SedPipeEntrance,EN
...
- PipeSpec)/2
...
- y:
...
- sedtankpipe5origin1
- z:
...
- sedtankpipe5origin0
sedtankpipe6origin =
- x: tankorigin0 - LSed + WChannel/2 + ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + WSed/2*tan(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
"y"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
90
...
-
...
rotation angle
Wiki Markup |
---|
angle \\ \\ {float:left|border=2px solid black} [!rotate3a.bmp|width=500px!|AutoCAD Channel Program] Top View {float} * |
rotate3a
...
-
...
Rotate3d turns the object based on a given axis and degree angle.
rotate3a <- rotate3d(p1,sedtankpipe2origin,"z",sedtankpipe6
...
angle)
p1 =
- x: sedtankpipe6origin0
- y: sedtankpipe6origin1 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- z: sedtankpipe6origin2 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
sedtankpipe2origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
"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} [!pipe7 NE.bmp|width=500px!|AutoCAD Channel Program] NorthEast Isometric View {float} *pipe7* \- Calls the [Pipe Program|AutoCAD Pipe Program] to create a pipe. pipe7 <\- Pipe(sedtank7{~}origin~,ND{~}SedPipeEntrance~,sedtankpipe7{~}length~,EN{~}PipeSpec~) sedtankpipe7{~}origin~ = * x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2 + ElbowRadius(ND{~}SedPipeEntrance~) * y: tank{~}origin1~ + W{~}Sed~/2 - outerradius(ND{~}SedLaunder~) - 1*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4 * z: tank{~}origin2~ + W{~}Sed~/2*tan(AN{~}SedBottom~) + ElbowRadius(ND{~}SedPipeEntrance~) *sedtankpipe7{*}{*}{~}length{~}* = ((3L{~}Sed~/8 - |
pipe7 - Calls the Pipe Program to create a pipe.
pipe7 <- Pipe(sedtank7origin,NDSedPipeEntrance,sedtankpipe7length,ENPipeSpec)
sedtankpipe7origin =
- x: tankorigin0 - LSed + WChannel/2 + ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + WSed/2*tan(ANSedBottom) + ElbowRadius(NDSedPipeEntrance)
sedtankpipe7length = ((3LSed/8 - WInletChannel/2)2 + (outerradius(NDSedLaunder) - 1*WSed/2 - outerradius(NDSedLaunder))/4)2)1/2 - 2ElbowRadius(NDSedPipeEntrance)
ENPipeSpec = Enumerated type
Wiki Markup |
---|
W{~}InletChannel~/2)^2^ + (outerradius(ND{~}SedLaunder~) - 1*W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4)^2^)^1/2^ \- 2ElbowRadius(ND{~}SedPipeEntrance~) \\ \\ {float:left|border=2px solid black} [!rotate4.bmp|width=500px!|AutoCAD Channel Program] Top View {float} * |
rotate4
...
-
...
Rotate3d turns the object based on a given axis and degree angle.
rotate4 <- rotate3d(p1,sedtankpipe7origin,"y",90)
...
p1
...
=
...
- x:
...
- sedtankpipe7
...
- origin0 +
...
- innerD(ND
...
- SedPipeEntrance,EN
...
- PipeSpec)/2
...
- y:
...
- sedtankpipe7origin1
- z:
...
- sedtankpipe7origin2
sedtankpipe7origin =
- x: tankorigin0 - LSed + WChannel/2 + ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + WSed/2*tan(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
"y"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
...
90
...
-
...
Specifies
...
rotation
...
angle.
Wiki Markup |
---|
\\ \\ {float:left|border=2px solid black} [!rotate4a.bmp|width=500px!|AutoCAD Channel Program] Top View {float} * |
rotate4a
...
-
...
Rotate3d turns the object based on a given axis and degree angle.
rotate4a <- rotate3d(p1,sedtankpipe3origin,"z",sedtankpipe7
...
angle)
p1 =
- x: sedtankpipe7origin0
- y: sedtankpipe7origin1 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- z: sedtankpipe7origin2 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
sedtankpipe3origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
"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} [!pipe8 NE.bmp|width=500px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
pipe8
...
-
...
Calls
...
the
...
...
...
to
...
create
...
a
...
pipe.
...
pipe8
...
<
...
-
...
Pipe(sedtankpipe8
...
origin,ND
...
SedPipeEntrance,sedtankpipe8
...
length,EN
...
PipeSpec)
sedtankpipe8origin =
- x: tankorigin0 - LSed + WChannel/2 + ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + WSed/2*tan(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe8length = ((7LSed/8 - WInletChannel/2)2 + (outerradius(NDSedLaunder) - 3*WSed/2 - outerradius(NDSedLaunder))/4)
...
2)
...
1/
...
2 -
...
2ElbowRadius(NDSedPipeEntrance)
Wiki Markup |
---|
{~}SedPipeEntrance~) \\ \\ {float:left|border=2px solid black} [!rotate5.bmp|width=500px!|AutoCAD Channel Program] Top View {float} * |
rotate5
...
-
...
Rotate3d turns the object based on a given axis and degree angle.
rotate5 <- rotate3d(p1,sedtankpipe8origin,"y",90)
...
p1
...
=
...
- x:
...
- sedtankpipe8
...
- origin0 +
...
- innerD(ND
...
- SedPipeEntrance,EN
...
- PipeSpec)/2
...
- y:
...
- sedtankpipe8origin1
- z:
...
- sedtankpipe8origin2
sedtankpipe8origin =
- x: tankorigin0 - LSed + WChannel/2 + ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + WSed/2*tan(AN
...
- SedBottom)
...
- +
...
- ElbowRadius(ND
...
- SedPipeEntrance)
"y"
...
-
...
specifies
...
axis
...
that
...
object
...
will
...
be
...
rotated
...
about.
Wiki Markup |
---|
\\ \\ {float:left|border=2px solid black} [!rotate5a.bmp|width=500px!|AutoCAD Channel Program] Top View {float} * |
rotate5a
...
-
...
Rotate3d turns the object based on a given axis and degree angle.
rotate5a <- rotate3d(p1,sedtankpipe4origin,"z",sedtankpipe8
...
angle)
p1 =
- x: sedtankpipe8origin0
- y: sedtankpipe8origin1 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- z: sedtankpipe8origin2 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
sedtankpipe4origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
"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)
Wiki Markup |
---|
1^) \\ \\ {float:left|border=2px solid black} [!pipe9 NE.bmp|width=500px!|AutoCAD Channel Program] Northeast Isometric View {float} *pipe9* \- Calls the [Pipe Program|AutoCAD Pipe Program] to create a pipe. pipe9 <\- Pipe(sedtankpipe9{~}origin~,ND{~}SedPipeEntrance~,sedtankpipe9{~}length~,EN{~}PipeSpec~) sedtankpipe9{~}origin~ = * x: tank{~}origin0~ \- (7*L{~}Sed~)/8 * y: tank{~}origin1~ + W{~}Sed~/2 * z: tank{~}origin2~ + S{~}SedInlet~ *sedtankpipe9{*}{*}{~}length{~}* = W{~}Sed~/2 * tan(AN{~}SedBottom~) - ElbowRadius(ND{~}SedPipeEntrance~) - |
pipe9 - Calls the Pipe Program to create a pipe.
pipe9 <- Pipe(sedtankpipe9origin,NDSedPipeEntrance,sedtankpipe9length,ENPipeSpec)
sedtankpipe9origin =
- x: tankorigin0 - (7*LSed)/8
- y: tankorigin1 + WSed/2
- z: tankorigin2 + SSedInlet
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank
sedtankpipe9length = WSed/2 * tan(ANSedBottom) - ElbowRadius(NDSedPipeEntrance) - SSedInlet + ElbowRadius(NDSedPipeEntrance)
Wiki Markup |
---|
S{~}SedInlet~ + ElbowRadius(ND{~}SedPipeEntrance~) \\ \\ {float:left|border=2px solid black} [!pipe10 NE.bmp|width=500px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
pipe10
...
-
...
Calls
...
the
...
...
...
to
...
create
...
a
...
pipe.
...
pipe10
...
<
...
-
...
Pipe(sedtankpipe10
...
origin,ND
...
SedPipeEntrance,sedtankpipe9
...
length,EN
...
PipeSpec)
sedtankpipe10origin =
- x: tankorigin0 - (5*L
...
- Sed)/8
...
- y:
...
- tank
...
- origin1 +
...
- W
...
- Sed/2
...
- z:
...
- tank
...
- origin2 + SSedInlet
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank
sedtankpipe9length = WSed/2 * tan(ANSedBottom) - ElbowRadius(NDSedPipeEntrance) - SSedInlet + ElbowRadius(NDSedPipeEntrance)
Wiki Markup |
---|
S{~}SedInlet~ *sedtankpipe9{*}{*}{~}length{~}* = W{~}Sed~/2 * tan(AN{~}SedBottom~) - ElbowRadius(ND{~}SedPipeEntrance~) - S{~}SedInlet~ + ElbowRadius(ND{~}SedPipeEntrance~) \\ \\ {float:left|border=2px solid black} [!pipe11 NE.bmp|width=500px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
pipe11
...
-
...
Calls
...
the
...
...
...
to
...
create
...
a
...
pipe.
...
pipe11
...
<
...
-
...
Pipe(sedtankpipe11
...
origin,ND
...
SedPipeEntrance,sedtankpipe9
...
length,EN
...
PipeSpec)
sedtankpipe11origin =
- x: tankorigin0 - (3*L
...
- Sed)/8
...
- y:
...
- tank
...
- origin1 +
...
- W
...
- Sed/2
...
- z:
...
- tank
...
- origin2 + SSedInlet
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank
sedtankpipe9length = WSed/2 * tan(ANSedBottom) - ElbowRadius(NDSedPipeEntrance) - SSedInlet + ElbowRadius(NDSedPipeEntrance)
Wiki Markup |
---|
S{~}SedInlet~ *sedtankpipe9{*}{*}{~}length{~}* = W{~}Sed~/2 * tan(AN{~}SedBottom~) - ElbowRadius(ND{~}SedPipeEntrance~) - S{~}SedInlet~ + ElbowRadius(ND{~}SedPipeEntrance~) \\ \\ {float:left|border=2px solid black} [!pipe12 NE.bmp|width=500px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
pipe12
...
-
...
Calls
...
the
...
...
...
to
...
create
...
a
...
pipe.
...
pipe12
...
<
...
-
...
Pipe(sedtankpipe12
...
origin,ND
...
SedPipeEntrance,sedtankpipe9
...
length,ENPipeSpec)
sedtankpipe12origin =
- x: tankorigin0 - (LSed)/8
- y: tankorigin1 + WSed/2
- z: tankorigin2 + SSedInlet
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank
sedtankpip9length = WSed/2 * tan(ANSedBottom) - ElbowRadius(NDSedPipeEntrance) - SSedInlet + ElbowRadius(NDSedPipeEntrance)
layerfreeze2 - Layerfreeze locks the layer "pipe" so that it cannot be edited.
layerfreeze2 <- layerfreeze("pipe")
Wiki Markup |
---|
{~}PipeSpec~) sedtankpipe12{~}origin~ = * x: tank{~}origin0~ \- (L{~}Sed~)/8 * y: tank{~}origin1~ + W{~}Sed~/2 * z: tank{~}origin2~ + S{~}SedInlet~ *sedtankpip9{*}{*}{~}length{~}* = W{~}Sed~/2 * tan(AN{~}SedBottom~) - ElbowRadius(ND{~}SedPipeEntrance~) - S{~}SedInlet~ + ElbowRadius(ND{~}SedPipeEntrance~) \\ \\ *layerfreeze2* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "pipe" so that it cannot be edited. layerfreeze2 <\- layer{~}freeze~("pipe") {float:left|border=2px solid black} [!cylinder5.bmp|width=500px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
cylinder5 - CylinderA creates a cylinder based on three dimensions.
cylinder5 <- cylinderA(sedtankpipe14origin,outerradius(NDSedLaunder),-TPlantWall)
sedtankpipe14origin =
- x: tankorigin0 - LSed
- y: tankorigin1 + WSed/2
- z: tankorigin2 + HSed - HChannel - TMp
NDSedLaunder = Nominal diameter of launder.
TChannelWall = Thickness of channel wall.
Wiki Markup |
---|
* \- [CylinderA|AutoCAD Basics Cylinders] creates a cylinder based on three dimensions. cylinder5 <\- cylinderA(sedtankpipe14{~}origin~,outerradius(ND{~}SedLaunder~),-T{~}PlantWall~) sedtankpipe14{~}origin~ = * x: tank{~}origin0~ \- L{~}Sed~ * y: tank{~}origin1~ + W{~}Sed~/2 * z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ \- T{~}Mp~ ND{~}SedPipeEntrance~ = Nominal diameter of launder. T{~}ChannelWall~ = Thickness of channel wall. \\ \\ {float:left|border=2px solid black} [!rotate2.bmp|width=300px!|AutoCAD Channel Program] Top View {float} * |
rotate2
...
-
...
Rotate3d turns the object based on a given axis and degree angle.
rotate2 <- rotate3d(p1,sedtankpipe14origin,"y",90)
...
p1
...
=
...
- x:
...
- sedtankpipe14
...
- origin0 +
...
- outerradius(ND
...
- SedLaunder)
- y:
...
- sedtankpipe14origin1
- z: sedtankpipe14origin2
sedtankpipe14origin =
- x: tankorigin0 - LSed
- y: tankorigin1 + WSed/2
- z: tankorigin2 + HSed - HChannel - TMp
"y" - specifies axis that object will be rotated about.
Wiki Markup |
---|
sedtankpipe14{~}origin2~ sedtankpipe14{~}origin~ = * x: tank{~}origin0~ \- L{~}Sed~ * y: tank{~}origin1~ + W{~}Sed~/2 * z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ \- T{~}Mp~ "y" - specifies axis that object will be rotated about. \\ \\ {float:left|border=2px solid black} [!subtract2.bmp|width=300px!|AutoCAD Channel Program] Top View {float} * |
subtract2
...
-
...
SubtractD subtracts a selected object based on two specified points.
subtract2 <- subtractD(PlantOrigin,p1)
p1 =
- x: sedtankpipe14origin0
- y: sedtankpipe14origin1 + outerradius(NDSedLaunder)
- z: sedtankpipe14origin2
//
//
layerthawp - Layerthaw unlocks the layer "pipe" so that it can be edited.
layerthawp <-layerthaw("pipe")
layersetp - Layerset selects the layer "pipe".
layersetp <- layerset("pipe")
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe13.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float} |
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe13 NE.bmp|width=300px!|AutoCAD Channel Program]
NorthEast Isometric View
{float} |
pipe13 - Calls the Pipe Program to create a pipe.
pipe13 <- Pipe(sedtankpipe13origin,NDSedLaunder,sedtankpipe13length,ENPipeSpec)
sedtankpipe13origin =
- x: tankorigin0 - LSed + WChannel + TChannelWall + ElbowRadius(NDSedLaunder)
- y: tankorigin1 + WSed/2
- z: tankorigin2 + HSed - HChannel - TMp + ElbowRadius(NDSedLaunder)
NDSedLaunder = Nominal diameter of launder.
sedtankpipe13length = HWSed - HSedAbove/2 - 2ElbowRadius(NDSedLaunder) - (HSed - HInletChannel - TMp)
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe14.bmp|width=300px!|AutoCAD Channel Program]
NorthEast Isometric View
{float} |
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe14 NE.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float} |
pipe14 - Calls the Pipe Program to create a pipe.
pipe14 <- Pipe(sedtankpipe14origin,NDSedLaunder,sedtankpipe14length,ENPipeSpec)
sedtankpipe14origin =
- x: tankorigin0 - LSed
- y: tankorigin1 + WSed/2
- z: tankorigin2 + HSed - HChannel - TMp
NDSedLaunder = Nominal diameter of launder.
sedtankpipe14length = WInletChannel + TChannelWall
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotate6.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float} |
rotate6 - Rotate3d turns the object based on a given axis and degree angle.
rotate6 <- rotate3d(p1,sedtankpipe14origin,"y",90)
p1 =
- x: sedtankpipe14origin0 + innerD(NDSedLaunder,ENPipeSpec)/2
- y: sedtankpipe14origin1
- z: sedtankpipe14origin2
sedtankpipe14origin =
- x: tankorigin0 - LSed
- y: tankorigin1 + WSed/2
- z: tankorigin2 + HSed - HChannel - TMp
"y" - specifies axis that object will be rotated about.
layerfreeze3 - Layerfreeze locks the layer "channel" so that it cannot be edited.
layerfreeze3 <- layerfreeze("pipe")