Sedechanneltankscript
viewtope - Rotates workspace so that object is being viewed from the top.
viewtope <- viewtop1
layernewect - Layernew creates a new light grey layer, "echanneltank."
layernewext <-layernew("echanneltank",ltgrey)
tankect - Calls the Tank Program to draw a tank.
tankect <-Tank(echanneltankorigin,echanneltankdim,TPlantWall)
echannelorigin =
- if layout1:
- x: 0
- y: 0
- z: 0
- if layout2:
- x: tankorigin0
- y: tankorigin1 - TPlantWall
- z: tankorigin2 + HSed - HEChannel
- if layout3:
- x: tankorigin0 - LSed + WChannel + TChannelWall + WEChannel
- y: tankorigin1 - TPlantWall
- z: tankorigin2 + HSed - HEChannel
- if layout4:
- x: tankorigin0 - LSed + WChannelInlet + TChannelWall + WEChannel
- y: tankorigin1 - TPlantWall
- z: tankorigin2 + HSed - HEChannel
echannelboxdim =
- x: WEChannel
- y: NSedTanks(WSed~ + TPlantWall)
- z: HEChannel
TPlantWall = Thickness of tank wall of sed tank and floc tank.
boxect - Creates a box based on two points.
boxect <-box(echanneltankorigin,echanneltankorigin + echannelboxdim)
echannelorigin =
- if layout1:
- x: 0
- y: 0
- z: 0
- if layout2:
- x: tankorigin0
- y: tankorigin1 - TPlantWall
- z: tankorigin2 + HSed - HEChannel
- if layout3:
- x: tankorigin0 - LSed + WChannel + TChannelWall + WEChannel
- y: tankorigin1 - TPlantWall
- z: tankorigin2 + HSed - HEChannel
- if layout4:
- x: tankorigin0 - LSed + WChannelInlet + TChannelWall + WEChannel
- y: tankorigin1 - TPlantWall
echannelboxdim =
- x: WEChannel
- y: NSedTanks(WSed~ + TPlantWall)
- z: HEChannel
bigunion - UnionallA selects all the objects visible in the workspace and joins them all into a single object.
bigunion <-unionallA
boxect - Creates a box based on two points.
boxect <- box(echannelboxorigin,echannelboxorigin + echannelboxdim)
echannelorigin =
- if layout1:
- x: 0
- y: 0
- z: 0
- if layout2:
- x: tankorigin0
- y: tankorigin1 - TPlantWall
- z: tankorigin2 + HSed - HEChannel
- if layout3:
- x: tankorigin0 - LSed + WChannel + TChannelWall + WEChannel
- y: tankorigin1 - TPlantWall
- z: tankorigin2 + HSed - HEChannel
- if layout4:
- x: tankorigin0 - LSed + WChannelInlet + TChannelWall + WEChannel
- y: tankorigin1 - TPlantWall
echannelboxdim =
- x: WEChannel
- y: NSedTanks(WSed~ + TPlantWall)
- z: HEChannel
subtractect - SubtractD subtracts one object from the other based on two points.
subtractect <- subtractD(echanneltankorigin,echannelboxorigin)
layerset - Layerset selects the layer "0".
layerset <-layerset("0")
layerfreezeect - Layerfreeze locks the layer "echanneltank" so that it cannot be edited.
layerfreezeect <-layerfreeze("echanneltank")
layernewewe - Layernew creates a new green layer, "exitweirelbow."
layernewewe <- layernew("exitweirelbow",green)
elbowewe - Calls the Elbow Program to draw an elbow.
elbowewe <-elbow(sedtankexitweirelboworigin,NDPltWeir,ENPipeSpec)
ENPipeSpec - enumerated type
rotateewe1 - Rotate3d rotates the selected object by the designated degrees.
rotateewe1 <- rotate3d(p1,sedtankexitweirelboworigin,"y",90)
p1 =
- x: sedtankexitweirelboworigin0 + ElbowRadius(NDPltWeir)
- y: sedtankexitweirelboworigin1
- z: sedtankexitweirelboworigin2 - outerradius(NDPltWeir)
"y" = rotation axis
90 = rotation angle
rotateewe2 - Rotate3d rotates the selected object by the designated degrees.
rotateewe2 <- rotate3d(p1,sedtankexitweirelboworigin,"z",90)
p1 =
- x: sedtankexitweirelboworigin0
- y: sedtankexitweirelboworigin1 + ElbowRadius(NDPltWeir) - outerradius(NDPltWeir)
- z: sedtankexitweirelboworigin2
"z" = rotation axis
90 = rotation angle
copyewe - CopyB copies selected objects based on three selected points.
copyewe <- copyB(exitweirpipecopy1point,exitweirpipecopy1point,exitweirpipecopy2point)
layerfreezeewp - Layerfreeze locks the layer "exitweir" so that it cannot be edited.
layerfreezeewp <- layerfreeze("exitweir")