Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.
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")