h1. Inlet Channel Drawing Script
*layer2* \- [Layer{~}new~|AutoCAD Basics Layer] creates a new light grey layer, "channel."
layer2 <\- layer{~}new~("channel",ltgrey)
*channel1* \- Calls the [Channel Program|AutoCAD Channel Program] to draw a channel.
channel1 <\- ChannelDrawing(channel{~}origin~,p1,T{~}ChannelWall~)
channel{~}origin~ =
if layout 2:
* x: Plant{~}Origin0~ \- L{~}Sed~ + W{~}InletChannel~
* y: Plant{~}Origin1~ \- T{~}PlantWall~
* z: Plant{~}Origin2~ + H{~}Sed~ \- H{~}InletChannel~
if layout 3:
* x: Plant{~}Origin0~ \- L{~}Sed~ + W{~}InletChannel~
* y: Plant{~}Origin1~ \- T{~}PlantWall~
* z: Plant{~}Origin2~ + H{~}Sed~ \- H{~}InletChannel~
if layout 4 :
* x: Plant{~}Origin0~ \- L{~}Sed~ + W{~}ChannelInlet~
* y: Plant{~}Origin1~ \- T{~}PlantWall~
* z: Plant{~}Origin2~ + H{~}Sed~ \- H{~}InletChannel~
p1 = Specifies the dimensions of the channel cutout.
* x: W{~}Sed~ \- 2T{~}PlantWall~
* y: W{~}InletChannel~
* z: H{~}InletChannel~
T{~}Channel~ specifies the thickness of the channel wall.
{float:left|border=2px solid black}
[!inlet rotate 1.bmp|width=480px280px!|AutoCAD Channel Program]
Top View
{float}
*rotate1* \- [Rotate|AutoCAD Basics Rotate] rotates the selected object by the designated degrees.
rotate1 <\- rotate(channel{~}origin~,90)
channel{~}origin~ =
if layout 2:
* x: Plant{~}Origin0~ \- L{~}Sed~ + W{~}InletChannel~
* y: Plant{~}Origin1~ \- T{~}PlantWall~
* z: Plant{~}Origin2~ + H{~}Sed~ \- H{~}InletChannel~
if layout 3:
* x: Plant{~}Origin0~ \- L{~}Sed~ + W{~}InletChannel~
* y: Plant{~}Origin1~ \- T{~}PlantWall~
* z: Plant{~}Origin2~ + H{~}Sed~ \- H{~}InletChannel~
if layout 4 :
* x: Plant{~}Origin0~ \- L{~}Sed~ + W{~}ChannelInlet~
* y: Plant{~}Origin1~ \- T{~}PlantWall~
* z: Plant{~}Origin2~ + H{~}Sed~ \- H{~}InletChannel~
p1 = Specifies the dimensions of the channel cutout.
* x: W{~}Sed~ \- 2T{~}PlantWall~
* y: W{~}InletChannel~
* z: H{~}InletChannel~
90 = rotation angle
\\
\\
*box1* \- Creates a [box|AutoCAD Basics Box] based on two points.
box1 <\- box(channelinletwall{~}origin~,channelinletwall{~}origin~ + channelinletwall{~}dim~)
channelinletwall{~}origin~ =
* x: Plant{~}Origin0~ \- L{~}Sed~ + W{~}ChannelInlet~
* y: Plant{~}Origin1~
* z: Plant{~}Origin2~
channelinletwall{~}dim~ =
* x: T{~}ChannelWall~
* y: W{~}Sed~
* z: H{~}Sed~
*bigunion* \- [Union{~}allA~|AutoCAD Basics Unions] selects all the objects visible in the workspace and joins them all into a single object.
bigunion <\- union{~}allA~
*box2* \- Creates a [box|AutoCAD Basics Box] based on two points.
box2 <\- box(channelinletbox1{~}origin~,channelinletbox1{~}origin~ + channelinletbox1{~}dim~)
channelinletbox1{~}origin~ =
* x: Plant{~}Origin0~ \- L{~}Sed~ \- T{~}PlantWall~
* y: Plant{~}Origin1~ + (.5W{~}Sed~) - (.5L{~}ChannelInlet~)
* z: Plant{~}Origin2~ + H{~}Sed~ \- H{~}InletChannel~
channelinletbox1{~}dim~ =
* x: T{~}PlantWall~
* y: L{~}ChannelInlet~
* z: H{~}InletChannel~
*subtract2* \- [SubtractD|AutoCAD Basics Subtractions] subtracts one object from the other based on two points.
subtract2 <\- subtractD(Plant{~}Origin~,channelinletbox1{~}origin~)
Plant{~}Origin~ =
channelinletbox1{~}origin~ =
* x: Plant{~}Origin0~ \- L{~}Sed~ \- T{~}PlantWall~
* y: Plant{~}Origin1~ + (.5W{~}Sed~) - (.5L{~}ChannelInlet~)
* z: Plant{~}Origin2~ + H{~}Sed~ \- H{~}InletChannel~
*box3* \- Creates a [box|AutoCAD Basics Box] based on two points.
box3 <\- box(channelinletbox2{~}origin~,channelinletbox2{~}origin~ + channelinletbox2{~}dim~)
channelinletbox2{~}origin~ =
* x: Plant{~}Origin0~ \- L{~}Sed~
* y: Plant{~}Origin1~
* z: Plant{~}Origin2~
channelinletbox2{~}dim~ =
* x: W{~}ChannelInlet~
* y: W{~}Sed~
* z: H{~}Sed~
*subtract3* \- [SubtractD|AutoCAD Basics Subtractions] subtracts one object from the other based on two points.
subtract3 <\- subtractD(Plant{~}Origin~,channelinletbox2{~}origin~)
Plant{~}Origin~ =
channelinletbox2{~}origin~ =
* x: Plant{~}Origin0~ \- L{~}Sed~
* y: Plant{~}Origin1~
* z: Plant{~}Origin2~
*layerset* \- [Layer{~}set~|AutoCAD Basics Layer] selects the layer "0".
layerset <\- layer{~}set~("0")
*viewtops* \- Rotates the object so that it is viewed from the top.
viewtops <-viewtop1
*layerfreeze2* \- [Layer{~}freeze~|AutoCAD Basics Layer] locks the layer "channel" so that it cannot be edited.
layerfreeze2 <\- layer{~}freeze~("channel") | 