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 - Layer_set 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 takes the input of two points to create a 3D rectangular box.

box3 <- box(channelopening_origin,channelopening_origin + channelopening_dim)

channelopening_origin =

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

channelopening_origin + channelopenining_dim

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

layerset3 - Layer_set selects the layer that the user is currently working in.

layerset3 <- layer_set("0")

layerthaw3 - Layer_thawunlocks the layer "floctankwall" so that it can be edited.

layerthaw3 <- layer_thaw("floctankwall")

viewtop - Viewtop1 rotates the object so that it is viewed from the top.

viewtop <- viewtop1

subtract3 - SubtractD uses two points to identify which object to subtract from.

p1 = floc_origin

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

p2 =

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

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

bigunion <- union_allA

layerfreeze3 - Layer_freeze locks the selected layer "floctankwall" so that no edits can be made.

layerfreeze3 <- layer_freeze("floctankwall")

Floctankbafflescript

local - Layer_new creates a new light purple layer "baffle."

local <- layer_new("baffle",ltpurple)

for loop for the range 0 to (rows(X_FlocBaffles) -1)

a <- a + 1 if X_{FlocBafflest,j} is not equal to 0.

for loop for the range 0 to (x(j) - 1)

baffle_origini <- (p1 + p2)

p1:

• x: Plant_Origin0 - L_Sed
• y: 0
• z: Plant_Origin2

p2:

• x: X_{FlocBafflesi,j}
• y: Y_{FlocBaffles0,j}
• z: Z_{FlocBafflesi,j}

baffle_lengthi <- L_{FlocBafflesi,j}

local <- stack(local,lamina(baffle_origini,Amp_FlocBaffle,W_FlocChannel,baffle_lengthi,T_FlocBaffle,Per_FlocBaffle,AN_FlocBaffle,N_Baffle,N_{FlocBaffleCol},X_FlocBaffle,Y_FlocBaffle))

Flocktankendscript

layerset - Layer_set selects the layer that the user is currently working in.

layerset <- layer_set("0")

layerfreeze - Layer_freeze locks the layer "baffle" so that no edits can be made.

layerfreeze <- *layer_freeze("baffle")

FlocTank = stack(Floctanktankscript,Floctankwallscript,Floctankchannelopeningscript,Floctankbafflescript,Floctankendscript)

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