AutoCAD Sedimentation Tank Inlet Slopes Program

General Program Information

Input Definitions

Inputs Needed to Call the Inlet Slope Function

origin - A 3*1 matrix with x,y,z positions corresponding to the point where the inlet slope will be drawn.
Length - length of the slopes, generally the width of the sedimentation tank
Width - width of the slopes, generally the width of the sedimentation tank
l_orifice - length of the opening that will allow inlet flow
h_orifice - height of the opening that will allow inlet flow
thick - thickness of the slopes
n - number of orifices and sections, one section contains one orifice
bigslope - slope of the inlet in degrees

Inputs Defined within the Inlet Slope Function

dim =
*x: Length/2
*y: thick
*z: (Width/2)/cos(bigslope)

box_dim = origin + dim

orifice_origin =
*x: origin₀ + dim₀/2 - 1_orifice/2
*y: origin₁
*z: origin₂

orifice_dim =
*x: origin₀ + dim₀/2 + 1_orifice/2
*y: origin₁ + dim₁
*z: origin₂ + h_orifice

mirror_point1 =
*x: origin₀
*y: origin₁

mirror_point2 =
*x: origin₀ + zc
*y: origin₁

nrow = 1

ncol = n

dist =Length/n

win1 =
*x: origin₀ - zc
*y: origin₁ - zc
*z: origin₂ - zc

win2 =
*x: origin₀ + dim₀ - zc
*y: origin₁ + dim₁ - zc
*z: origin₂ + dim₂ - zc

Note: zc corresponds to the zoom constant used within AutoCAD, defined by the basics file.

Technical Program Outline

viewtop - sets the workspace so that the user is viewing the top of the object.

viewtop <-- viewtop
zoom_win- zooms on a window space directly around where the inlet slope is to be drawn.

zoom_win <--zoom _win(win1, win2)

win1 =
*x: origin₀ - zc
*y: origin₁ - zc
*z: origin₂ - zc

win2 =
*x: origin₀ + dim₀ - zc
*y: origin₁ + dim₁ - zc
*z: origin₂ + dim₂ - zc

box1 - draws a box
box1 <-- box(origin, box_dim)

origin = origin

box_dim = origin + dim

box2 - draws a box that will be subtracted to become the orifice
box2 <-- box(orifice_origin, orifice_dim)

orifice_origin =
*x: origin₀ + dim₀/2 - 1_orifice/2
*y: origin₁
*z: origin₂

orifice_dim =
*x: origin₀ + dim₀/2 + 1_orifice/2
*y: origin₁ + dim₁
*z: origin₂ + h_orifice

subtract1 - subtracts box2 to create an orifice, using the origin to select box1 as the object to be subtracted from, and using orifice_origin to select box2 as the object to be subtracted

subtract1 <-- subtractD(origin, orifice_origin)

origin = origin

orifice_origin =
*x: origin₀ + dim₀/2 - 1_orifice/2
*y: origin₁
*z: origin₂