...

Inlet

...

Pipe

...

Drawing

...

Script

...

-

...

layout

...

1

viewtops - Adjusts the workspace so that the object is being viewed from the top.

viewtops <- viewtop1

layerthawc - Layer_thaw unlocks the layer "channel" so that it can be edited.

layerthawc <- layer_thaw("channel")

layersetc - Layer_set selects the layer "channel".

layersetc <- layer_set("channel")

*viewtops* \- Adjust 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

...

-

...

CylinderA

...

creates

...

a

...

cylinder

...

based

...

on

...

three

...

dimensions.

...

cylinder1

...

<

...

-

...

cylinderA(sedtankpipe1

...

_origin,outerradius(ND

...

_{SedPipeEntrance}),-T_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 entrance pipe from the inlet channel to the sedimentation tank

T_ChannelWall = Thickness of channel wall.

{~}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~
\\
\\
{float:left|border=2px solid black}
[!cylinder2.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*

cylinder2

...

-

...

CylinderA

...

creates

...

a

...

cylinder

...

based

...

on

...

three

...

dimensions.

...

cylinder2

...

<

...

-

...

cylinderA(sedtankpipe2

...

_origin,outerradius(ND

...

_{SedPipeEntrance}),-T_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 entrance pipe from the inlet channel to the sedimentation tank.

T_ChannelWall = Thickness of channel wall.

{{~}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~
\\
\\
{float:left|border=2px solid black}
[!cylinder3.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*

cylinder3

...

-

...

CylinderC creates a cylinder based on three dimensions.

cylinder3 <- cylinderC(sedtankpipe3_origin,outerradius(ND

...

_{SedPipeEntrance}),-T_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 entrance pipe from the inlet channel to the sedimentation tank

T_ChannelWall = Thickness of channel wall.

{float:left|border=2px solid black}
[{~}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~
\\
\\
{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(sedtankpipe4

...

_origin,outerradius(ND

...

_{SedPipeEntrance}),-T_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 entrance pipe from the inlet channel to the sedimentation tank

T_ChannelWall = Thickness of channel wall.

subtract1 - SubtractH 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 selects the layer "0".

layerset <- layer_set("0")

layerfreeze - Layer_freeze locks the layer "channel" so that it cannot be edited.

layerfreeze <- layer_freeze("channel")

layer3 - Layer_new creates a new blue layer "pipe".

layer3 <- layer_new("pipe",blue)

{~}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~
\\
\\
*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~

*holes2* \-

holes2 <\- concat(cylinder1,cylinder2,cylinder3)

*holes3* \-

holes3 <\- concat(cylinder4,subtract1)

*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

...

Pipe

...

Program

...

to

...

create

...

a

...

pipe.

...

pipe1

...

<

...

-

...

Pipe(sedtankpipe1

...

_origin,ND

...

_{SedPipeEntrance},-sedtankpipe1

...

_length,EN_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.

{~}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

...

Pipe

...

Program

...

to

...

create

...

a

...

pipe.

...

pipe2

...

<

...

-

...

Pipe(sedtankpipe2

...

_origin,ND

...

_{SedPipeEntrance},-sedtankpipe1

...

_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.

{~}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

...

Pipe

...

Program

...

to

...

create

...

a

...

pipe.

...

pipe3

...

<

...

-

...

Pipe(sedtankpipe3

...

_origin,ND

...

_{SedPipeEntrance},-sedtankpipe1

...

_length,EN_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.

{~}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

...

Pipe

...

Program

...

to

...

create

...

a

...

pipe.

...

pipe4

...

<

...

-

...

Pipe(sedtankpipe4

...

_origin,ND

...

_{SedPipeEntrance},-sedtankpipe1

...

_length,EN_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.

{~}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

...

Pipe

...

Program

...

to

...

create

...

a

...

pipe.

...

pipe5

...

<

...

-

...

Pipe(sedtankpipe5

...

_origin,ND

...

_{SedPipeEntrance},-sedtankpipe5

...

_length,EN

...

_PipeSpec)

sedtankpipe5_origin =

• x: tank_origin0 - L_Sed + W_Channel/2 + ElbowRadius(ND_{SedPipeEntrance})
• y: tank_origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 3*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + W_Sed/2*tan(AN

...

• _SedBottom)

...

• +

...

• ElbowRadius(ND

...

• _{SedPipeEntrance})

ND_{SedPipeEntrance} = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.

sedtankpipe5_length = ((5L_Sed/8 - W_InletChannel/2)² + (outerradius(ND_SedLaunder) + 3*(W_Sed/2 - outerradius(ND_{SedLaunder))/4)}

...

_²)^1/2

...

_-

...

_{2ElbowRadius(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}
[!rotatepipe5.bmp|width=550px!|AutoCAD Channel Program]
Northeast Isometric View
{float}

rotatepipe5 - Rotate_3d turns the object based on a given axis and degree angle.

rotatepipe5 <- rotate_3d(p1,sedtankpipe5_origin,"y",90)

...

p1

...

=

...

• x:

...

• sedtankpipe5

...

• _origin0 +

...

• innerD(ND

...

• _{SedPipeEntrance},EN

...

• _PipeSpec)/2

...

• y:

...

• sedtankpipe5_origin1
• z: sedtankpipe5_origin2

sedtankpipe5_origin =

• x: tank_origin0 - L_Sed + W_Channel/2 + ElbowRadius(ND_{SedPipeEntrance})
• y: tank_origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 3*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + W_Sed/2*tan(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

"y" - specifies axis that object will be rotated about.

{float:left|border=2px solid black}
[!rotate2a.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float}

rotate2a - Rotate_3d turns the object based on a given axis and degree angle.

rotate2a - rotate_3d(p1,sedtankpipe1_origin,"z",sedtankpipe5_angle)

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

p1 =

• x: sedtankpipe5_origin0
• y: sedtankpipe5_origin1 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2
• z: sedtankpipe5_origin2 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2

"z" - specifies axis that object will be rotated about.

sedtankpipe5_angle = -(rad/deg) * atan((((5*L_Sed)/8 - W_Channel/2)/ [3 * (W_Sed/2 - outerradius(ND_SedLaunder))/4) + outerradius(ND_SedLaunder))^-1)

{float:left|border=2px solid black}
[!pipe6 NE.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}

pipe6 - Calls the Pipe Program to create a pipe.

pipe6 <- Pipe(sedtankpipe6_origin,ND_{SedPipeEntrance},sedtankpipe6_length,EN_PipeSpec)

sedtankpipe6_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})

ND_{SedPipeEntrance} = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.

sedtankpipe6_length = ((L_Sed/8 - W_InletChannel/2)² + (outerradius(ND_SedLaunder) + 1*(W_Sed/2 - outerradius(ND_SedLaunder))/4)²)^1/2 - 2ElbowRadius(ND_{SedPipeEntrance})

{float:left|border=2px solid black}
[!rotate3 new.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float}

rotate3 - Rotate_3d turns the object based on a given axis and degree angle.

rotate3 <- rotate_3d(p1,sedtankpipe6_origin,"y",90)

p1 =

• x: sedtankpipe_origin0 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2
• y: sedtankpipe5_origin1
• z: sedtankpipe5_origin0

sedtankpipe6_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})

"y" - specifies axis that object will be rotated about.

90 - rotation angle

{float:left|border=2px solid black}
[!rotate3a.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float}

rotate3a - Rotate_3d turns the object based on a given axis and degree angle.

rotate3a <- rotate_3d(p1,sedtankpipe2_origin,"z",sedtankpipe6_angle)

p1 =

• x: sedtankpipe6_origin0
• y: sedtankpipe6_origin1 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2
• z: sedtankpipe6_origin2 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2

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

"z" - specifies axis that object will be rotated about.

sedtankpipe6_angle = -(rad/deg) * (((L_Sed/8 - W_Channel/2)/ ((W_Sed/2 - outerradius(ND_SedLaunder))/4) + outerradius(ND_SedLaunder))^-1)

{float:left|border=2px solid black}
[!pipe7 NE.bmp|width=500px!|AutoCAD Channel Program]
NorthEast Isometric View
{float}

pipe7 - Calls the 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 - W_InletChannel/2)² + (outerradius(ND_SedLaunder) - 1*W_Sed/2 - outerradius(ND_SedLaunder))/4)²)^1/2 - 2ElbowRadius(ND_{SedPipeEntrance})

EN_PipeSpec = Enumerated type

{float:left|border=2px solid black}
[!rotate4.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float}

rotate4 - Rotate_3d turns the object based on a given axis and degree angle.

rotate4 <- rotate_3d(p1,sedtankpipe7_origin,"y",90)

p1 =

• x: sedtankpipe7_origin0 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2
• y: sedtankpipe7_origin1
• z: sedtankpipe7_origin2

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})

"y" - specifies axis that object will be rotated about.

90 - Specifies rotation angle.

{float:left|border=2px solid black}
[!rotate4a.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float}

rotate4a - Rotate_3d turns the object based on a given axis and degree angle.

rotate4a <- rotate_3d(p1,sedtankpipe3_origin,"z",sedtankpipe7_angle)

p1 =

• x: sedtankpipe7_origin0
• y: sedtankpipe7_origin1 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2
• z: sedtankpipe7_origin2 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2

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

"z" - specifies axis that object will be rotated about.

sedtankpipe7_angle = -(rad/deg) * atan(((3*L_Sed/8 - W_Channel/2)/ ((W_Sed/2 - outerradius(ND_SedLaunder))/4) + outerradius(ND_SedLaunder))^-1)

{float:left|border=2px solid black}
[!pipe8 NE.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}

pipe8 - Calls the Pipe Program to create a pipe.

pipe8 <- Pipe(sedtankpipe8_origin,ND_{SedPipeEntrance},sedtankpipe8_length,EN_PipeSpec)

sedtankpipe8_origin =

• x: tank_origin0 - L_Sed + W_Channel/2 + ElbowRadius(ND_{SedPipeEntrance})
• y: tank_origin1 + W_Sed/2 - outerradius(ND_SedLaunder) - 3*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + W_Sed/2*tan(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

ND_{SedPipeEntrance} = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.

sedtankpipe8_length = ((7L_Sed/8 - W_InletChannel/2)² + (outerradius(ND_SedLaunder) - 3*W_Sed/2 - outerradius(ND_SedLaunder))/4)²)^1/2 - 2ElbowRadius(ND_{SedPipeEntrance})

{float:left|border=2px solid black}
[!rotate5.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float}

rotate5 - Rotate_3d turns the object based on a given axis and degree angle.

rotate5 <- rotate_3d(p1,sedtankpipe8_origin,"y",90)

p1 =

• x: sedtankpipe8_origin0 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2
• y: sedtankpipe8_origin1
• z: sedtankpipe8_origin2

sedtankpipe8_origin =

• x: tank_origin0 - L_Sed + W_Channel/2 + ElbowRadius(ND_{SedPipeEntrance})
• y: tank_origin1 + W_Sed/2 - outerradius(ND_SedLaunder) - 3*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + W_Sed/2*tan(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

"y" - specifies axis that object will be rotated about.

{float:left|border=2px solid black}
[!rotate5a.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float}

rotate5a - Rotate_3d turns the object based on a given axis and degree angle.

rotate5a <- rotate_3d(p1,sedtankpipe4_origin,"z",sedtankpipe8_angle)

p1 =

• x: sedtankpipe8_origin0
• y: sedtankpipe8_origin1 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2
• z: sedtankpipe8_origin2 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2

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

"z" - specifies axis that object will be rotated about.

sedtankpipe8_angle = -(rad/deg) * atan((((7*L_Sed)/8 - W_Channel/2)/ (3*(W_Sed/2 - outerradius(ND_SedLaunder))/4) + outerradius(ND_SedLaunder))^-1)

{float:left|border=2px solid black}
[!pipe9 NE.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}

pipe9 - Calls the 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

ND_{SedPipeEntrance} = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank

sedtankpipe9_length = W_Sed/2 * tan(AN_SedBottom) - ElbowRadius(ND_{SedPipeEntrance}) - 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 Pipe Program to create a pipe.

pipe10 <- Pipe(sedtankpipe10_origin,ND_{SedPipeEntrance},sedtankpipe9_length,EN_PipeSpec)

sedtankpipe10_origin =

• x: tank_origin0 - (5*L_Sed)/8
• y: tank_origin1 + W_Sed/2
• z: tank_origin2 + S_SedInlet

ND_{SedPipeEntrance} = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank

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 Pipe Program to create a pipe.

pipe11 <- Pipe(sedtankpipe11_origin,ND_{SedPipeEntrance},sedtankpipe9_length,EN_PipeSpec)

sedtankpipe11_origin =

• x: tank_origin0 - (3*L_Sed)/8
• y: tank_origin1 + W_Sed/2
• z: tank_origin2 + S_SedInlet

ND_{SedPipeEntrance} = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank

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 Pipe Program to create a pipe.

pipe12 <- Pipe(sedtankpipe12_origin,ND_{SedPipeEntrance},sedtankpipe9_length,EN_PipeSpec)

sedtankpipe12_origin =

• x: tank_origin0 - (L_Sed)/8
• y: tank_origin1 + W_Sed/2
• z: tank_origin2 + S_SedInlet

ND_{SedPipeEntrance} = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank

sedtankpip9_length = W_Sed/2 * tan(AN_SedBottom) - ElbowRadius(ND_{SedPipeEntrance}) - S_SedInlet + ElbowRadius(ND_{SedPipeEntrance})

layerfreeze2 - Layer_freeze 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(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_SedLaunder = 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 - Rotate_3d turns the object based on a given axis and degree angle.

rotate2 <- rotate_3d(p1,sedtankpipe14_origin,"y",90)

p1 =

• x: sedtankpipe14_origin0 + outerradius(ND_SedLaunder)
• y: sedtankpipe14_origin1
• z: 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(Plant_Origin,p1)

p1 =

• x: sedtankpipe14_origin0
• y: sedtankpipe14_origin1 + outerradius(ND_SedLaunder)
• z: sedtankpipe14_origin2
  //
  //
  layerthawp - Layer_thaw unlocks the layer "pipe" so that it can be edited.

layerthawp <-layer_thaw("pipe")

layersetp - Layer_set selects the layer "pipe".

layersetp <- layer_set("pipe")

{float:left|border=2px solid black}
[!pipe13.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}

{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(sedtankpipe13_origin,ND_SedLaunder,sedtankpipe13_length,EN_PipeSpec)

sedtankpipe13_origin =

• x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall + ElbowRadius(ND_SedLaunder)
• y: tank_origin1 + W_Sed/2
• z: tank_origin2 + H_Sed - H_Channel - T_Mp + ElbowRadius(ND_SedLaunder)

ND_SedLaunder = Nominal diameter of launder.

sedtankpipe13_length = HW_Sed - H_SedAbove/2 - 2ElbowRadius(ND_SedLaunder) - (H_Sed - H_InletChannel - T_Mp)

{float:left|border=2px solid black}
[!pipe14.bmp|width=300px!|AutoCAD Channel Program]
NorthEast Isometric View
{float}

{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(sedtankpipe14_origin,ND_SedLaunder,sedtankpipe14_length,EN_PipeSpec)

sedtankpipe14_origin =

• x: tank_origin0 - L_Sed
• y: tank_origin1 + W_Sed/2
• z: tank_origin2 + H_Sed - H_Channel - T_Mp

ND_SedLaunder = Nominal diameter of launder.

sedtankpipe14_length = W_InletChannel + T_ChannelWall

{float:left|border=2px solid black}
[!rotate6.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}

rotate6 - Rotate_3d turns the object based on a given axis and degree angle.

rotate6 <- rotate_3d(p1,sedtankpipe14_origin,"y",90)

p1 =

• x: sedtankpipe14_origin0 + innerD(ND_SedLaunder,EN_PipeSpec)/2
• y: sedtankpipe14_origin1
• z: 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.

layerfreeze3 - Layer_freeze locks the layer "channel" so that it cannot be edited.

layerfreeze3 <- layer_freeze("pipe")