Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.
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")