Wiki Markup |
---|
h1. Elbow Drawing Script |
...
*layer4* \- [Layer{~}new~|AutoCAD Basics Layer] creates a new green layer "elbow." |
...
layer4 <\- layer |
...
{~}new~("elbow",green) |
...
elbow1 - Calls the Elbow Program to create an elbow.
elbow1 <- elbow(sedtankelbow1origin,NDSedPipeEntrance,ENPipeSpec)
sedtankelbow1origin =
- x: PlantOrigin0 - LSed + WInletChannel/2
- y: PlantOrigin1 + WSed/2 + outerradius(NDSedLaunder) + 3*(WSed/2 - outerradius(NDSedLaunder))/4 - ElbowRadius(NDSedPipeEntrance)
- z: PlantOrigin2 + sedtankpipe9length + SSedInlet + 2ElbowRadius(NDSedPipeEntrance)
NDSedPipeEntrance = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow
ENPipeSpec = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
rotate6 - Rotate3d turns the object based on a given axis and degree angle.
...
{float:left|border=2px solid black} [!elbow1.bmp|width=280px!|AutoCAD Channel Program] Top View {float} *elbow1* \- Calls the [Elbow Program|AutoCAD Elbow Program] to create an elbow. elbow1 <\- elbow(sedtankelbow1{~}origin~,ND{~}SedPipeEntrance~,EN{~}PipeSpec~) sedtankelbow1{~}origin~ = * x: Plant{~}Origin0~ \- L{~}Sed~ + W{~}InletChannel~/2 * y: Plant{~}Origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 3*(W{~}Sed~/2 - outerradius(ND{~}SedLaunder~))/4 - ElbowRadius(ND{~}SedPipeEntrance~) * z: Plant{~}Origin2~ + sedtankpipe9{~}length~ + S{~}SedInlet~ + 2ElbowRadius(ND{~}SedPipeEntrance~) ND{~}SedPipeEntrance~ = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow EN{~}PipeSpec~ = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code. \\ \\ {float:left|border=2px solid black} [!rotate6.bmp|width=280px!|AutoCAD Channel Program] Top View {float} *rotate6* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle. rotate6 <\- rotate{~}3d~(p1,p2,"x",-90) |
...
Note: p1 and p2 are dummy variables used only in the program help section to designate the matrix below. |
...
p1 = |
...
* x: |
...
sedtankelbow1{~}origin0~ * y: sedtankelbow1 |
...
{~}origin1~ + ElbowRadius(ND |
...
{~}SedPipeEntrance~) * z: sedtankelbow1 |
...
{~}origin2~ + innerD(ND |
...
{~}SedPipeEntrance~,EN |
...
{~}PipeSpec~)/2 |
...
p2 = |
...
* x: |
...
sedtankelbow1{~}origin0~ * y: sedtankelbow1 |
...
{~}origin1~ + ElbowRadius(ND |
...
{~}SedPipeEntrance~) * z: |
...
sedtankelbow{~}origin2~ "x" - |
...
-90 - rotation angle
rotate7 - Rotate3d turns the object based on a given axis and degree angle.
...
specifies axis that object will be rotated about. \-90 - rotation angle \\ \\ {float:left|border=2px solid black} [!rotate7.bmp|width=280px!|AutoCAD Channel Program] Top View {float} *rotate7* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle. rotate7 <\- rotate{~}3d~(p1,p2,"y",90) |
...
Note: p1 and p2 are dummy variables used only in the program help section to designate the matrix below. |
...
p1 = |
...
* x: |
...
sedtankelbow1{~}origin0~ * y: sedtankelbow1 |
...
{~}origin1~ + ElbowRadius(ND |
...
{~}SedPipeEntrance~) * z: sedtankelbow1 |
...
{~}origin2~ + innerD(ND |
...
{~}SedPipeEntrance~,EN |
...
{~}PipeSpec~)/2 |
...
p2 = |
...
* x: |
...
sedtankelbow1{~}origin0~ * y: sedtankelbow1 |
...
{~}origin1~ + ElbowRadius(ND |
...
{~}SedPipeEntrance~) * z: |
...
sedtankelbow{~}origin2~ "y" - specifies axis that object will be rotated about. |
...
90 - rotation |
...
copy1 - CopyDa duplicates the selected object.
...
angle. \\ \\ *copy1* \- [CopyDa|AutoCAD Basics Copy] duplicates the selected object. copy1 <\- copyDa(p1,sedtankpipe5 |
...
{~}origin~,sedtankpipe6 |
...
{~}origin~,sedtankpipe7 |
...
{~}origin~,sedtankpipe8 |
...
{~}origin~) Note: p1 is a dummy variable used only in the program help section to designate the matrix below. |
...
p1 = |
...
* x: |
...
sedtankpipe5{~}origin0~ * y: |
...
sedtankpipe5{~}origin1~ * z: |
...
sedtankpipe5{~}origin2~ \- outerradius(ND |
...
sedtankpipe5origin =
...
{~}SedPipeEntrance~) sedtankpipe5{~}origin~ = * x: Plant{~}Origin0~ \- L{~}Sed~ + ElbowRadius(ND{~}SedPipeEntrance~) * y: Plant{~}Origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 3(W{~}Sed~/2 - outerradius(ND{~}SedLaunder))/4 |
...
* z: Plant |
...
{~}Origin2~ + (W |
...
{~}Sed~/2)*tank(AN |
...
{~}SedBottom~) + ElbowRadius(ND |
...
sedtankpipe6origin =
...
{~}SedPipeEntrance~) sedtankpipe6{~}origin~ = * x: Plant{~}Origin0~ \- L{~}Sed~ + ElbowRadius(ND{~}SedPipeEntrance~) * y: Plant{~}Origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 1(W{~}Sed~/2 - outerradius(ND{~}SedLaunder))/4 |
...
* z: Plant |
...
{~}Origin2~ + (W |
...
{~}Sed~/2)*tank(AN |
...
{~}SedBottom~) + ElbowRadius(ND |
...
sedtankpipe7origin =
...
{~}SedPipeEntrance~) sedtankpipe7{~}origin~ = * x: Plant{~}Origin0~ \- L{~}Sed~ + ElbowRadius(ND{~}SedPipeEntrance~) * y: Plant{~}Origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 1(W{~}Sed~/2 - outerradius(ND{~}SedLaunder))/4 |
...
* z: Plant |
...
{~}Origin2~ + (W |
...
{~}Sed~/2)*tank(AN |
...
{~}SedBottom~) + ElbowRadius(ND |
...
sedtankpipe8origin =
...
{~}SedPipeEntrance~) sedtankpipe8{~}origin~ = * x: Plant{~}Origin0~ \- L{~}Sed~ + ElbowRadius(ND{~}SedPipeEntrance~) * y: Plant{~}Origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 3(W{~}Sed~/2 - outerradius(ND{~}SedLaunder))/4 |
...
* z: Plant |
...
{~}Origin2~ + (W |
...
{~}Sed~/2)*tank(AN |
...
{~}SedBottom~) + ElbowRadius(ND |
...
rotate8 - Rotate3d turns the object based on a given axis and degree angle.
...
{~}SedPipeEntrance~) *rotate8* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle. rotate8 <\- rotate{~}3d~(p1,sedtankpipe1{~}origin~,"z",sedtankpipe5 |
...
{~}angle~) Note: p1 is a dummy variable used only in the program help section to designate the matrix below. |
...
p1 = |
...
* x: |
...
sedtankpipe5{~}origin0~ * y: |
...
sedtankpipe1origin =
...
sedtankpipe5{~}origin1~ * z: sedtankpipe5{~}origin2~ \- outerradius(ND{~}SedPipeEntrance~) sedtankpipe1{~}origin~ = * x: Plant{~}Origin0~ \- L{~}Sed~ + ElbowRadius(ND{~}SedPipeEntrance~) * y: Plant{~}Origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 3(W{~}Sed~/2 - outerradius(ND{~}SedLaunder))/4 |
...
* z: Plant |
...
{~}Origin2~ + (W |
...
{~}Sed~/2)*tank(AN |
...
{~}SedBottom~) + ElbowRadius(ND |
...
{~}SedPipeEntrance~) "z" - specifies axis that object will be rotated about. |
...
sedtank5angle - specifies rotation angle.
rotate9 - Rotate3d turns the object based on a given axis and degree angle.
...
sedtank5{~}angle~ \- specifies rotation angle. *rotate9* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle. rotate9 <\- rotate{~}3d~(p1,sedtankpipe2{~}origin~,"z".sedtankpipe6 |
...
{~}angle~) Note: p1 is a dummy variable used only in the program help section to designate the matrix below. |
...
p1 = |
...
- x: sedtankpipe6origin0
- y: sedtankpipe6origin1
- z: sedtankpipe6origin2 - outerradius(NDSedPipeEntrance)
sedtankpipe2origin =
...
* x: sedtankpipe6{~}origin0~ * y: sedtankpipe6{~}origin1~ * z: sedtankpipe6{~}origin2~ \- outerradius(ND{~}SedPipeEntrance~) sedtankpipe2{~}origin~ = * x: Plant{~}Origin0~ \- L{~}Sed~ + ElbowRadius(ND{~}SedPipeEntrance~) * y: Plant{~}Origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 1(W{~}Sed~/2 - outerradius(ND{~}SedLaunder))/4 |
...
* z: Plant |
...
{~}Origin2~ + (W |
...
{~}Sed~/2)*tank(AN |
...
{~}SedBottom~) + ElbowRadius(ND |
...
{~}SedPipeEntrance~) "z" - specifies axis that object will be rotated about. |
...
sedtank6angle - specifies rotation angle.
rotate10 - Rotate3d turns the object based on a given axis and degree angle.
...
sedtank6{~}angle~ \- specifies rotation angle. *rotate10* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle. rotate10 <\- rotate{~}3d~(p1,sedtankpipe3{~}origin~,"z".sedtankpipe7 |
...
{~}angle~) Note: p1 is a dummy variable used only in the program help section to designate the matrix below. |
...
p1 = |
...
* x: |
...
sedtankpipe7{~}origin0~ * y: |
...
sedtankpipe7{~}origin1~ * z: |
...
sedtankpipe7{~}origin2~ \- outerradius(ND |
...
sedtankpipe3origin =
...
{~}SedPipeEntrance~) sedtankpipe3{~}origin~ = * x: Plant{~}Origin0~ \- L{~}Sed~ + ElbowRadius(ND{~}SedPipeEntrance~) * y: Plant{~}Origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 1(W{~}Sed~/2 - outerradius(ND{~}SedLaunder))/4 |
...
* z: Plant |
...
{~}Origin2~ + (W |
...
{~}Sed~/2)*tank(AN |
...
{~}SedBottom~) + ElbowRadius(ND |
...
{~}SedPipeEntrance~) "z" - specifies axis that object will be rotated about. |
...
sedtank7angle - specifies rotation angle.
rotate11 - Rotate3d turns the object based on a given axis and degree angle.
rotate11 <- rotate3d(p1,sedtankpipe4origin,"z".sedtankpipe8angle)
Note: p1 is a dummy variable used only in the program help section to designate the matrix below.
p1 =
- x: sedtankpipe8origin0
- y: sedtankpipe8origin1
- z: sedtankpipe8origin2 - outerradius(NDSedPipeEntrance)
sedtankpipe4origin =
...
sedtank7{~}angle~ \- specifies rotation angle. *rotate11* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle. rotate11 <\- rotate{~}3d~(p1,sedtankpipe4{~}origin~,"z".sedtankpipe8{~}angle~) Note: p1 is a dummy variable used only in the program help section to designate the matrix below. p1 = * x: sedtankpipe8{~}origin0~ * y: sedtankpipe8{~}origin1~ * z: sedtankpipe8{~}origin2~ \- outerradius(ND{~}SedPipeEntrance~) sedtankpipe4{~}origin~ = * x: Plant{~}Origin0~ \- L{~}Sed~ + ElbowRadius(ND{~}SedPipeEntrance~) * y: Plant{~}Origin1~ + W{~}Sed~/2 + outerradius(ND{~}SedLaunder~) + 1(W{~}Sed~/2 - outerradius(ND{~}SedLaunder))/4 |
...
* z: Plant |
...
{~}Origin2~ + |
...
(W{~}Sed~/2)*tank(AN |
...
{~}SedBottom~) + ElbowRadius(ND |
...
{~}SedPipeEntrance~) "z" - specifies axis that object will be rotated about. |
...
sedtank8angle - specifies rotation angle.
...
sedtank8{~}angle~ \- specifies rotation angle. *layerset* \- [Layer{~}set~|AutoCAD Basics Layer] selects the layer "0". |
...
layerset < |
...
\- layer{~}set~("0") |
...
*layerfreeze4* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "elbow" so that it cannot be edited. |
...
layerfreeze4 <\- layer |
...
{~}freeze~("elbow") |
...
*layer5* \- [Layer{~}new~|AutoCAD Basics Layer] creates a new green layer "elbowa." |
...
layer5 <\- layer |
...
{~}new~("elbowa",green) |
...
elbow5 - Calls the Elbow Program to create an elbow.
elbow5 <- elbow(sedtankelbow5origin,NDSedPipeEntrance,ENPipeSpec)
sedtankelbow5origin =
- x: tankorigin0 - (7*LSed)/8 - ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedPipeEntrance)
- z: tankorigin2 + SSedInlet + sedtankpipe9length + ElbowRadius(NDSedPipeEntrance)
NDSedPipeEntrance = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow
ENPipeSpec = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
rotate14 - Rotate3d turns the object based on a given axis and degree angle.
...
*elbow5* \- Calls the [Elbow Program|AutoCAD Elbow Program] to create an elbow. elbow5 <\- elbow(sedtankelbow5{~}origin~,ND{~}SedPipeEntrance~,EN{~}PipeSpec~) sedtankelbow5{~}origin~ = * x: tank{~}origin0~ \- (7*L{~}Sed~)/8 - ElbowRadius(ND{~}SedPipeEntrance~) * y: tank{~}origin1~ + W{~}Sed~/2 - ElbowRadius(ND{~}SedPipeEntrance~) * z: tank{~}origin2~ + S{~}SedInlet~ + sedtankpipe9{~}length~ + ElbowRadius(ND{~}SedPipeEntrance~) ND{~}SedPipeEntrance~ = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow EN{~}PipeSpec~ = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code. *rotate14* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle. rotate14 <\- rotate{~}3d~(p1,p2,"x",90) |
...
Note: p1 and p2 are dummy variables used only in the program help section to designate the matrix below. |
...
p1 = |
...
* x: |
...
sedtankelbow5{~}origin0~ * y: sedtankelbow5 |
...
{~}origin1~ + ElbowRadius(ND |
...
{~}SedPipeEntrance~) * z: sedtankelbow5 |
...
{~}origin2~ + (innerD(ND |
...
{~}SedPipeEntrance~,EN |
...
{~}PipeSpec~)/2) |
...
p2 = |
...
* x: |
...
sedtankelbow5{~}origin0~ * y: sedtankelbow5 |
...
{~}origin1~ + ElbowRadius(ND |
...
{~}SedPipeEntrance~) * z: |
...
sedtankelbow5{~}origin2~ "x" - specifies axis that object will be rotated about. |
...
90 - specifies rotation angle. |
...
copy2 - CopyDa duplicates the selected objuect.
...
*copy2* \- [CopyDa|AutoCAD Basics Copy] duplicates the selected objuect. copy2 <\- copyDa(p1,sedtankelbow5 |
...
{~}origin~,sedtankelbow6 |
...
{~}origin~,sedtankelbow7 |
...
{~}origin~,sedtankelbow8 |
...
{~}origin~) Note: p1 is a dummy variable used only in the program help section to designate the matrix below. |
...
p1 = |
...
* x: |
...
sedtankpipe9{~}origin0~ \- ElbowRadius(ND |
...
{~}SedPipeEntrance~) * y: |
...
sedtankpipe9{~}origin1~ * z: |
...
sedtankelbow5origin =
- x: tankorigin0 - (7*LSed)/8 - ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedPipeEntrance)
- z: tankorigin2 + SSedInlet + sedtankpipe9length + ElbowRadius(NDSedPipeEntrance)
sedtankelbow6origin =
- x: tankorigin0 - (5*LSed)/8 - ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedPipeEntrance)
- z: tankorigin2 + SSedInlet + sedtankpipe9length + ElbowRadius(NDSedPipeEntrance)
sedtankelbow7origin =
- x: tankorigin0 - (3*LSed)/8 - ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedPipeEntrance)
- z: tankorigin2 + SSedInlet + sedtankpipe9length + ElbowRadius(NDSedPipeEntrance)
sedtankelbow8origin =
- x: tankorigin0 - (1*LSed)/8 - ElbowRadius(NDSedPipeEntrance)
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedPipeEntrance)
- z: tankorigin2 + SSedInlet + sedtankpipe9length + ElbowRadius(NDSedPipeEntrance
rotate15 - Rotate3d turns the object based on a given axis and degree angle.
rotate15 <- rotate3d(p1,sedtankpipe9origin,"z".sedtankpipe6angle)
Note: p1 is a dummy variable used only in the program help section to designate the matrix below.
p1 =
- x: sedtankpipe9origin1 - outerradius(NDSedPipeEntrance)
- y: sedtankpipe9origin2
- z: sedtankpipe10origin0
sedtankelbow9origin =
- x: tankorigin0 - LSed + WChannel + TChannelWall + ElbowRadius(NDSedLaunder~)
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedLaunder)
- z: tankorigin2 + HWSed - HSedAbove/2 - ElbowRadius(NDSedLaunder)
"z" - specifies axis that object will be rotated about.
sedtankpipe6{~}angle - specifies rotation angle.
rotate16 - Rotate3d turns the object based on a given axis and degree angle.
rotate16 <- rotate3d(p1,sedtankpipe10origin,"z".sedtankpipe7angle)
Note: p1 is a dummy variable used only in the program help section to designate the matrix below.
p1 =
- x: sedtankpipe10origin1 - outerradius(NDSedPipeEntrance)
- y: sedtankpipe10origin2
- z: sedtankpipe11origin0
sedtankelbow10origin =
- x: tankorigin0 - LSed + WChannel + T{~}ChannelWall
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedLaunder)
- z: tankorigin2 + HSed - HChannel - TMp
"z" - specifies axis that object will be rotated about.
sedtankpipe6{~}angle - specifies rotation angle.
rotate17 - Rotate3d turns the object based on a given axis and degree angle.
rotate17 <- rotate3d(p1,sedtankpipe11origin,"z".sedtankpipe5angle)
Note: p1 is a dummy variable used only in the program help section to designate the matrix below.
p1 =
- x: sedtankpipe10origin1 - outerradius(NDSedPipeEntrance)
- y: sedtankpipe11origin2
- z: sedtankpipe12origin0
sedtankpipe11origin =
- x: tankorigin0 - (3*LSed)/8
- y: tankorigin1 + WSed/2
- z: tankorigin2 + SSedInlet
"z" - specifies axis that object will be rotated about.
sedtankpipe5{~}angle - specifies rotation angle.
rotate18 - Rotate3d turns the object based on a given axis and degree angle.
rotate18 <- rotate3d(p1,sedtankpipe12origin,"z".sedtankpipe8angle)
Note: p1 is a dummy variable used only in the program help section to designate the matrix below.
p1 =
- x: sedtankpipe12origin0
- y: sedtankpipe12origin1 - outerradius(NDSedPipeEntrance)
- z: sedtankpipe12origin2
sedtankpipe12origin =
- x: tankorigin0 - (LSed)/8
- y: tankorigin1 + WSed/2
- z: tankorigin2 + SSedInlet
"z" - specifies axis that object will be rotated about.
sedtankpipe8{~}angle - specifies rotation angle.
layerset - Layerset selects the layer "0".
layerset <- layerset("0")
layerfreeze5 - Layerfreeze locks the layer "elbowa" so that it cannot be edited.
layerfreeze5 <- layerfreeze("elbowa")
layer6 - Layerfreeze locks the layer "elbowb" so that it cannot be edited.
layer6 <- layernew("elbowb",green)
elbow9 - Calls the Elbow Program to create an elbow.
elbow9 <- elbow(sedtankelbow9origin,NDSedLaunder,ENPipeSpec)
sedtankelbow9origin =
- x: tankorigin0 - LSed + WChannel + TChannelWall + ElbowRadius(NDSedLaunder~)
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedLaunder)
- z: tankorigin2 + HWSed - HSedAbove/2 - ElbowRadius(NDSedLaunder)
NDSedPipeEntrance = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow
ENPipeSpec = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
rotate19 - Rotate3d turns the object based on a given axis and degree angle.
...
sedtankpipe9{~}origin2~ sedtankelbow5{~}origin~ = * x: tank{~}origin0~ \- (7*L{~}Sed~)/8 - ElbowRadius(ND{~}SedPipeEntrance~) * y: tank{~}origin1~ + W{~}Sed~/2 - ElbowRadius(ND{~}SedPipeEntrance~) * z: tank{~}origin2~ + S{~}SedInlet~ + sedtankpipe9{~}length~ + ElbowRadius(ND{~}SedPipeEntrance~) sedtankelbow6{~}origin~ = * x: tank{~}origin0~ \- (5*L{~}Sed~)/8 - ElbowRadius(ND{~}SedPipeEntrance~) * y: tank{~}origin1~ + W{~}Sed~/2 - ElbowRadius(ND{~}SedPipeEntrance~) * z: tank{~}origin2~ + S{~}SedInlet~ + sedtankpipe9{~}length~ + ElbowRadius(ND{~}SedPipeEntrance~) sedtankelbow7{~}origin~ = * x: tank{~}origin0~ \- (3*L{~}Sed~)/8 - ElbowRadius(ND{~}SedPipeEntrance~) * y: tank{~}origin1~ + W{~}Sed~/2 - ElbowRadius(ND{~}SedPipeEntrance~) * z: tank{~}origin2~ + S{~}SedInlet~ + sedtankpipe9{~}length~ + ElbowRadius(ND{~}SedPipeEntrance~) sedtankelbow8{~}origin~ = * x: tank{~}origin0~ \- (1*L{~}Sed~)/8 - ElbowRadius(ND{~}SedPipeEntrance~) * y: tank{~}origin1~ + W{~}Sed~/2 - ElbowRadius(ND{~}SedPipeEntrance~) * z: tank{~}origin2~ + S{~}SedInlet~ + sedtankpipe9{~}length~ + ElbowRadius(ND{~}SedPipeEntrance~ *rotate15* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle. rotate15 <\- rotate{~}3d~(p1,sedtankpipe9{~}origin~,"z".sedtankpipe6{~}angle~) Note: p1 is a dummy variable used only in the program help section to designate the matrix below. p1 = * x: sedtankpipe9{~}origin1~ \- outerradius(ND{~}SedPipeEntrance~) * y: sedtankpipe9{~}origin2~ * z: sedtankpipe10{~}origin0~ sedtankelbow9{~}origin~ = * x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~ + T{~}ChannelWall + ElbowRadius(ND{~}SedLaunder~) * y: tank{~}origin1~ + W{~}Sed~/2 - ElbowRadius(ND{~}SedLaunder~) * z: tank{~}origin2~ + HW{~}Sed~ \- H{~}SedAbove~/2 - ElbowRadius(ND{~}SedLaunder~) "z" - specifies axis that object will be rotated about. sedtankpipe6{~}angle - specifies rotation angle. *rotate16* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle. rotate16 <\- rotate{~}3d~(p1,sedtankpipe10{~}origin~,"z".sedtankpipe7{~}angle~) Note: p1 is a dummy variable used only in the program help section to designate the matrix below. p1 = * x: sedtankpipe10{~}origin1~ \- outerradius(ND{~}SedPipeEntrance~) * y: sedtankpipe10{~}origin2~ * z: sedtankpipe11{~}origin0~ sedtankelbow10{~}origin~ = * x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~ + T{~}ChannelWall * y: tank{~}origin1~ + W{~}Sed~/2 - ElbowRadius(ND{~}SedLaunder~) * z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ \- T{~}Mp~ "z" - specifies axis that object will be rotated about. sedtankpipe6{~}angle - specifies rotation angle. *rotate17* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle. rotate17 <\- rotate{~}3d~(p1,sedtankpipe11{~}origin~,"z".sedtankpipe5{~}angle~) Note: p1 is a dummy variable used only in the program help section to designate the matrix below. p1 = * x: sedtankpipe10{~}origin1~ \- outerradius(ND{~}SedPipeEntrance~) * y: sedtankpipe11{~}origin2~ * z: sedtankpipe12{~}origin0~ sedtankpipe11{~}origin~ = * x: tank{~}origin0~ \- (3*L{~}Sed~)/8 * y: tank{~}origin1~ + W{~}Sed~/2 * z: tank{~}origin2~ + S{~}SedInlet~ "z" - specifies axis that object will be rotated about. sedtankpipe5{~}angle - specifies rotation angle. *rotate18* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle. rotate18 <\- rotate{~}3d~(p1,sedtankpipe12{~}origin~,"z".sedtankpipe8{~}angle~) Note: p1 is a dummy variable used only in the program help section to designate the matrix below. p1 = * x: sedtankpipe12{~}origin0~ * y: sedtankpipe12{~}origin1~ \- outerradius(ND{~}SedPipeEntrance~) * z: sedtankpipe12{~}origin2~ sedtankpipe12{~}origin~ = * x: tank{~}origin0~ \- (L{~}Sed~)/8 * y: tank{~}origin1~ + W{~}Sed~/2 * z: tank{~}origin2~ + S{~}SedInlet~ "z" - specifies axis that object will be rotated about. sedtankpipe8{~}angle - specifies rotation angle. *layerset* \- [Layer{~}set~|AutoCAD Basics Layer] selects the layer "0". layerset <\- layer{~}set~("0") *layerfreeze5* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "elbowa" so that it cannot be edited. layerfreeze5 <\- layer{~}freeze~("elbowa") *layer6* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "elbowb" so that it cannot be edited. layer6 <\- layer{~}new~("elbowb",green) *elbow9* \- Calls the [Elbow Program|AutoCAD Elbow Program] to create an elbow. elbow9 <\- elbow(sedtankelbow9{~}origin~,ND{~}SedLaunder~,EN{~}PipeSpec~) sedtankelbow9{~}origin~ = * x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~ + T{~}ChannelWall + ElbowRadius(ND{~}SedLaunder~) * y: tank{~}origin1~ + W{~}Sed~/2 - ElbowRadius(ND{~}SedLaunder~) * z: tank{~}origin2~ + HW{~}Sed~ \- H{~}SedAbove~/2 - ElbowRadius(ND{~}SedLaunder~) ND{~}SedPipeEntrance~ = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow EN{~}PipeSpec~ = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code. *rotate19* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle. rotate19 <\- rotate{~}3d~(p1,p2,"z",90) |
...
Note: p1 and p2 are dummy variables used only in the program help section to designate the matrix below. |
...
p1 = |
...
- x: sedtankelbow9origin0
- y: sedtankelbow9origin1 + ElbowRadius(NDSedLaunder)
- z: sedtankelbow9origin2 + (innerD(NDSedLaunder,ENPipeSpec)/2)
p2 =
- x: sedtankelbow9origin0
- y: sedtankelbow9origin1 + ElbowRadius(NDSedLaunder)
- z: sedtankelbow9origin2
"z" - specifies axis that object will be rotated about.
90 - specifies rotation angle.
rotate20 - Rotate3d turns the object based on a given axis and degree angle.
...
* x: sedtankelbow9{~}origin0~ * y: sedtankelbow9{~}origin1~ + ElbowRadius(ND{~}SedLaunder~) * z: sedtankelbow9{~}origin2~ + (innerD(ND{~}SedLaunder~,EN{~}PipeSpec~)/2) p2 = * x: sedtankelbow9{~}origin0~ * y: sedtankelbow9{~}origin1~ + ElbowRadius(ND{~}SedLaunder~) * z: sedtankelbow9{~}origin2~ "z" - specifies axis that object will be rotated about. 90 - specifies rotation angle. *rotate20* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle. rotate20 <\- rotate{~}3d~(p1,p2,"x",90) |
...
Note: p1 and p2 are dummy variables used only in the program help section to designate the matrix below. |
...
p1 = |
...
* x: |
...
sedtankelbow9{~}origin0~ * y: sedtankelbow9 |
...
{~}origin1~ + ElbowRadius(ND |
...
{~}SedLaunder~) * z: sedtankelbow9 |
...
{~}origin2~ + (innerD(ND |
...
{~}SedLaunder~,EN |
...
{~}PipeSpec~)/2) |
...
p2 = |
...
* x: |
...
sedtankelbow9{~}origin0~ * y: sedtankelbow9 |
...
{~}origin1~ + ElbowRadius(ND |
...
{~}SedLaunder~) * z: |
...
sedtankelbow9{~}origin2~ "x" - specifies axis that object will be rotated about. |
...
90 - specifies rotation |
...
elbow10 - Calls the Elbow Program to create an elbow.
elbow10 <- elbow(sedtankelbow10origin,NDSedLaunder,ENPipeSpec)
sedtankelbow10origin =
- x: tankorigin0 - LSed + WChannel + T{~}ChannelWall
- y: tankorigin1 + WSed/2 - ElbowRadius(NDSedLaunder)
- z: tankorigin2 + HSed - HChannel - TMp
NDSedPipeEntrance = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow
ENPipeSpec = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.
rotate21 - Rotate3d turns the object based on a given axis and degree angle.
...
angle. *elbow10* \- Calls the [Elbow Program|AutoCAD Elbow Program] to create an elbow. elbow10 <\- elbow(sedtankelbow10{~}origin~,ND{~}SedLaunder~,EN{~}PipeSpec~) sedtankelbow10{~}origin~ = * x: tank{~}origin0~ \- L{~}Sed~ + W{~}Channel~ + T{~}ChannelWall * y: tank{~}origin1~ + W{~}Sed~/2 - ElbowRadius(ND{~}SedLaunder~) * z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~ \- T{~}Mp~ ND{~}SedPipeEntrance~ = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow EN{~}PipeSpec~ = The enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code. *rotate21* \- [Rotate{~}3d~|AutoCAD Basics Rotate] turns the object based on a given axis and degree angle. rotate21 <\- rotate{~}3d~(p1,p2,"x",-90) |
...
Note: p1 and p2 are dummy variables used only in the program help section to designate the matrix below. |
...
p1 = |
...
* x: |
...
sedtankelbow10{~}origin0~ * y: sedtankelbow10 |
...
{~}origin1~ + ElbowRadius(ND |
...
{~}SedLaunder~) * z: sedtankelbow10 |
...
{~}origin2~ + (innerD( |
...
ND{~}SedLaunder~,EN |
...
{~}PipeSpec~)/2) |
...
p2 = |
...
* x: |
...
sedtankelbow10{~}origin0~ * y: sedtankelbow10 |
...
{~}origin1~ + ElbowRadius(ND |
...
{~}SedLaunder~) * z: |
...
sedtankelbow10{~}origin2~ "x" - specifies axis that object will be rotated about. |
...
\-90 - specifies rotation angle. |
...
*layerset* \- [Layer{~}set~|AutoCAD Basics Layer] selects the layer "0". |
...
layerset <\- layer |
...
{~}set~("0") |
...
*layerfreeze6* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "elbowb" so that it cannot be edited. |
...
layerfreeze6 <\- layer |
...
{~}freeze~("elbowb") |