Inlet Slope Drawing Script

layerslopes2 - Layer_new creates a new light grey layer "inletslopes."

layerslopes2 <- layer_new("inletslopes",ltgrey)

inletslopes - Calls the Sedimentation Tank Inlet Slopes Program to draw inlet slopes based on given inputs.

inletslopes <- Inletslope(inletslopes_origin,L_Sed,L_SedTopInlet,L_{SedSlopeInlets},H_SedInlet,T_{SedInletSlope},N_{SedSlopeInlets},AN_SedTopInlet)

inletslopes_origin =

• x: Plant_Origin0 - L_Sed
• y: Plant_Origin1 + W_Sed/2
• z: Plant_Origin2 + outerdiameter(ND_SedSludge)

L_Sed = 2.658m

L_SedTopInlet = 43.363deg

L_{SedSlopeInlets} = L_{SedInletSlope}

H_SedInlet = 0.057m

T_{SedInletSlope} = 0.05m

N_{SedSlopeInlets} = 1

AN_SedTopInlet = 43.464deg

layerset - Layer_set selects the layer "0".

layerset <- layer_set("0")

layerfreezeinslope - Layer_freeze locks the layer "inletslopes" so that it cannot be edited.

layerfreezeinslope <- layer_freeze("inletslopes")

layerslopes - Layer_new creates a new light grey layer "slopes."

layerslopes <- layer_new("slopes",ltgrey)

slopes - Calls the AutoCAD Sedimentation Tank Slopes Program to create tank slopes based on three inputs.

slopes <- sedslope(Plant_Origin,p1,ANSedBottom~)

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

Plant_Origin =

p1 =

• x: L_Sed
• y: W_Sed
• z: H_Sed

AN_SedBottom = 10deg

moves - Move_all shifts all the objects in the workspace.

moves <- move_all(Plant_Origin,p1)

Plant_Origin =

p1 =

• x: Plant_Origin0
• y: Plant_Origin1
• z: Plant_Origin2 + outerdiameter(ND_SedSludge)

inletslopesridge - Calls the Sedimentation Tank Inlet Slopes Program to create inlet slopes based on given inputs.

inletslopesridge <- Inletslope(inletslopes_origin,L_Sed,L_sedTopInlet + (T_{SedInletSlope*tan(AN}SedTopInlet~)),L_{SedSlopeInlets},L_SedTopInlet,T_{SedInletSlope},N_{SedSlopeInlets},AN_SedTopInlet)

inletslopes_origin =

• x: Plant_Origin0 - L_Sed
• y: Plant_Origin1 + W_Sed/2
• z: Plant_Origin2 + outerdiameter(ND_SedSludge)

L_Sed = 2.658m

L_SedTopInlet = 43.363deg

T_{SedInletSlope} = 0.05m

tan(AN_SedTopInlet) = tan(43.464deg)

L_{SedSlopeInlets} = L_{SedInletSlope}

N_{SedSlopeInlets} = 1

AN_SedTopInlet = 43.464deg

tankthaw - Layer_thaw unlocks the layer "tank" so that it can be edited.

tankthaw <- layer_thaw("tank")

bigunion - Union_allA selects all the objects in the workspace and unions them into a single object.

bigunion <- union_allA

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)

subtractbox - SubtractK subtracts one object from the other based on three points.

subtractbox <- subtractK(Plant_Origin - zc,p1,p2)

p1 =

• x: Plant_Origin0 - L_Sed/4
• y: Plant_Origin1 + W_Sed/4
• z: Plant_Origin2 + H_Sed/4

p2 =

• x: Plant_Origin0
• y: Plant_Origin1 + W_Sed/2
• z: Plant_Origin2

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

layerfreezeslope <- layer_freeze("slopes")