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

viewtop <\- viewtop1

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

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

tankict <\- Tank(ichanneltank{~}origin~,ichanneltank{~}dim~,T{~}PlantWall~)
\\
\\
{float:left|border=2px solid black}
[!ibox1.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
{float:left|border=2px solid black}
[!ibox1 NE.bmp|width=300px!|AutoCAD Channel Program]
NorthEast Isometric View
{float}
*boxictb* \- Creates a [box|AutoCAD Basics Box] based on two points.

boxictb <\- box(channelbox{~}origin~,channelbox{~}origin~ + channelbox{~}dim~)

channelbox{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~
* y: tank{~}origin1~
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~

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

subtractict <\- subtractD(ichanneltank{~}origin~,channelbox{~}origin~)

channelbox{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~
* y: tank{~}origin1~
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~
\\
\\
*layerset* \- [Layer{~}set~|AutoCAD Basics Layer] selects the layer "0".

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

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

layerfreezeict <\- layer{~}freeze~("ichanneltank")

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

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

elbowiwe <\- elbow(sedtankinletweirelbow{~}origin~,ND{~}PltWeir~,EN{~}Spec~)
\\
\\
{float:left|border=2px solid black}
[!irotate1.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
*rotateiwe1* \- [Rotate{~}3d~|AutoCAD Basics Rotate] rotates the selected object by the designated degrees.

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

p1 =
* x: sedtankinletweirelbow{~}origin0~ + ElbowRadius(ND{~}PltWeir~)
* y: sedtankinletweirelbow{~}origin1~
* z: sedtankinletweirelbow{~}origin2~ \- outerradius(ND{~}PltWeir~)
\\
\\
{float:left|border=2px solid black}
[!irotate2.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
*rotateiwe2* \- [Rotate{~}3d~|AutoCAD Basics Rotate] rotates the selected object by the designated degrees.

rotateiwe2 <\- (p1,sedtankinletweirelbow{~}origin~,"z",90)

p1 =
* x: sedtankinletweirelbow{~}origin0~
* y: sedtankinletweirelbow{~}origin1~ + ElbowRadius(NE{~}PltWeir~) - outerradius(ND{~}PltWeir~)
* z: sedtankinletweirelbow{~}origin2~
\\
\\
*layerfreezeiwe* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "inletweirelbow" so that it cannot be edited.

layerfreezeiwe <\- layer{~}freeze~("inletweirelbow")

*layernewiwp* \- [Layer{~}new~|AutoCAD Basics Layer] creates a new blue layer, "inletweir."

layernewiwp <\- layer{~}new~("inletweir",blue)
{float:left|border=2px solid black}
[!inlet weir NE.bmp|width=150px!|AutoCAD Channel Program]
Top View
{float}
*pipeiwp* \- Calls the [Pipe Program|AutoCad Pipe Program] to draw a pipe in the program.

pipeiwp <\- Pipe(inletweirpipe{~}origin~,ND{~}PltWeir~,inletweirpipe{~}length~,EN{~}PipeSpec~)
\\
\\
*layerfreezeiwp* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "inletweir" so that it cannot be edited.

layerfreezeiwp <-layer{~}freeze~("inletweir")