Sedechanneltankscript

viewtope - Rotates workspace so that object is being viewed from the top.

viewtope <- viewtop1

layernewect - Layer_new creates a new light grey layer, "echanneltank."

layernewext <-layer_new("echanneltank",ltgrey)

tankect - Calls the Tank Program to draw a tank.

tankect <-Tank(echanneltank_origin,echanneltank_dim,T_PlantWall)

echannel_origin =

• if layout1:
  • x: 0
  • y: 0
  • z: 0

• if layout2:
  • x: tank_origin0
  • y: tank_origin1 - T_PlantWall
  • z: tank_origin2 + H_Sed - H_EChannel

• if layout3:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall + W_EChannel
  • y: tank_origin1 - T_PlantWall
  • z: tank_origin2 + H_Sed - H_EChannel

• if layout4:
  • x: tank_origin0 - L_Sed + W_ChannelInlet + T_ChannelWall + W_EChannel
  • y: tank_origin1 - T_PlantWall
  • z: tank_origin2 + H_Sed - H_EChannel

echannelbox_dim =

• x: W_EChannel
• y: N_SedTanks(WSed~ + T_PlantWall)
• z: H_EChannel

T_PlantWall = Thickness of tank wall of sed tank and floc tank.

boxect - Creates a box based on two points.

boxect <-box(echanneltank_origin,echanneltank_origin + echannelbox_dim)

echannel_origin =

• if layout1:
  • x: 0
  • y: 0
  • z: 0

• if layout2:
  • x: tank_origin0
  • y: tank_origin1 - T_PlantWall
  • z: tank_origin2 + H_Sed - H_EChannel

• if layout3:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall + W_EChannel
  • y: tank_origin1 - T_PlantWall
  • z: tank_origin2 + H_Sed - H_EChannel

• if layout4:
  • x: tank_origin0 - L_Sed + W_ChannelInlet + T_ChannelWall + W_EChannel
  • y: tank_origin1 - T_PlantWall

echannelbox_dim =

• x: W_EChannel
• y: N_SedTanks(WSed~ + T_PlantWall)
• z: H_EChannel
  
  bigunion - Union_allA selects all the objects visible in the workspace and joins them all into a single object.

bigunion <-union_allA

boxect - Creates a box based on two points.

boxect <- box(echannelbox_origin,echannelbox_origin + echannelbox_dim)

echannel_origin =

• if layout1:
  • x: 0
  • y: 0
  • z: 0

• if layout2:
  • x: tank_origin0
  • y: tank_origin1 - T_PlantWall
  • z: tank_origin2 + H_Sed - H_EChannel

• if layout3:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall + W_EChannel
  • y: tank_origin1 - T_PlantWall
  • z: tank_origin2 + H_Sed - H_EChannel

• if layout4:
  • x: tank_origin0 - L_Sed + W_ChannelInlet + T_ChannelWall + W_EChannel
  • y: tank_origin1 - T_PlantWall

echannelbox_dim =

• x: W_EChannel
• y: N_SedTanks(WSed~ + T_PlantWall)
• z: H_EChannel
  
  
  Unknown macro: {float}

  
  Top View

  subtractect - SubtractD subtracts one object from the other based on two points.

subtractect <- subtractD(echanneltank_origin,echannelbox_origin)

layerset - Layer_set selects the layer "0".

layerset <-layer_set("0")

layerfreezeect - Layer_freeze locks the layer "echanneltank" so that it cannot be edited.

layerfreezeect <-layer_freeze("echanneltank")

layernewewe - Layer_new creates a new green layer, "exitweirelbow."

layernewewe <- layer_new("exitweirelbow",green)

elbowewe - Calls the Elbow Program to draw an elbow.

elbowewe <-elbow(sedtankexitweirelbow_origin,ND_PltWeir,EN_PipeSpec)

EN_PipeSpec - enumerated type

rotateewe1 - Rotate_3d rotates the selected object by the designated degrees.

rotateewe1 <- rotate_3d(p1,sedtankexitweirelbow_origin,"y",90)

p1 =

• x: sedtankexitweirelbow_origin0 + ElbowRadius(ND_PltWeir)
• y: sedtankexitweirelbow_origin1
• z: sedtankexitweirelbow_origin2 - outerradius(ND_PltWeir)

"y" = rotation axis

90 = rotation angle

rotateewe2 - Rotate_3d rotates the selected object by the designated degrees.

rotateewe2 <- rotate_3d(p1,sedtankexitweirelbow_origin,"z",90)

p1 =

• x: sedtankexitweirelbow_origin0
• y: sedtankexitweirelbow_origin1 + ElbowRadius(ND_PltWeir) - outerradius(ND_PltWeir)
• z: sedtankexitweirelbow_origin2

"z" = rotation axis

90 = rotation angle

copyewe - CopyB copies selected objects based on three selected points.

copyewe <- copyB(exitweirpipecopy1_point,exitweirpipecopy1_point,exitweirpipecopy2_point)

layerfreezeewp - Layer_freeze locks the layer "exitweir" so that it cannot be edited.

layerfreezeewp <- layer_freeze("exitweir")