h1. Inlet Pipe Drawing Script - layout 1
*viewtops* \- Adjust workspace so that the object is being viewed from the top.
viewtops <\- viewtop1
*layerthawc* \- [Layer{~}thaw~|AutoCAD Basics Layer] unlocks the layer "channel" so that it can be edited.
layerthawc <\- layer{~}thaw~("channel")
*layersetc* \- [Layer{~}set~|AutoCAD Basics Layer] selects the layer "channel".
layersetc <\- layer{~}set~("channel")
{float:left|border=2px solid black}
[!cylinder1.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*cylinder1* \- [CylinderA|AutoCAD Basics Cylinders] creates a cylinder based on three dimensions.
cylinder1 <\- cylinderA(sedtankpipe1{~}origin~,outerradius(ND{~}SedPipeEntrance~),-T{~}ChannelWall~)
sedtankpipe1{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2
* y: tank{~}origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~
ND{~}SedPipeEntrance~ = Nominal diameter of launder.
T{~}ChannelWall~ = Thickness of channel wall.
\\
\\
{float:left|border=2px solid black}
[!cylinder2.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*cylinder2* \- [CylinderA|AutoCAD Basics Cylinders] creates a cylinder based on three dimensions.
cylinder2 <\- cylinderA(sedtankpipe2{~}origin~,outerradius(ND{~}SedPipeEntrance~),-T{~}ChannelWall~)
sedtankpipe2{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2
* y: tank{~}origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 1*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~
ND{~}SedPipeEntrance~ = Nominal diameter of launder.
T{~}ChannelWall~ = Thickness of channel wall.
\\
\\
{float:left|border=2px solid black}
[!cylinder3.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*cylinder3* \- [CylinderC|AutoCAD Basics Cylinders] creates a cylinder based on three dimensions.
cylinder3 <\- cylinderC(sedtankpipe3{~}origin~,outerradius(ND{~}SedPipeEntrance~),-T{~}ChannelWall~)
sedtankpipe3{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2
* y: tank{~}origin1~ + W{~}Sed~/2 - outerradius(ND{~}SedLaunder~) - 1*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~
ND{~}SedPipeEntrance~ = Nominal diameter of launder.
T{~}ChannelWall~ = Thickness of channel wall.
\\
\\
{float:left|border=2px solid black}
[!cylinder4.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*cylinder4* \- [CylinderA|AutoCAD Basics Cylinders] creates a cylinder based on three dimensions.
cylinder4 <\- cylinderA(sedtankpipe4{~}origin~,outerradius(ND{~}SedPipeEntrance~),-T{~}ChannelWall~)
sedtankpipe4{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2
* y: tank{~}origin1~ + W{~}Sed~/2 - outerradius(ND{~}SedLaunder~) - 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~
ND{~}SedPipeEntrance~ = Nominal diameter of launder.
T{~}ChannelWall~ = Thickness of channel wall.
\\
\\
*subtract1* \- [SubtractH|AutoCAD Basics Subtractions] subtracts a selected object based on three specified points.
subtract1 <\- subtractH(channel{~}origin~,p1,p2)
channel{~}origin~ =
* if layout 1-3:
** x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~
** y: tank{~}origin1~ \- T{~}PlantWall~
** z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~
* if layout4:
** x: tank{~}origin0~ \- L{~}Sed~ \-T{~}ChannelWall~
** y: tank{~}origin1~ \- T{~}PlantWall~
** z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~
p1 =
* x: sedtankpipe1{~}origin0~ + outerradius(ND{~}SedPipeEntrance~)
* y: sedtankpipe1{~}origin1~ + outerradius(ND{~}SedPipeEntrance~)
* z: sedtankpipe1{~}origin2~
p2 =
* x: sedtankpipe4{~}origin0~ \- outerradius(ND{~}SedPipeEntrance~)
* y: sedtankpipe4{~}origin1~ \- outerradius(ND{~}SedPipeEntrance~)
* z: sedtankpipe4{~}origin2~
*holes2* \-
holes2 <\- concat(cylinder1,cylinder2,cylinder3)
*holes3* \-
holes3 <\- concat(cylinder4,subtract1)
*layerset* \- [Layer{~}set~|AutoCAD Basics Layer] selects the layer "0".
layerset <\- layer{~}set~("0")
*layerfreeze* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "channel" so that it cannot be edited.
layerfreeze <\- layer{~}freeze~("channel")
*layer3* \- [Layer{~}new~|AutoCAD Basics Layer] creates a new blue layer "pipe".
layer3 <\- layer{~}new~("pipe",blue)
{float:left|border=2px solid black}
[!pipe1.bmp|width=300px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*pipe1* \- Calls the [Pipe Program|AutoCAD Pipe Program] to create a pipe.
pipe1 <\- Pipe(sedtankpipe1{~}origin~,ND{~}SedPipeEntrance~,-sedtankpipe1{~}length~,EN{~}PipeSpec~)
sedtankpipe1{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2
* y: tank{~}origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~
ND{~}SedPipeEntrance~ = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe1{*}{*}{~}length~ = H{~}Sed~ \- H{~}InletChannel~ \- (W{~}Sed~/2 * tank(AN{~}SedBottom~) + ElbowRadius(ND{~}SedPipeEntrance~))-ElbowRadius(ND{~}SedPipeEntrance~)
EN{~}PipeSpec~ = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
\\
\\
{float:left|border=2px solid black}
[!pipe2.bmp|width=300px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*pipe2* \- Calls the [Pipe Program|AutoCAD Pipe Program] to create a pipe.
pipe2 <\- Pipe(sedtankpipe2{~}origin~,ND{~}SedPipeEntrance~,-sedtankpipe1{~}length~,EN{~}PipeSpec~)
sedtankpipe2{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2
* y: tank{~}origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 1*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~
ND{~}SedPipeEntrance~ = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe1{*}{*}{~}length~ = H{~}Sed~ \- H{~}InletChannel~ \- (W{~}Sed~/2 * tank(AN{~}SedBottom~) + ElbowRadius(ND{~}SedPipeEntrance~))-ElbowRadius(ND{~}SedPipeEntrance~)
EN{~}PipeSpec~ = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
\\
\\
{float:left|border=2px solid black}
[!pipe3.bmp|width=300px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*pipe3* \- Calls the [Pipe Program|AutoCAD Pipe Program] to create a pipe.
pipe3 <\- Pipe(sedtankpipe3{~}origin~,ND{~}SedPipeEntrance~,-sedtankpipe1{~}length~,EN{~}PipeSpec~)
sedtankpipe3{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2
* y: tank{~}origin1~ + W{~}Sed~/2 - outerradius(ND{~}SedLaunder~) - 1*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~
ND{~}SedPipeEntrance~ = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe1{*}{*}{~}length~ = H{~}Sed~ \- H{~}InletChannel~ \- (W{~}Sed~/2 * tank(AN{~}SedBottom~) + ElbowRadius(ND{~}SedPipeEntrance~))-ElbowRadius(ND{~}SedPipeEntrance~)
EN{~}PipeSpec~ = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
\\
\\
{float:left|border=2px solid black}
[!pipe4.bmp|width=200px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*pipe4* \- Calls the [Pipe Program|AutoCAD Pipe Program] to create a pipe.
pipe4 <\- Pipe(sedtankpipe4{~}origin~,ND{~}SedPipeEntrance~,-sedtankpipe1{~}length~,EN{~}PipeSpec~)
sedtankpipe4{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2
* y: tank{~}origin1~ + W{~}Sed~/2 - outerradius(ND{~}SedLaunder~) - 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~
ND{~}SedPipeEntrance~ = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe1{*}{*}{~}length~ = H{~}Sed~ \- H{~}InletChannel~ \- (W{~}Sed~/2 * tank(AN{~}SedBottom~) + ElbowRadius(ND{~}SedPipeEntrance~))-ElbowRadius(ND{~}SedPipeEntrance~)
EN{~}PipeSpec~ = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
\\
\\
{float:left|border=2px solid black}
[!pipe5.bmp|width=400px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*pipe5* \- Calls the [Pipe Program|AutoCAD Pipe Program] to create a pipe.
pipe5 <\- Pipe(sedtankpipe5{~}origin~,ND{~}SedPipeEntrance~,-sedtankpipe5{~}length~,EN{~}PipeSpec~)
sedtankpipe5{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2 + ElbowRadius(ND{~}SedPipeEntrance~)
* y: tank{~}origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + W{~}Sed~/2*tan(AN{~}SedBottom~) + ElbowRadius(ND{~}SedPipeEntrance~)
ND{~}SedPipeEntrance~ = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe5{~}length~ = ((5L{~}Sed~/8 - W{~}InletChannel~/2)^2^ + (outerradius(ND{~}SedLaunder~) + 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder))/4)~{~}{^}2{^}{~}~)~{~}{^}1/2{^}~ ~\- 2ElbowRadius(ND{~}SedPipeEntrance~)
EN{~}PipeSpec~ = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
\\
\\
{float:left|border=2px solid black}
[!rotatepipe5.bmp|width=550px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*rotatepipe5* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle.
rotatepipe5 <\- rotate{~}3d~(p1,sedtankpipe5{~}origin~,"y",90)
p1 =
* x: sedtankpipe5{~}origin0~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
* y: sedtankpipe5{~}origin1~
* z: sedtankpipe5{~}origin2~
sedtankpipe5{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2 + ElbowRadius(ND{~}SedPipeEntrance~)
* y: tank{~}origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + W{~}Sed~/2*tan(AN{~}SedBottom~) + ElbowRadius(ND{~}SedPipeEntrance~)
"y" - specifies axis that object will be rotated about.
\\
\\
{float:left|border=2px solid black}
[!rotate2a.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float}
*rotate2a* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle.
rotate2a - rotate{~}3d~(p1,sedtankpipe1{~}origin~,"z",sedtankpipe5{~}angle~)
sedtankpipe1{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2
* y: tank{~}origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~
p1 =
* x: sedtankpipe5{~}origin0~
* y: sedtankpipe5{~}origin1~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
* z: sedtankpipe5{~}origin2~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
"z" - specifies axis that object will be rotated about.
*sedtankpipe5{*}{*}{~}angle{~}* = \-(rad/deg) * atan((((5*L{~}Sed~)/8 - W{~}Channel~/2)/ \[3 * (W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4) + outerradius(ND{~}SedLaunder~))^\-1^)
\\
\\
{float:left|border=2px solid black}
[!pipe6 NE.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*pipe6* \- Calls the [Pipe Program|AutoCAD Pipe Program] to create a pipe.
pipe6 <\- Pipe(sedtankpipe6{~}origin~,ND{~}SedPipeEntrance~,sedtankpipe6{~}length~,EN{~}PipeSpec~)
sedtankpipe6{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2 + ElbowRadius(ND{~}SedPipeEntrance~)
* y: tank{~}origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 1*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + W{~}Sed~/2*tan(AN{~}SedBottom~) + ElbowRadius(ND{~}SedPipeEntrance~)
ND{~}SedPipeEntrance~ = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
*sedtankpipe6{*}{*}{~}length{~}* = ((L{~}Sed~/8 - W{~}InletChannel~/2)^2^ + (outerradius(ND{~}SedLaunder~) + 1*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4)^2^)^1/2^ \- 2ElbowRadius(ND{~}SedPipeEntrance~)
\\
\\
{float:left|border=2px solid black}
[!rotate3 new.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float}
*rotate3* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle.
rotate3 <\- rotate{~}3d~(p1,sedtankpipe6{~}origin~,"y",90)
p1 =
* x: sedtankpipe{~}origin0~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
* y: sedtankpipe5{~}origin1~
* z: sedtankpipe5{~}origin0~
sedtankpipe6{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2 + ElbowRadius(ND{~}SedPipeEntrance~)
* y: tank{~}origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 1*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + W{~}Sed~/2*tan(AN{~}SedBottom~) + ElbowRadius(ND{~}SedPipeEntrance~)
"y" - specifies axis that object will be rotated about.
90 - rotation angle
\\
\\
{float:left|border=2px solid black}
[!rotate3a.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float}
*rotate3a* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle.
rotate3a <\- rotate{~}3d~(p1,sedtankpipe2{~}origin~,"z",sedtankpipe6{~}angle~)
p1 =
* x: sedtankpipe6{~}origin0~
* y: sedtankpipe6{~}origin1~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
* z: sedtankpipe6{~}origin2~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
sedtankpipe2{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2
* y: tank{~}origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 1*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~
"z" - specifies axis that object will be rotated about.
*sedtankpipe6{*}{*}{~}angle{~}* = \-(rad/deg) * (((L{~}Sed~/8 - W{~}Channel~/2)/ ((W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4) + outerradius(ND{~}SedLaunder~))^\-1^)
\\
\\
{float:left|border=2px solid black}
[!pipe7 NE.bmp|width=500px!|AutoCAD Channel Program]
NorthEast Isometric View
{float}
*pipe7* \- Calls the [Pipe Program|AutoCAD Pipe Program] to create a pipe.
pipe7 <\- Pipe(sedtank7{~}origin~,ND{~}SedPipeEntrance~,sedtankpipe7{~}length~,EN{~}PipeSpec~)
sedtankpipe7{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2 + ElbowRadius(ND{~}SedPipeEntrance~)
* y: tank{~}origin1~ + W{~}Sed~/2 - outerradius(ND{~}SedLaunder~) - 1*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + W{~}Sed~/2*tan(AN{~}SedBottom~) + ElbowRadius(ND{~}SedPipeEntrance~)
*sedtankpipe7{*}{*}{~}length{~}* = ((3L{~}Sed~/8 - W{~}InletChannel~/2)^2^ + (outerradius(ND{~}SedLaunder~) - 1*W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4)^2^)^1/2^ \- 2ElbowRadius(ND{~}SedPipeEntrance~)
\\
\\
{float:left|border=2px solid black}
[!rotate4.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float}
*rotate4* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle.
rotate4 <\- rotate{~}3d~(p1,sedtankpipe7{~}origin~,"y",90)
p1 =
* x: sedtankpipe7{~}origin0~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
* y: sedtankpipe7{~}origin1~
* z: sedtankpipe7{~}origin2~
sedtankpipe7{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2 + ElbowRadius(ND{~}SedPipeEntrance~)
* y: tank{~}origin1~ + W{~}Sed~/2 - outerradius(ND{~}SedLaunder~) - 1*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + W{~}Sed~/2*tan(AN{~}SedBottom~) + ElbowRadius(ND{~}SedPipeEntrance~)
"y" - specifies axis that object will be rotated about.
90 - Specifies rotation angle.
\\
\\
{float:left|border=2px solid black}
[!rotate4a.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float}
*rotate4a* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle.
rotate4a <\- rotate{~}3d~(p1,sedtankpipe3{~}origin~,"z",sedtankpipe7{~}angle~)
p1 =
* x: sedtankpipe7{~}origin0~
* y: sedtankpipe7{~}origin1~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
* z: sedtankpipe7{~}origin2~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
sedtankpipe3{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2
* y: tank{~}origin1~ + W{~}Sed~/2 - outerradius(ND{~}SedLaunder~) - 1*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~
"z" - specifies axis that object will be rotated about.
*sedtankpipe7{*}{*}{~}angle{~}* = \-(rad/deg) * atan(((3*L{~}Sed~/8 - W{~}Channel~/2)/ ((W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4) + outerradius(ND{~}SedLaunder~))^\-1^)
\\
\\
{float:left|border=2px solid black}
[!pipe8 NE.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*pipe8* \- Calls the [Pipe Program|AutoCAD Pipe Program] to create a pipe.
pipe8 <\- Pipe(sedtankpipe8{~}origin~,ND{~}SedPipeEntrance~,sedtankpipe8{~}length~,EN{~}PipeSpec~)
sedtankpipe8{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2 + ElbowRadius(ND{~}SedPipeEntrance~)
* y: tank{~}origin1~ + W{~}Sed~/2 - outerradius(ND{~}SedLaunder~) - 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + W{~}Sed~/2*tan(AN{~}SedBottom~) + ElbowRadius(ND{~}SedPipeEntrance~)
*sedtankpipe8{*}{*}{~}length{~}* = ((7L{~}Sed~/8 - W{~}InletChannel~/2)^2^ + (outerradius(ND{~}SedLaunder~) - 3*W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4)^2^)^1/2^ \- 2ElbowRadius(ND{~}SedPipeEntrance~)
\\
\\
{float:left|border=2px solid black}
[!rotate5.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float}
*rotate5* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle.
rotate5 <\- rotate{~}3d~(p1,sedtankpipe8{~}origin~,"y",90)
p1 =
* x: sedtankpipe8{~}origin0~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
* y: sedtankpipe8{~}origin1~
* z: sedtankpipe8{~}origin2~
sedtankpipe8{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2 + ElbowRadius(ND{~}SedPipeEntrance~)
* y: tank{~}origin1~ + W{~}Sed~/2 - outerradius(ND{~}SedLaunder~) - 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + W{~}Sed~/2*tan(AN{~}SedBottom~) + ElbowRadius(ND{~}SedPipeEntrance~)
"y" - specifies axis that object will be rotated about.
\\
\\
{float:left|border=2px solid black}
[!rotate5a.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float}
*rotate5a* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle.
rotate5a <\- rotate{~}3d~(p1,sedtankpipe4{~}origin~,"z",sedtankpipe8{~}angle~)
p1 =
* x: sedtankpipe8{~}origin0~
* y: sedtankpipe8{~}origin1~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
* z: sedtankpipe8{~}origin2~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
sedtankpipe4{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~/2
* y: tank{~}origin1~ + W{~}Sed~/2 - outerradius(ND{~}SedLaunder~) - 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~
"z" - specifies axis that object will be rotated about.
*sedtankpipe8{*}{*}{~}angle{~}* = \-(rad/deg) * atan((((7*L{~}Sed~)/8 - W{~}Channel~/2)/ (3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4) + outerradius(ND{~}SedLaunder~))^\-1^)
\\
\\
{float:left|border=2px solid black}
[!pipe9 NE.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*pipe9* \- Calls the [Pipe Program|AutoCAD Pipe Program] to create a pipe.
pipe9 <\- Pipe(sedtankpipe9{~}origin~,ND{~}SedPipeEntrance~,sedtankpipe9{~}length~,EN{~}PipeSpec~)
sedtankpipe9{~}origin~ =
* x: tank{~}origin0~ \- (7*L{~}Sed~)/8
* y: tank{~}origin1~ + W{~}Sed~/2
* z: tank{~}origin2~ + S{~}SedInlet~
*sedtankpipe9{*}{*}{~}length{~}* = W{~}Sed~/2 * tan(AN{~}SedBottom~) - ElbowRadius(ND{~}SedPipeEntrance~) - S{~}SedInlet~ + ElbowRadius(ND{~}SedPipeEntrance~)
\\
\\
{float:left|border=2px solid black}
[!pipe10 NE.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*pipe10* \- Calls the [Pipe Program|AutoCAD Pipe Program] to create a pipe.
pipe10 <\- Pipe(sedtankpipe10{~}origin~,ND{~}SedPipeEntrance~,sedtankpipe9{~}length~,EN{~}PipeSpec~)
sedtankpipe10{~}origin~ =
* x: tank{~}origin0~ \- (5*L{~}Sed~)/8
* y: tank{~}origin1~ + W{~}Sed~/2
* z: tank{~}origin2~ + S{~}SedInlet~
*sedtankpipe9{*}{*}{~}length{~}* = W{~}Sed~/2 * tan(AN{~}SedBottom~) - ElbowRadius(ND{~}SedPipeEntrance~) - S{~}SedInlet~ + ElbowRadius(ND{~}SedPipeEntrance~)
\\
\\
{float:left|border=2px solid black}
[!pipe11 NE.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*pipe11* \- Calls the [Pipe Program|AutoCAD Pipe Program] to create a pipe.
pipe11 <\- Pipe(sedtankpipe11{~}origin~,ND{~}SedPipeEntrance~,sedtankpipe9{~}length~,EN{~}PipeSpec~)
sedtankpipe11{~}origin~ =
* x: tank{~}origin0~ \- (3*L{~}Sed~)/8
* y: tank{~}origin1~ + W{~}Sed~/2
* z: tank{~}origin2~ + S{~}SedInlet~
*sedtankpipe9{*}{*}{~}length{~}* = W{~}Sed~/2 * tan(AN{~}SedBottom~) - ElbowRadius(ND{~}SedPipeEntrance~) - S{~}SedInlet~ + ElbowRadius(ND{~}SedPipeEntrance~)
\\
\\
{float:left|border=2px solid black}
[!pipe12 NE.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*pipe12* \- Calls the [Pipe Program|AutoCAD Pipe Program] to create a pipe.
pipe12 <\- Pipe(sedtankpipe12{~}origin~,ND{~}SedPipeEntrance~,sedtankpipe9{~}length~,EN{~}PipeSpec~)
sedtankpipe12{~}origin~ =
* x: tank{~}origin0~ \- (L{~}Sed~)/8
* y: tank{~}origin1~ + W{~}Sed~/2
* z: tank{~}origin2~ + S{~}SedInlet~
*sedtankpip9{*}{*}{~}length{~}* = W{~}Sed~/2 * tan(AN{~}SedBottom~) - ElbowRadius(ND{~}SedPipeEntrance~) - S{~}SedInlet~ + ElbowRadius(ND{~}SedPipeEntrance~)
\\
\\
*layerfreeze2* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "pipe" so that it cannot be edited.
layerfreeze2 <\- layer{~}freeze~("pipe")
{float:left|border=2px solid black}
[!cylinder5.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*cylinder5* \- [CylinderA|AutoCAD Basics Cylinders] creates a cylinder based on three dimensions.
cylinder5 <\- cylinderA(sedtankpipe14{~}origin~,outerradius(ND{~}SedLaunder~),-T{~}PlantWall~)
sedtankpipe14{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~
* y: tank{~}origin1~ + W{~}Sed~/2
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ \- T{~}Mp~
ND{~}SedPipeEntrance~ = Nominal diameter of launder.
T{~}ChannelWall~ = Thickness of channel wall.
\\
\\
{float:left|border=2px solid black}
[!rotate2.bmp|width=500px300px!|AutoCAD Channel Program]
Top View
{float}
*rotate2* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle.
rotate2 <\- rotae{~}3d~(p1,sedtankpipe14{~}origin~,"y",90)
p1 =
* x: sedtankpipe14{~}origin0~ + outerradius(ND{~}SedLaunder~)
* y: sedtankpipe14{~}origin1~
* z: sedtankpipe14{~}origin2~
sedtankpipe14{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~
* y: tank{~}origin1~ + W{~}Sed~/2
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ \- T{~}Mp~
"y" - specifies axis that object will be rotated about.
\\
\\
{float:left|border=2px solid black}
[!subtract2.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
*subtract2* \- [SubtractD|AutoCAD Basics Subtractions] subtracts a selected object based on two specified points.
subtract2 <\- subtractD(Plant{~}Origin~,p1)
p1 =
* x: sedtankpipe14{~}origin0~
* y: sedtankpipe14{~}origin1~ + outerradius(ND{~}SedLaunder~)
* z: sedtankpipe14{~}origin2~
*holes1* \-
holes1 <\- concat(cylinder5,rotate2)
//
//
*layerthawp* \- [Layer{~}thaw~|AutoCAD Basics Layer] unlocks the layer "pipe" so that it can be edited.
layerthawp <-layer{~}thaw~("pipe")
*layersetp* \- [Layer{~}set~|AutoCAD Basics Layer] selects the layer "pipe".
layersetp <\- layer{~}set~("pipe")
*pipe13* \- Calls the [Pipe Program|AutoCAD Pipe Program] to create a pipe.
pipe13 <\- Pipe(sedtankpipe13{~}origin~,ND{~}SedLaunder~,sedtankpipe13{~}length~,EN{~}PipeSpec~)
sedtankpipe13{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~ + T{~}ChannelWall~ + ElbowRadius(ND{~}SedLaunder~)
* y: tank{~}origin1~ + W{~}Sed~/2
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ \- T{~}Mp~ + ElbowRadius(ND{~}SedLaunder~)
*pipe14* \- Calls the [Pipe Program|AutoCAD Pipe Program] to create a pipe.
pipe14 <\- Pipe(sedtankpipe14{~}origin~,ND{~}SedLaunder~,sedtankpipe14{~}length~,EN{~}PipeSpec~)
sedtankpipe14{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~
* y: tank{~}origin1~ + W{~}Sed~/2
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ \- T{~}Mp~
*rotate6* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle.
rotate6 <\- rotate{~}3d~(p1,sedtankpipe14{~}origin~,"y",90)
p1 =
* x: sedtankpipe14{~}origin0~ + innerD(ND{~}SedLaunder~,EN{~}PipeSpec~)/2
* y: sedtankpipe14{~}origin1~
* z: sedtankpipe14{~}origin2~
sedtankpipe14{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~
* y: tank{~}origin1~ + W{~}Sed~/2
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ \- T{~}Mp~
"y" - specifies axis that object will be rotated about.
*layerfreeze3* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "channel" so that it cannot be edited.
layerfreeze3 <\- layer{~}freeze~("pipe") |
