Tank Slope Drawing Script

layerslopes - Layer_new 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 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 unlocks the "tank" layer so that edits can be made.

tankthaw <- layer_thaw("tank")

bigunion - Union_allA 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 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 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 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 selects the layer "0".

layerset <- layer_set("0")

layerfreezeslope - Layer_freeze locks the layer "slopes" so that it cannot be edited.

layerfreezeslope <- layer_freeze("slopes")