h1. Tank Slope Drawing Script

*layerslopes* \- [Layer{~}new~|AutoCAD Basics Layer] creates a new light grey layer, "slopes."

layerslopes <\- layer{~}new~("slopes",ltgrey)
{float:left|border=2px solid black}
[!slope.bmp|width=500px!|AutoCAD Channel Program]
Right View
{float}
*slopes* \- Calls the [Sedimentation Tank Slopes Program|AutoCAD Sedimentation Tank Slopes Program] to draw the tank slopes based on three inputs.

slopes <\- sedslope(SedSlopes{~}Origin~,p1,AN{~}SedBottom~)

*Note*: p1 is a dummy variable used only in the program help section to designate the matrix below.

SedSlopes{~}Origin~ =
* x: Plant{~}Origin0~
* y: Plant{~}Origin1~
* z: Plant{~}Origin2~

p1 =
* x: L{~}Sed~
* y: W{~}Sed~
* z: H{~}Sed~

AN{~}SedBottom~ = Sedimentation tank bottom slope.
\\
\\
*tankthaw* \- [Layer{~}thaw~|AutoCAD Basics Layer] unlocks the "tank" layer so that edits can be made.

tankthaw <\- layer{~}thaw~("tank")

*bigunion* \- [Union{~}allA~|AutoCAD Basics Unions] selects all the objects in the workspace and unions them into a single object

bigunion <\- union{~}allA~

{float:left|border=2px solid black}
[!slope subtract.bmp|width=500px!|AutoCAD Channel Program]
Right View
{float}
*box1* \- Creates a [box|AutoCAD Basics Box] based on two points.

box1 <\- box(sedtankbox1{~}origin~, sedtankbox1{~}origin~ + sedtankbox1{~}dim~)

sedtankbox1{~}origin~ =
* x: Plant{~}Origin0~ \- L{~}Sed~
* y: Plant{~}Origin1~ + W{~}Sed~/2 - outerradius(ND{~}SedSludge~)
* z: Plant{~}Origin2~

sedtankbox1{~}dim~ =
* x: L{~}Sed~
* y: outerdiameter(ND{~}SedSludge~)
* z: 3outerdiameter(ND{~}SedSludge~)
\\
\\
*tankthaw* \- [Layer{~}thaw~|AutoCAD Basics Layer] unlocks the layer "tank" so that it can be edited.

tankthaw <\- layer{~}thaw~("tank")

*subtractbox* \- [SubtractJ|AutoCAD Basics Subtractions] subtracts one object from the other based on four points.

subtractbox <\- subtractJ(Plant{~}Origin~,p1,p2,sedtankbox1{~}origin~)

*Note*: p1 and p2 are dummy variable used only in the program help section to designate the matrix below.

Plant{~}Origin~ =

p1 =
* x: Plant{~}Origin0~
* y: Plant{~}Origin1~ + W{~}Sed~
* z: Plant{~}Origin2~

p2 =
* x: Plant{~}Origin0~
* y: Plant{~}Origin1~ \- T{~}PlantWall~
* z: Plant{~}Origin2~

sedtankbox1{~}origin~ =
* x: Plant{~}Origin0~ \- L{~}Sed~
* y: Plant{~}Origin1~ + W{~}Sed~/2 - outerradius(ND{~}SedSludge~)
* z: Plant{~}Origin2~

*layerset* \- [Layer{~}set~|AutoCAD Basics Layer] selects the layer "0".

layerset <\- layer{~}set~("0")

*layerfreezeslope* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "slopes" so that it cannot be edited.

layerfreezeslope <\- layer{~}freeze~("slopes")