Inlet Pipe Drawing Script

layerthaw - Layer_thaw unlocks the layer "channel" so that it can be edited.

layerthaw <-layer_thaw("channel")

viewtop - Rotates the object so that it is being viewed from the top.

viewtop <-viewtop1

cylinder1 - CylinderC is used to create a cylinder based on a point, radius and length.

cylinder1 <- cylinderC(sedtankinletpipe1_origin,outerradius(ND_{SedPipeEntrance}),-sedtankinletpipe_length)

sedtankinletpipe1_origin =

• x: Plant_Origin0 - L_Sed + (.5W_InletChannel)
• y: Plant_Origin1 + (W_Sed/4)
• z: Plant_Origin2 + H_Sed - H_InletChannel

outerradius(ND_{SedPipeEntrance}) = specifies the radius of the cylinder.

sedtankinletpipe_length = specifies the length of the cylinder.

cylinder2 - CylinderC is used to create a cylinder based on a point, radius and length.

cylinder2 <- cylinderC(sedtankinletpipe2_origin,outerradius(ND_{SedPipeEntrance}),-sedtankinletpipe_length)

sedtankinletpipe2_origin =

• x: Plant_Origin0 - L_Sed + (.5W_InletChannel)
• y: Plant_Origin1 + (3W_Sed/4)
• z: Plant_Origin2 + H_Sed - H_InletChannel

outerradius(ND_{SedPipeEntrance}) = specifies the radius of the cylinder.

sedtankinletpipe_length = specifies the length of the cylinder.

subtractc - SubtractC subtracts one object from the other based on three points.

subtractc <- subtractH(channel_origin,p1,p2)

When sedlayout = 1, channelorigin is 3*1 matrix with x,y,z points corresponding to where the channel will be drawn. Channelorigin is called from the Channel Program.

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

p1 =

• x: sedtankinletpipe2_origin0 + outerradius(ND_{SedPipeEntrance})
• y: sedtankinletpipe2_origin1 + outerradius(ND_{SedPipeEntrance})
• z: sedtankpipe1_origin2

p2 =

• x: sedtankinletpipe1_origin0 - outerradius(ND_{SedPipeEntrance})
• y: sedtankinlepipe1_origin1 - outerradius(ND_{SedPipeEntrance})
• z: sedtankpipe4_origin2)

layerset - Layer_set selects the layer "0".

layerset <- layer_set("0")

layerfreezec - Layer_freeze locks the layer "channel" so that it cannot be edited.

layerfreezec <- layer_freeze("channel")

layerthawis - Layer_thaw unlocks the layer "inletslopes" so that it can be edited.

layerthawis <- layer_thaw("inletslopes")

subtractis - SubtractH subtracts one object from the other based on three points.

subtractis <-subtractH(Plant_Origin,p1,p2)

Plant_Origin =

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

p1 =

• x: sedtankinletpipe2_origin0 + outerradius(ND_{SedPipeEntrance})
• y: sedtankinletpipe2_origin1 + outerradius(ND_{SedPipeEntrance})
• z: sedtankpipe1_origin2

p2 =

• x: sedtankinletpipe1_origin0 - outerradius(ND_{SedPipeEntrance})
• y:sedtankinletpipe1_origin1 - outerradius(ND_{SedPipeEntrance})
• z: sedtankpipe4_origin2

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

layerfreezeis <- layer_freeze("inletslopes~)

layernewip - Layer_new creates a new blue layer "inletpipes."

layernewip <- layer_new("inletpipes",blue)

slopesip - Calls the Sedimentation Tank Slopes Program to draw tank slopes.

slopesip <- sedslope(Plant_Origin,p1,AN_SedTopInlet)

Plant_Origin =

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

p1 =

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

An_SedTopInlet - Angle specifying the slope of the sedimentation tank walls.

moveip - Moveall is used to move all the selected objects by the specified distance.

moveip <-moveall(Plant_Origin,p1)

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

p1 =

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

pipe1 - Calls the [Pipe Program|AutoCad Pipe Program to draw a pipe.

pipe1 <- Pipe(sedtankinletpipe1_origin,ND_{SedPipeEntrance},-sedtankinletpipe_length,EN_PipeSpec)

sedtankinletpipe1_origin =

• x: Plant_Origin0 - L_Sed + (.5W_InletChannel)
• y: Plant_Origin1 + (W_Sed/4)
• z: Plant_Origin2 + H_Sed - H_InletChannel

ND_{SedPipeEntrance} = The nominal diameter of the tee. This value along with the pipe schedule is used to determine other actual dimensions of the tee.

sedtankinletpipe_length = Specifies the length of the pipe.

EN_PipeSpec = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.

pipe2 - Calls the [Pipe Program|AutoCad Pipe Program to draw a pipe.

pipe2 <- Pipe(sedtankinletpipe2_origin,ND_{SedPipeEntrance,-sedtankinletpipe}length~,EN_PipeSpec)

sedtankinletpipe2_origin =

• x: Plant_Origin0 - L_Sed + (.5W_InletChannel)
• y: Plant_Origin1 + (W_Sed/4)
• z: Plant_Origin2 + H_Sed - H_InletChannel

ND_{SedPipeEntrance} = The nominal diameter of the tee. This value along with the pipe schedule is used to determine other actual dimensions of the tee.

sedtankinletpipe_length = Specifies the length of the pipe.

EN_PipeSpec = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.

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

subtractip <- subtractK(p1,p2,Plant_Origin)

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

p1 =

• x: sedtankinletpipe1_origin0 + outerradius(ND{~}SedPipeEntrance)
• y: sedtankinletpipe1_origin1
• z: sedtankinletpipe1_origin2

p2 =

• x: sedtankinletpipe2_origin0 + outerradius(ND_{SedPipeEntrance})
• y: sedtankinletpipe2_origin1
• z: sedtankinletpipe2_origin2

Plant_Origin =

layerfreezeip - Layer_freeze locks the layer "inletpipes" so that it cannot be edited.

layerfreezeip <- layer_freeze("inletpipes")