AutoCAD Flocculation Tank Program - Floctankscript1

General Program Information

Inputs Needed to Call the Flocculation Tank Program

Inputs Defined Within the Flocculation Tank Program

Plant_origin

• x: 0m
• y: 0m
• x: 0m

EN_PipeSpec = 4

W_InletChannel = 0.245m

H_InletChannel = 0.3m

W_FlocChannel = W_Sed/2

L_Sed = 3.021m

W_Sed = 1m

H_Sed = 1.1m

N_FlocChannels = 2

T_PlantWall = 0.15m

T_Mp = 0.15m

N_SedTanks = 3

Amp_FlocBaffle = 0.5in

Per_FlocBaffle = 8.5

N_Baffle = 1

X_FlocBaffle = 4in

T_FlocBaffle = 4mm

AN_FlocBaffle = 90deg

N_{FlocBaffleCol} = 1

Y_FlocBaffle = 7cm

W_FlocPort = 0.379m

L_Floc = (LSed)*(N_FlocChannels)

H_Floc = H_Sed

H_FlocPort = 0.75m

totalfloc_dim =

• x: L_Floc/N_FlocChannels
• y: (N_FlocChannels*W_FlocChannel) + ((N_FlocChannels - 1)*T_PlantWall)
• z: H_Floc

wall_dim =

• x: totalfloc_dim0 + (2T_PlantWall)
• y: T_PlantWall
• z: totalfloc_dim2

flocport_dim is composed of a for loop with the range 0 to (N_FlocChannels - 2). While in the for loop:

flocport_dim0,i =

• x: W_FlocPort
• y: T_PlantWall
• z: H_FlocPort

channelopening_dim =

• x: W_InletChannel
• y: T_PlantWall
• z: H_InletChannel

floc_origin =

• x: Plant_Origin0
• y: Plant_Origin1 + N_SedTanks(W_Sed + T_PlantWall)
• z: Plant_Origin2

*wall_origin is composed of a for loop with the range 0 to (N_FlocChannels - 2). While in the for loop:

wall_origin0,i =

• x: Plant_Origin0 - totalfloc_dim0 - T_PlantWall
• y: Plant_Origin1 + N_SedTanks(W_Sed + T_PlantWall) + (W_FlocChannel*(1 + i)) + (T_PlantWall*i)
• z: Plant_Origin2

flocport_origin is composed of a for loop with an if statement embedded in the program scrip. The range of the for loop is from 0 to (N_FlocChannels - 2)

If round(round(i/2) - (i/2)) = 0 then:

flocport_origin0,i =

• x: Plant_Origin0 - W_FlocPort
• y: Plant_Origin1 + N_SedTanks(WSed~ + T_PlantWall) + (W_FlocChannel*(1 + i))
• z: Plant_Origin2

If round(round(i/2) - (i/2)) = 1

flocport_origin0,i =

• x: Plant_Origin0 - totalfloc_dim0
• y: Plant_Origin1 + N_SedTanks(WSed~ + T_PlantWall) + (W_FlocChannel*(1 + i))
• z: Plant_Origin2

*channelopening_origin =

• x: floc_origin0 - totalfloc_dim0
• y: floc_origin1 - T_PlantWall
• z: floc_origin2 + totalfloc_dim2 - H_InletChannel

*Y_FlocBaffles is composed of a for loop with the range 0 to (N_FlocChannels - 1). While in the for loop:

Y_{FlocBaffles0,j} = Plant_Origin1 + (N_SedTanks*(WSed~ + T_PlantWall)) + ((N_FlocChannels - j - 1)*(W_FlocChannel + T_PlantWall))

Technical Program Outline

Floctanktankscript

layer1 - Layer_new creates a floctank layer that is dark grey.

layer1 <-- layer_new("floctank",dkgrey)

Tank1 <-- creates a tank. See Tank Help for details on the tank function.

Tank1 <-- Tank(floc_origin, totalfloc_dim, T_PlantWall)

floc_origin -

• x: Plant_Origin0
• y: Plant_Origin1 + N_SedTanks(W_Sed + T_PlantWall)
• z: Plant_Origin2

totalfloc_dim -

• x: L_Floc/N_FlocChannels
• y: (N_FlocChannels*W_FlocChannel) + ((N_FlocChannels - 1)*T_PlantWall)
• z: H_Floc

T_PlantWall = 0.15m

layerset1 - Layer_set selects the layer that the user is currently working on.

layerset1 <- layer_set("0")

layerfreeze1 - Layer_freeze freezes the selected layer.

layerfreeze1 <- layer_freeze("floctank")

Floctankwallscript

local - Layer_new creates a new layer "floctankwall" that is dark grey.

local <- layer_new("floctankwall",dkgrey)

local enters a for loop for the range 0 to (N_flocChannels - 2).

local <- stack(local,box(wall_origin0,i,wall_origin0,i + wall_dim),box(flocport_origin0,i,flocport_origin0,i,flocport_origin0,i + flocport_dim0,i)subtractD(wall_origin0,i,flocport_origin0,i))

layerset2 - selects the layer that the user is currently working in.

layerset2 <- layer_set("0")

layerthaw2 - Layer_thawunlocks the layer "floctank" so that it can be edited.

layerthaw2 <- layer_thaw("floctank")

bigunion1 - Union_allA selects all of the objects on a page and joins them together to form a single object.

bigunion1 <- union_allA

layerfreeze2 - Layer_freeze locks the selected layer "floctank" so that no edits can be made.

layerfreeze2 <- layer_freeze("floctankwall")

local <- stack(local,layerset2,layerthaw2,bigunion1,layerset2,layerfreeze2)

Floctankchannelopeningscript

layer3 - Layer_new creates a new, dark grey, layer "flocchannelhole."

layer3 <- layer_new("flocchannelhole",dkgrey)

box3 - [Box|

box1 - creates a box

box1 <-- box(wall_origin, )

box2 -

box2 <-- box(flochole_origin, )

subtract0 -

subtract0 <-- subtractD( , )

union1 -

union1 <-- unionC( , )

box3-

box3 <-- box( , )

subtract1 -

subtract1 <-- subtractD( , )

bigunion -

bigunion <-- union_allA

layerset -

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

layerfreeze1 -

layer_freeze("floctank")