...
Inlet
...
Pipe
...
Drawing
...
Script
...
-
...
layout
...
1
viewtops - Adjusts the workspace so that the object is being viewed from the top.
viewtops <- viewtop1
layerthawc - Layerthaw unlocks the layer "channel" so that it can be edited.
layerthawc <- layerthaw("channel")
layersetc - Layerset selects the layer "channel".
layersetc <- layerset("channel")
Wiki Markup |
---|
*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
...
-
...
...
creates
...
a
...
cylinder
...
based
...
on
...
three
...
dimensions.
...
cylinder1
...
<
...
-
...
cylinderA(sedtankpipe1
...
origin,outerradius(ND
...
SedPipeEntrance),-TChannelWall)
sedtankpipe1origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank
TChannelWall = Thickness of channel wall.
Wiki Markup |
---|
{~}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~ \\ \\ {float:left|border=2px solid black} [!cylinder2.bmp|width=500px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
cylinder2
...
-
...
...
creates
...
a
...
cylinder
...
based
...
on
...
three
...
dimensions.
...
cylinder2
...
<
...
-
...
cylinderA(sedtankpipe2
...
origin,outerradius(ND
...
SedPipeEntrance),-TChannelWall)
sedtankpipe2origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
TChannelWall = Thickness of channel wall.
Wiki Markup |
---|
{{~}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~ \\ \\ {float:left|border=2px solid black} [!cylinder3.bmp|width=500px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
cylinder3
...
-
...
...
creates
...
a
...
cylinder
...
based
...
on
...
three
...
dimensions.
...
cylinder3
...
<
...
-
...
cylinderC(sedtankpipe3
...
origin,outerradius(ND
...
SedPipeEntrance),-TChannelWall)
sedtankpipe3origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank
TChannelWall = Thickness of channel wall.
Wiki Markup |
---|
{float:left|border=2px solid black} [{~}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~ \\ \\ {float:left|border=2px solid black} [!cylinder4.bmp|width=500px600px!|AutoCAD Channel Program] Northeast Isometric View {float} * |
cylinder4
...
-
...
...
creates
...
a
...
cylinder
...
based
...
on
...
three
...
dimensions.
...
cylinder4
...
<
...
-
...
cylinderA(sedtankpipe4
...
origin,outerradius(ND
...
SedPipeEntrance),-TChannelWall)
sedtankpipe4origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank
TChannelWall = Thickness of channel wall.
subtract1 - SubtractH subtracts a selected object based on three specified points.
subtract1 <- subtractH(channelorigin,p1,p2)
channelorigin =
- if layout 1-3:
- x: tankorigin0 - LSed + WChannel
- y: tankorigin1 - TPlantWall
- z: tankorigin2 + HSed - HChannel
- if layout4:
- x: tankorigin0 - LSed -TChannelWall
- y: tankorigin1 - TPlantWall
- z: tankorigin2 + HSed - HChannel
p1 =
- x: sedtankpipe1origin0 + outerradius(NDSedPipeEntrance)
- y: sedtankpipe1origin1 + outerradius(NDSedPipeEntrance)
- z: sedtankpipe1origin2
p2 =
- x: sedtankpipe4origin0 - outerradius(NDSedPipeEntrance)
- y: sedtankpipe4origin1 - outerradius(NDSedPipeEntrance)
- z: sedtankpipe4origin2
layerset - Layerset selects the layer "0".
layerset <- layerset("0")
layerfreeze - Layerfreeze locks the layer "channel" so that it cannot be edited.
layerfreeze <- layerfreeze("channel")
layer3 - Layernew creates a new blue layer "pipe".
layer3 <- layernew("pipe",blue)
Wiki Markup |
---|
{~}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~ \\ \\ *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
...
...
...
to
...
create
...
a
...
pipe.
...
pipe1
...
<
...
-
...
Pipe(sedtankpipe1
...
origin,ND
...
SedPipeEntrance,-sedtankpipe1
...
length,ENPipeSpec)
sedtankpipe1origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe1{}length = HSed - HInletChannel - (WSed/2 * tank(ANSedBottom) + ElbowRadius(NDSedPipeEntrance))-ElbowRadius(NDSedPipeEntrance)
ENPipeSpec = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
Wiki Markup |
---|
{~}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
...
...
...
to
...
create
...
a
...
pipe.
...
pipe2
...
<
...
-
...
Pipe(sedtankpipe2
...
origin,ND
...
SedPipeEntrance,-sedtankpipe1
...
length,EN
...
PipeSpec)
sedtankpipe2origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe1{}length = HSed - HInletChannel - (WSed/2 * tank(ANSedBottom) + ElbowRadius(NDSedPipeEntrance))-ElbowRadius(NDSedPipeEntrance)
ENPipeSpec = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe3.bmp|width=300px!|AutoCAD Channel Program]
Northeast Isometric View
{float} |
pipe3 - Calls the Pipe Program to create a pipe.
pipe3 <- Pipe(sedtankpipe3origin,NDSedPipeEntrance,-sedtankpipe1length,ENPipeSpec)
sedtankpipe3origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe1{}length = HSed - HInletChannel - (WSed/2 * tank(ANSedBottom) + ElbowRadius(NDSedPipeEntrance))-ElbowRadius(NDSedPipeEntrance)
ENPipeSpec = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe4.bmp|width=200px!|AutoCAD Channel Program]
Northeast Isometric View
{float} |
pipe4 - Calls the Pipe Program to create a pipe.
pipe4 <- Pipe(sedtankpipe4origin,NDSedPipeEntrance,-sedtankpipe1length,ENPipeSpec)
sedtankpipe4origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe1{}length = HSed - HInletChannel - (WSed/2 * tank(ANSedBottom) + ElbowRadius(NDSedPipeEntrance))-ElbowRadius(NDSedPipeEntrance)
ENPipeSpec = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe5.bmp|width=400px!|AutoCAD Channel Program]
Northeast Isometric View
{float} |
pipe5 - Calls the Pipe Program to create a pipe.
pipe5 <- Pipe(sedtankpipe5origin,NDSedPipeEntrance,-sedtankpipe5length,ENPipeSpec)
sedtankpipe5origin =
- x: tankorigin0 - LSed + WChannel/2 + ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + WSed/2*tan(ANSedBottom) + ElbowRadius(NDSedPipeEntrance)
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe5length = ((5LSed/8 - WInletChannel/2)2 + (outerradius(NDSedLaunder) + 3*(WSed/2 - outerradius(NDSedLaunder))/4)2)1/2 - 2ElbowRadius(NDSedPipeEntrance~)
ENPipeSpec = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotatepipe5.bmp|width=550px!|AutoCAD Channel Program]
Northeast Isometric View
{float} |
rotatepipe5 - Rotate3d turns the object based on a given axis and degree angle.
rotatepipe5 <- rotate3d(p1,sedtankpipe5origin,"y",90)
p1 =
- x: sedtankpipe5origin0 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- y: sedtankpipe5origin1
- z: sedtankpipe5origin2
sedtankpipe5origin =
- x: tankorigin0 - LSed + WChannel/2 + ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + WSed/2*tan(ANSedBottom) + ElbowRadius(NDSedPipeEntrance)
"y" - specifies axis that object will be rotated about.
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotate2a.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float} |
rotate2a - Rotate3d turns the object based on a given axis and degree angle.
rotate2a - rotate3d(p1,sedtankpipe1origin,"z",sedtankpipe5angle)
sedtankpipe1origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
p1 =
- x: sedtankpipe5origin0
- y: sedtankpipe5origin1 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- z: sedtankpipe5origin2 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
"z" - specifies axis that object will be rotated about.
sedtankpipe5angle = -(rad/deg) * atan((((5*LSed)/8 - WChannel/2)/ [3 * (WSed/2 - outerradius(NDSedLaunder))/4) + outerradius(NDSedLaunder))-1)
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe6 NE.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float} |
pipe6 - Calls the Pipe Program to create a pipe.
pipe6 <- Pipe(sedtankpipe6origin,NDSedPipeEntrance,sedtankpipe6length,ENPipeSpec)
sedtankpipe6origin =
- x: tankorigin0 - LSed + WChannel/2 + ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + WSed/2*tan(ANSedBottom) + ElbowRadius(NDSedPipeEntrance)
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe6length = ((LSed/8 - WInletChannel/2)2 + (outerradius(NDSedLaunder) + 1*(WSed/2 - outerradius(NDSedLaunder))/4)2)1/2 - 2ElbowRadius(NDSedPipeEntrance)
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotate3 new.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float} |
rotate3 - Rotate3d turns the object based on a given axis and degree angle.
rotate3 <- rotate3d(p1,sedtankpipe6origin,"y",90)
p1 =
- x: sedtankpipeorigin0 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- y: sedtankpipe5origin1
- z: sedtankpipe5origin0
sedtankpipe6origin =
- x: tankorigin0 - LSed + WChannel/2 + ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + WSed/2*tan(ANSedBottom) + ElbowRadius(NDSedPipeEntrance)
"y" - specifies axis that object will be rotated about.
90 - rotation angle
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotate3a.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float} |
rotate3a - Rotate3d turns the object based on a given axis and degree angle.
rotate3a <- rotate3d(p1,sedtankpipe2origin,"z",sedtankpipe6angle)
p1 =
- x: sedtankpipe6origin0
- y: sedtankpipe6origin1 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- z: sedtankpipe6origin2 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
sedtankpipe2origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 + outerradius(NDSedLaunder) + 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
"z" - specifies axis that object will be rotated about.
sedtankpipe6angle = -(rad/deg) * (((LSed/8 - WChannel/2)/ ((WSed/2 - outerradius(NDSedLaunder))/4) + outerradius(NDSedLaunder))-1)
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe7 NE.bmp|width=500px!|AutoCAD Channel Program]
NorthEast Isometric View
{float} |
pipe7 - Calls the Pipe Program to create a pipe.
pipe7 <- Pipe(sedtank7origin,NDSedPipeEntrance,sedtankpipe7length,ENPipeSpec)
sedtankpipe7origin =
- x: tankorigin0 - LSed + WChannel/2 + ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + WSed/2*tan(ANSedBottom) + ElbowRadius(NDSedPipeEntrance)
sedtankpipe7length = ((3LSed/8 - WInletChannel/2)2 + (outerradius(NDSedLaunder) - 1*WSed/2 - outerradius(NDSedLaunder))/4)2)1/2 - 2ElbowRadius(NDSedPipeEntrance)
ENPipeSpec = Enumerated type
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotate4.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float} |
rotate4 - Rotate3d turns the object based on a given axis and degree angle.
rotate4 <- rotate3d(p1,sedtankpipe7origin,"y",90)
p1 =
- x: sedtankpipe7origin0 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- y: sedtankpipe7origin1
- z: sedtankpipe7origin2
sedtankpipe7origin =
- x: tankorigin0 - LSed + WChannel/2 + ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + WSed/2*tan(ANSedBottom) + ElbowRadius(NDSedPipeEntrance)
"y" - specifies axis that object will be rotated about.
90 - Specifies rotation angle.
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotate4a.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float} |
rotate4a - Rotate3d turns the object based on a given axis and degree angle.
rotate4a <- rotate3d(p1,sedtankpipe3origin,"z",sedtankpipe7angle)
p1 =
- x: sedtankpipe7origin0
- y: sedtankpipe7origin1 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- z: sedtankpipe7origin2 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
sedtankpipe3origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 1*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
"z" - specifies axis that object will be rotated about.
sedtankpipe7angle = -(rad/deg) * atan(((3*LSed/8 - WChannel/2)/ ((WSed/2 - outerradius(NDSedLaunder))/4) + outerradius(NDSedLaunder))-1)
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe8 NE.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float} |
pipe8 - Calls the Pipe Program to create a pipe.
pipe8 <- Pipe(sedtankpipe8origin,NDSedPipeEntrance,sedtankpipe8length,ENPipeSpec)
sedtankpipe8origin =
- x: tankorigin0 - LSed + WChannel/2 + ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + WSed/2*tan(ANSedBottom) + ElbowRadius(NDSedPipeEntrance)
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.
sedtankpipe8length = ((7LSed/8 - WInletChannel/2)2 + (outerradius(NDSedLaunder) - 3*WSed/2 - outerradius(NDSedLaunder))/4)2)1/2 - 2ElbowRadius(NDSedPipeEntrance)
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotate5.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float} |
rotate5 - Rotate3d turns the object based on a given axis and degree angle.
rotate5 <- rotate3d(p1,sedtankpipe8origin,"y",90)
p1 =
- x: sedtankpipe8origin0 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- y: sedtankpipe8origin1
- z: sedtankpipe8origin2
sedtankpipe8origin =
- x: tankorigin0 - LSed + WChannel/2 + ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + WSed/2*tan(ANSedBottom) + ElbowRadius(NDSedPipeEntrance)
"y" - specifies axis that object will be rotated about.
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotate5a.bmp|width=500px!|AutoCAD Channel Program]
Top View
{float} |
rotate5a - Rotate3d turns the object based on a given axis and degree angle.
rotate5a <- rotate3d(p1,sedtankpipe4origin,"z",sedtankpipe8angle)
p1 =
- x: sedtankpipe8origin0
- y: sedtankpipe8origin1 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- z: sedtankpipe8origin2 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
sedtankpipe4origin =
- x: tankorigin0 - LSed + WChannel/2
- y: tankorigin1 + WSed/2 - outerradius(NDSedLaunder) - 3*(WSed/2 - outerradius(NDSedLaunder))/4
- z: tankorigin2 + HSed - HChannel
"z" - specifies axis that object will be rotated about.
sedtankpipe8angle = -(rad/deg) * atan((((7*LSed)/8 - WChannel/2)/ (3*(WSed/2 - outerradius(NDSedLaunder))/4) + outerradius(NDSedLaunder))-1)
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe9 NE.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float} |
pipe9 - Calls the Pipe Program to create a pipe.
pipe9 <- Pipe(sedtankpipe9origin,NDSedPipeEntrance,sedtankpipe9length,ENPipeSpec)
sedtankpipe9origin =
- x: tankorigin0 - (7*LSed)/8
- y: tankorigin1 + WSed/2
- z: tankorigin2 + SSedInlet
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank
sedtankpipe9length = WSed/2 * tan(ANSedBottom) - ElbowRadius(NDSedPipeEntrance) - SSedInlet + ElbowRadius(NDSedPipeEntrance)
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe10 NE.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float} |
pipe10 - Calls the Pipe Program to create a pipe.
pipe10 <- Pipe(sedtankpipe10origin,NDSedPipeEntrance,sedtankpipe9length,ENPipeSpec)
sedtankpipe10origin =
- x: tankorigin0 - (5*LSed)/8
- y: tankorigin1 + WSed/2
- z: tankorigin2 + SSedInlet
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank
sedtankpipe9length = WSed/2 * tan(ANSedBottom) - ElbowRadius(NDSedPipeEntrance) - SSedInlet + ElbowRadius(NDSedPipeEntrance)
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe11 NE.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float} |
pipe11 - Calls the Pipe Program to create a pipe.
pipe11 <- Pipe(sedtankpipe11origin,NDSedPipeEntrance,sedtankpipe9length,ENPipeSpec)
sedtankpipe11origin =
- x: tankorigin0 - (3*LSed)/8
- y: tankorigin1 + WSed/2
- z: tankorigin2 + SSedInlet
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank
sedtankpipe9length = WSed/2 * tan(ANSedBottom) - ElbowRadius(NDSedPipeEntrance) - SSedInlet + ElbowRadius(NDSedPipeEntrance)
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe12 NE.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float} |
pipe12 - Calls the Pipe Program to create a pipe.
pipe12 <- Pipe(sedtankpipe12origin,NDSedPipeEntrance,sedtankpipe9length,ENPipeSpec)
sedtankpipe12origin =
- x: tankorigin0 - (LSed)/8
- y: tankorigin1 + WSed/2
- z: tankorigin2 + SSedInlet
NDSedPipeEntrance = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank
sedtankpip9length = WSed/2 * tan(ANSedBottom) - ElbowRadius(NDSedPipeEntrance) - SSedInlet + ElbowRadius(NDSedPipeEntrance)
layerfreeze2 - Layerfreeze locks the layer "pipe" so that it cannot be edited.
layerfreeze2 <- layerfreeze("pipe")
Wiki Markup |
---|
{float:left|border=2px solid black}
[!cylinder5.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float} |
cylinder5 - CylinderA creates a cylinder based on three dimensions.
cylinder5 <- cylinderA(sedtankpipe14origin,outerradius(NDSedLaunder),-TPlantWall)
sedtankpipe14origin =
- x: tankorigin0 - LSed
- y: tankorigin1 + WSed/2
- z: tankorigin2 + HSed - HChannel - TMp
NDSedLaunder = Nominal diameter of launder.
TChannelWall = Thickness of channel wall.
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotate2.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float} |
rotate2 - Rotate3d turns the object based on a given axis and degree angle.
rotate2 <- rotate3d(p1,sedtankpipe14origin,"y",90)
p1 =
- x: sedtankpipe14origin0 + outerradius(NDSedLaunder)
- y: sedtankpipe14origin1
- z: sedtankpipe14origin2
sedtankpipe14origin =
- x: tankorigin0 - LSed
- y: tankorigin1 + WSed/2
- z: tankorigin2 + HSed - HChannel - TMp
"y" - specifies axis that object will be rotated about.
Wiki Markup |
---|
{float:left|border=2px solid black}
[!subtract2.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float} |
subtract2 - SubtractD subtracts a selected object based on two specified points.
subtract2 <- subtractD(PlantOrigin,p1)
p1 =
- x: sedtankpipe14origin0
- y: sedtankpipe14origin1 + outerradius(NDSedLaunder)
- z: sedtankpipe14origin2
//
//
layerthawp - Layerthaw unlocks the layer "pipe" so that it can be edited.
layerthawp <-layerthaw("pipe")
layersetp - Layerset selects the layer "pipe".
layersetp <- layerset("pipe")
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe13.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float} |
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe13 NE.bmp|width=300px!|AutoCAD Channel Program]
NorthEast Isometric View
{float} |
pipe13 - Calls the Pipe Program to create a pipe.
pipe13 <- Pipe(sedtankpipe13origin,NDSedLaunder,sedtankpipe13length,ENPipeSpec)
sedtankpipe13origin =
- x: tankorigin0 - LSed + WChannel + TChannelWall + ElbowRadius(NDSedLaunder)
- y: tankorigin1 + WSed/2
- z: tankorigin2 + HSed - HChannel - TMp + ElbowRadius(NDSedLaunder)
NDSedLaunder = Nominal diameter of launder.
sedtankpipe13length = HWSed - HSedAbove/2 - 2ElbowRadius(NDSedLaunder) - (HSed - HInletChannel - TMp)
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe14.bmp|width=300px!|AutoCAD Channel Program]
NorthEast Isometric View
{float} |
Wiki Markup |
---|
{float:left|border=2px solid black}
[!pipe14 NE.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float} |
pipe14 - Calls the Pipe Program to create a pipe.
pipe14 <- Pipe(sedtankpipe14origin,NDSedLaunder,sedtankpipe14length,ENPipeSpec)
sedtankpipe14origin =
- x: tankorigin0 - LSed
- y: tankorigin1 + WSed/2
- z: tankorigin2 + HSed - HChannel - TMp
NDSedLaunder = Nominal diameter of launder.
sedtankpipe14length = WInletChannel + TChannelWall
Wiki Markup |
---|
{float:left|border=2px solid black}
[!rotate6.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float} |
rotate6 - Rotate3d turns the object based on a given axis and degree angle.
rotate6 <- rotate3d(p1,sedtankpipe14origin,"y",90)
p1 =
- x: sedtankpipe14origin0 + innerD(NDSedLaunder,ENPipeSpec)/2
- y: sedtankpipe14origin1
- z: sedtankpipe14origin2
sedtankpipe14origin =
- x: tankorigin0 - LSed
- y: tankorigin1 + WSed/2
- z: tankorigin2 + HSed - HChannel - TMp
"y" - specifies axis that object will be rotated about.
layerfreeze3 - Layerfreeze locks the layer "channel" so that it cannot be edited.
layerfreeze3 <- layerfreeze("pipe")