| Wiki Markup |
|---|
h1. Sedechanneltankscript
{float:left|border=2px solid black}
[!echannel.bmp|width=450px!|AutoCAD Channel Program]
NorthEast Isometric View
{float}
\\
\\
*viewtope* \- Rotates workspace so that object is being viewed from the top.
viewtope <\- viewtop1
*layernewect* \- [Layer{~}new~|AutoCAD Basics Layer] creates a new light grey layer, "echanneltank."
layernewext <-layer{~}new~ |
Sedechanneltankscript
viewtope - Rotates workspace so that object is being viewed from the top.
viewtope <- viewtop1
layernewect - Layernew creates a new light grey layer, "echanneltank."
...
("echanneltank",ltgrey) |
...
tankect - Calls the Tank Program to draw a tank.
...
{float:left|border=2px solid black} [!tank1.bmp|width=450px!|AutoCAD Channel Program] Top View {float} *tankect* \- Calls the [Tank Program|AutoCad Tank Program] to draw a tank. tankect <-Tank(echanneltank |
...
{~}origin~,echanneltank |
...
{~}dim~,T |
...
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)
rotateewe2 - Rotate3d rotates the selected object by the designated degrees.
"y" = rotation axis
90 = rotation angle
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.
...
{~}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(W{~}Sed\~ + T{~}PlantWall~) * z: H{~}EChannel~ T{~}PlantWall~ = Thickness of tank wall of sed tank and floc tank. \\ \\ {float:left|border=2px solid black} [!box1.bmp|width=350px!|AutoCAD Channel Program] Top View {float} {float:left|border=2px solid black} [!box1 NE.bmp|width=350px!|AutoCAD Channel Program] Top View {float} *boxect* \- Creates a [box|AutoCAD Basics 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(W{~}Sed\~ + T{~}PlantWall~) * z: H{~}EChannel~ \\ \\ *bigunion* \- [Union{~}allA~|AutoCAD Basics Unions] selects all the objects visible in the workspace and joins them all into a single object. bigunion <-union{~}allA~ {float:left|border=2px solid black} [!box2.bmp|width=300px!|AutoCAD Channel Program] Top View {float} *boxect* \- Creates a [box|AutoCAD Basics 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(W{~}Sed\~ + T{~}PlantWall~) * z: H{~}EChannel~ \\ \\ {float:left|border=2px solid black} [!subtract1.bmp|width=450px!|AutoCAD Channel Program] Top View {float} *subtractect* \- [SubtractD|AutoCAD Basics Subtractions] subtracts one object from the other based on two points. subtractect <\- subtractD(echanneltank{~}origin~,echannelbox{~}origin~) \\ \\ *layerset* \- [Layer{~}set~|AutoCAD Basics Layer] selects the layer "0". layerset <-layer{~}set~("0") *layerfreezeect* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "echanneltank" so that it cannot be edited. layerfreezeect <-layer{~}freeze~("echanneltank") *layernewewe* \- [Layer{~}new~|AutoCAD Basics Layer] creates a new green layer, "exitweirelbow." layernewewe <\- layer{~}new~("exitweirelbow",green) {float:left|border=2px solid black} [!elbow1.bmp|width=450px!|AutoCAD Channel Program] Top View {float} *elbowewe* \- Calls the [Elbow Program|AutoCad Elbow Program] to draw an elbow. elbowewe <-elbow(sedtankexitweirelbow{~}origin~,ND{~}PltWeir~,EN{~}PipeSpec~) EN{~}PipeSpec~ \- enumerated type \\ \\ {float:left|border=2px solid black} [!rotate1.bmp|width=450px!|AutoCAD Channel Program] Top View {float} *rotateewe1* \- [Rotate{~}3d~|AutoCAD Basics Rotate] 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 \\ \\ {float:left|border=2px solid black} [!rotate2.bmp|width=450px!|AutoCAD Channel Program] Top View {float} *rotateewe2* \- [Rotate{~}3d~|AutoCAD Basics Rotate] 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 \\ \\ {float:left|border=2px solid black} [!copy1.bmp|width=450px!|AutoCAD Channel Program] Top View {float} *copyewe* \- [CopyB|AutoCad Basics Copy] copies selected objects based on three selected points. copyewe <\- copyB(exitweirpipecopy1{~}point~,exitweirpipecopy1{~}point~,exitweirpipecopy2{~}point~) \\ \\ *layerfreezeewp* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "exitweir" so that it cannot be edited. layerfreezeewp <\- layer{~}freeze~("exitweir") |