160f55ede5
* More units of measure work Signed-off-by: Nick Cameron <nrc@ncameron.org> * Update CSG output since engine change --------- Signed-off-by: Nick Cameron <nrc@ncameron.org> Co-authored-by: Nick Cameron <nrc@ncameron.org>
24 lines
676 B
Plaintext
24 lines
676 B
Plaintext
// Pipe
|
|
// Piping for the pipe flange assembly
|
|
|
|
// Set units
|
|
@settings(defaultLengthUnit = in)
|
|
|
|
// Import parameters
|
|
import pipeInnerDiameter, pipeOuterDiameter, pipeLength from "parameters.kcl"
|
|
|
|
// Create a function to make the pipe. Export
|
|
export fn pipe() {
|
|
// Create the pipe base
|
|
pipeBase = startSketchOn(XZ)
|
|
|> circle(%, center = [0, 0], radius = pipeOuterDiameter / 2)
|
|
|> extrude(%, length = pipeLength)
|
|
|
|
// Extrude a hole through the length of the pipe
|
|
pipe = startSketchOn(pipeBase, face = END)
|
|
|> circle(center = [0, 0], radius = pipeInnerDiameter / 2)
|
|
|> extrude(%, length = -pipeLength)
|
|
|> appearance(color = "#a24ed0")
|
|
return pipe
|
|
}
|