...

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~

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

...

-

...

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~

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

...

-

...

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.

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

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~

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

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

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)

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

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

...

-

...

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

 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)

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/

...

² -

...

2ElbowRadius(ND_{SedPipeEntrance})

EN_PipeSpec = Enumerated type

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

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

{~}SedPipeEntrance~)

*sedtankpipe8{*}{*}{~}length{~}* = ((7L{~}Sed~/8 - W{~}InletChannel~/2)^2^ + (outerradius(ND{~}SedLaunder~) - 3*W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4)^2^)^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)

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

 tank{~}origin1~ + W{~}Sed~/2
* z: tank{~}origin2~ + S{~}SedInlet~

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

 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

...

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

 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

...

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

{~}length~,EN{~}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(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.

{~}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=500px300px!|AutoCAD Channel Program]
Top View
{float}
*rotate2* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle.

rotate2 <\- rotae{~}3d~(p1,sedtankpipe14{~}origin~

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