Wiki Markup |
---|
h1. Sedichanneltankscript
{float:left|border=2px solid black}
[!ichannel NE.bmp|width=450px!|AutoCAD Channel Program]
NorthEast Isometric View
{float}
\\
\\
*viewtopi* \- Rotates workspace so that object is being viewed from the top.
viewtop <\- viewtop1
*layernewict* \- [Layer{~}new~|AutoCAD Basics Layer] creates a new light grey layer, "ichanneltank."
layernewict <\- layer{~}new~ |
Sedichanneltankscript
viewtopi - Rotates workspace so that object is being viewed from the top.
viewtop <- viewtop1
layernewict - Layernew creates a new light grey layer, "ichanneltank."
...
("ichanneltank",ltgrey) |
...
tankict - Calls the Tank Program to draw a tank.
tankict <- Tank(ichanneltankorigin,ichanneltankdim,TPlantWall)
boxictb - Creates a box based on two points.
boxictb <- box(channelboxorigin,channelboxorigin + channelboxdim)
channelboxorigin =
- x: tankorigin0 - LSed
- y: tankorigin1
- z: tankorigin2 + HSed - HChannel
channelboxdim =
- x: WChannel
- y: NSedTanks(WSed~ + TPlantWall)
- z: HChannel
subtractict - SubtractD subtracts one object from the other based on two points.
subtractict <- subtractD(ichanneltankorigin,channelboxorigin)
channelboxorigin =
- x: tankorigin0 - LSed
- y: tankorigin1
- z: tankorigin2 + HSed - HChannel
layerset - Layerset selects the layer "0".
layerset <- layerset("0")
layerfreezeict - Layerfreeze locks the layer "ichanneltank" so that it cannot be edited."
layerfreezeict <- layerfreeze("ichanneltank")
layernewiwe - Layernew creates a new green layer, "inletweirelbow."
layernewiwe <- layernew("inletweirelbow",green)
elbowiwe - Calls the Elbow Program to draw an elbow.
elbowiwe <- elbow(sedtankinletweirelboworigin,NDPltWeir,ENSpec)
rotateiwe1 -
rotateiwe1 <- rotate3d(p1,sedtankinletweirelboworigin,"y",90)
p1 =
- x: sedtankinletweirelboworigin0 + ElbowRadius(NDPltWeir)
- y: sedtankinletweirelboworigin1
- z: sedtankinletweirelboworigin2 - outerradius(NDPltWeir)
rotateiwe2 - Rotate3d rotates the selected object by the designated degrees.
rotateiwe2 <- (p1,sedtankinletweirelboworigin,"z",90)
p1 =
- x: sedtankinletweirelboworigin0
- y: sedtankinletweirelboworigin1 + ElbowRadius(NEPltWeir) - outerradius(NDPltWeir)
- z: sedtankinletweirelboworigin2
layerfreezeiwe - Layerfreeze locks the layer "inletweirelbow" so that it cannot be edited.
layerfreezeiwe <- layerfreeze("inletweirelbow")
layernewiwp - Layernew creates a new blue layer, "inletweir."
layernewiwp <- layernew("inletweir",blue)
pipeiwp - Calls the Pipe Program to draw a pipe in the program.
pipeiwp <- Pipe(inletweirpipeorigin,NDPltWeir,inletweirpipelength,ENPipeSpec)
layerfreezeiwp - Layerfreeze locks the layer "inletweir" so that it cannot be edited.
...
{float:left|border=2px solid black}
[!itank1.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
*tankict* \- Calls the [Tank Program|AutoCad Tank Program] to draw a tank.
tankict <\- Tank(ichanneltank{~}origin~,ichanneltank{~}dim~,T{~}PlantWall~)
\\
\\
{float:left|border=2px solid black}
[!ibox1.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
{float:left|border=2px solid black}
[!ibox1 NE.bmp|width=300px!|AutoCAD Channel Program]
NorthEast Isometric View
{float}
*boxictb* \- Creates a [box|AutoCAD Basics Box] based on two points.
boxictb <\- box(channelbox{~}origin~,channelbox{~}origin~ + channelbox{~}dim~)
channelbox{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~
* y: tank{~}origin1~
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~
channelbox{~}dim~ =
* x: W{~}Channel~
* y: N{~}SedTanks(W{~}Sed\~ + T{~}PlantWall~)
* z: H{~}Channel~
\\
\\
{float:left|border=2px solid black}
[!isubtract1.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
*subtractict* \- [SubtractD|AutoCAD Basics Subtractions] subtracts one object from the other based on two points.
subtractict <\- subtractD(ichanneltank{~}origin~,channelbox{~}origin~)
channelbox{~}origin~ =
* x: tank{~}origin0~ \- L{~}Sed~
* y: tank{~}origin1~
* z: tank{~}origin2~ + H{~}Sed~ \- H{~}Channel~
\\
\\
*layerset* \- [Layer{~}set~|AutoCAD Basics Layer] selects the layer "0".
layerset <\- layer{~}set~("0")
*layerfreezeict* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "ichanneltank" so that it cannot be edited."
layerfreezeict <\- layer{~}freeze~("ichanneltank")
*layernewiwe* \- [Layer{~}new~|AutoCAD Basics Layer] creates a new green layer, "inletweirelbow."
layernewiwe <\- layer{~}new~("inletweirelbow",green)
{float:left|border=2px solid black}
[!ielbow1.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
*elbowiwe* \- Calls the [Elbow Program|AutoCad Elbow Program] to draw an elbow.
elbowiwe <\- elbow(sedtankinletweirelbow{~}origin~,ND{~}PltWeir~,EN{~}Spec~)
\\
\\
{float:left|border=2px solid black}
[!irotate1.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
*rotateiwe1* \- [Rotate{~}3d~|AutoCAD Basics Rotate] rotates the selected object by the designated degrees.
rotateiwe1 <\- rotate{~}3d~(p1,sedtankinletweirelbow{~}origin~,"y",90)
p1 =
* x: sedtankinletweirelbow{~}origin0~ + ElbowRadius(ND{~}PltWeir~)
* y: sedtankinletweirelbow{~}origin1~
* z: sedtankinletweirelbow{~}origin2~ \- outerradius(ND{~}PltWeir~)
\\
\\
{float:left|border=2px solid black}
[!irotate2.bmp|width=300px!|AutoCAD Channel Program]
Top View
{float}
*rotateiwe2* \- [Rotate{~}3d~|AutoCAD Basics Rotate] rotates the selected object by the designated degrees.
rotateiwe2 <\- (p1,sedtankinletweirelbow{~}origin~,"z",90)
p1 =
* x: sedtankinletweirelbow{~}origin0~
* y: sedtankinletweirelbow{~}origin1~ + ElbowRadius(NE{~}PltWeir~) - outerradius(ND{~}PltWeir~)
* z: sedtankinletweirelbow{~}origin2~
\\
\\
*layerfreezeiwe* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "inletweirelbow" so that it cannot be edited.
layerfreezeiwe <\- layer{~}freeze~("inletweirelbow")
*layernewiwp* \- [Layer{~}new~|AutoCAD Basics Layer] creates a new blue layer, "inletweir."
layernewiwp <\- layer{~}new~("inletweir",blue)
{float:left|border=2px solid black}
[!inlet weir NE.bmp|width=150px!|AutoCAD Channel Program]
Top View
{float}
*pipeiwp* \- Calls the [Pipe Program|AutoCad Pipe Program] to draw a pipe in the program.
pipeiwp <\- Pipe(inletweirpipe{~}origin~,ND{~}PltWeir~,inletweirpipe{~}length~,EN{~}PipeSpec~)
\\
\\
*layerfreezeiwp* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "inletweir" so that it cannot be edited.
layerfreezeiwp <-layer{~}freeze~("inletweir") |