h1. Sedechanneltankscript

{float:left|border=2px solid black}
[!echannel.bmp|width=450px!|AutoCAD Channel Program]
NorthEast Isometric View
{float}
\\
\\
*viewtope* \- Rotates workspace so that object is being viewed from the top.

viewtope <\- viewtop1

*layernewect* \- [Layer{~}new~|AutoCAD Basics Layer] creates a new light grey layer, "echanneltank."

layernewext <-layer{~}new~("echanneltank",ltgrey)
{float:left|border=2px solid black}
[!tank1.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
*tankect* \- Calls the [Tank Program|AutoCad Tank Program] to draw a tank.

tankect <-Tank(echanneltank{~}origin~,echanneltank{~}dim~,T{~}PlantWall~)

echannel{~}origin~ =
* if layout1:
** x: 0
** y: 0
** z: 0

* if layout2:
** x: tank{~}origin0~
** y: tank{~}origin1~ \- T{~}PlantWall~
** z: tank{~}origin2~ + H{~}Sed~ \- H{~}EChannel~

* if layout3:
** x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~ + T{~}ChannelWall~ + W{~}EChannel~
** y: tank{~}origin1~ \- T{~}PlantWall~
** z: tank{~}origin2~ + H{~}Sed~ \- H{~}EChannel~

* if layout4:
** x: tank{~}origin0~ \- L{~}Sed~ + W{~}ChannelInlet~ + T{~}ChannelWall~ + W{~}EChannel~
** y: tank{~}origin1~ \- T{~}PlantWall~
** z: tank{~}origin2~ + H{~}Sed~ \- H{~}EChannel~

echannelbox{~}dim~ =
* x: W{~}EChannel~
* y: N{~}SedTanks(W{~}Sed\~ + T{~}PlantWall~)
* z: H{~}EChannel~

T{~}PlantWall~ = Thickness of tank wall of sed tank and floc tank.
\\
\\
{float:left|border=2px solid black}
[!box1.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
{float:left|border=2px solid black}
[!box1 NE.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
*boxect* \- Creates a [box|AutoCAD Basics Box] based on two points.

boxect <-box(echanneltank{~}origin~,echanneltank{~}origin~ + echannelbox{~}dim~)

echannel{~}origin~ =
* if layout1:
** x: 0
** y: 0
** z: 0

* if layout2:
** x: tank{~}origin0~
** y: tank{~}origin1~ \- T{~}PlantWall~
** z: tank{~}origin2~ + H{~}Sed~ \- H{~}EChannel~

* if layout3:
** x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~ + T{~}ChannelWall~ + W{~}EChannel~
** y: tank{~}origin1~ \- T{~}PlantWall~
** z: tank{~}origin2~ + H{~}Sed~ \- H{~}EChannel~

* if layout4:
** x: tank{~}origin0~ \- L{~}Sed~ + W{~}ChannelInlet~ + T{~}ChannelWall~ + W{~}EChannel~
** y: tank{~}origin1~ \- T{~}PlantWall~

echannelbox{~}dim~ =
* x: W{~}EChannel~
* y: N{~}SedTanks(W{~}Sed\~ + T{~}PlantWall~)
* z: H{~}EChannel~
\\
\\
*bigunion* \- [Union{~}allA~|AutoCAD Basics Unions] selects all the objects visible in the workspace and joins them all into a single object.

bigunion <-union{~}allA~
{float:left|border=2px solid black}
[!box2.bmp|width=200px!|AutoCAD Channel Program]
Top View
{float}
*boxect* \- Creates a [box|AutoCAD Basics Box] based on two points.

boxect <\- box(echannelbox{~}origin~,echannelbox{~}origin~ + echannelbox{~}dim~)

echannel{~}origin~ =
* if layout1:
** x: 0
** y: 0
** z: 0

* if layout2:
** x: tank{~}origin0~
** y: tank{~}origin1~ \- T{~}PlantWall~
** z: tank{~}origin2~ + H{~}Sed~ \- H{~}EChannel~

* if layout3:
** x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~ + T{~}ChannelWall~ + W{~}EChannel~
** y: tank{~}origin1~ \- T{~}PlantWall~
** z: tank{~}origin2~ + H{~}Sed~ \- H{~}EChannel~

* if layout4:
** x: tank{~}origin0~ \- L{~}Sed~ + W{~}ChannelInlet~ + T{~}ChannelWall~ + W{~}EChannel~
** y: tank{~}origin1~ \- T{~}PlantWall~

echannelbox{~}dim~ =
* x: W{~}EChannel~
* y: N{~}SedTanks(W{~}Sed\~ + T{~}PlantWall~)
* z: H{~}EChannel~
\\
\\
{float:left|border=2px solid black}
[!subtract1.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
*subtractect* \- [SubtractD|AutoCAD Basics Subtractions] subtracts one object from the other based on two points.

subtractect <\- subtractD(echanneltank{~}origin~,echannelbox{~}origin~)
\\
\\
*layerset* \- [Layer{~}set~|AutoCAD Basics Layer] selects the layer "0".

layerset <-layer{~}set~("0")

*layerfreezeect* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "echanneltank" so that it cannot be edited.

layerfreezeect <-layer{~}freeze~("echanneltank")

*layernewewe* \- [Layer{~}new~|AutoCAD Basics Layer] creates a new green layer, "exitweirelbow."

layernewewe <\- layer{~}new~("exitweirelbow",green)
{float:left|border=2px solid black}
[!elbow1.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
*elbowewe* \- Calls the [Elbow Program|AutoCad Elbow Program] to draw an elbow.

elbowewe <-elbow(sedtankexitweirelbow{~}origin~,ND{~}PltWeir~,EN{~}PipeSpec~)

EN{~}PipeSpec~ \- enumerated type
\\
\\
{float:left|border=2px solid black}
[!rotate1.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
*rotateewe1* \- [Rotate{~}3d~|AutoCAD Basics Rotate] rotates the selected object by the designated degrees.

rotateewe1 <\- rotate{~}3d~(p1,sedtankexitweirelbow{~}origin~,"y",90)

p1 =
* x: sedtankexitweirelbow{~}origin0~ + ElbowRadius(ND{~}PltWeir~)
* y: sedtankexitweirelbow{~}origin1~
* z: sedtankexitweirelbow{~}origin2~ \- outerradius(ND{~}PltWeir~)

"y" = rotation axis

90 = rotation angle
\\
\\
{float:left|border=2px solid black}
[!rotate2.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
*rotateewe2* \- [Rotate{~}3d~|AutoCAD Basics Rotate] rotates the selected object by the designated degrees.

rotateewe2 <\- rotate{~}3d~(p1,sedtankexitweirelbow{~}origin~,"z",90)

p1 =
* x: sedtankexitweirelbow{~}origin0~
* y: sedtankexitweirelbow{~}origin1~ + ElbowRadius(ND{~}PltWeir~) - outerradius(ND{~}PltWeir~)
* z: sedtankexitweirelbow{~}origin2~

"z" = rotation axis

90 = rotation angle
\\
\\
{float:left|border=2px solid black}
[!copy1.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
*copyewe* \- [CopyB|AutoCad Basics Copy] copies selected objects based on three selected points.

copyewe <\- copyB(exitweirpipecopy1{~}point~,exitweirpipecopy1{~}point~,exitweirpipecopy2{~}point~)
\\
\\
*layerfreezeewp* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "exitweir" so that it cannot be edited.

layerfreezeewp <\- layer{~}freeze~("exitweir")