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")
{float:left|border=2px solid black}
[!subtract box.bmp|width=600px!|AutoCAD Channel Program]
Top View
{float}
\\
\\
*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") | 