b0a41939e8
* 3d models * Update kcl-samples simulation test output * typos * Update kcl-samples simulation test output --------- Co-authored-by: github-actions[bot] <github-actions[bot]@users.noreply.github.com>
80 lines
2.6 KiB
Plaintext
80 lines
2.6 KiB
Plaintext
// Engine Valve
|
|
// A mechanical valve used in internal combustion engines to control intake or exhaust flow
|
|
|
|
|
|
|
|
|
|
@settings(defaultLengthUnit = mm, kclVersion = 1.0)
|
|
|
|
// Define parameters
|
|
valveDiameter = 30
|
|
valveLength = 120
|
|
valveHeadLength = valveDiameter * 1.0
|
|
valveHeadThickness = 3
|
|
stemDiameter = 6
|
|
stemHeadLength = 9
|
|
stemLength = valveLength - valveHeadLength - stemHeadLength
|
|
|
|
// Create the valve head
|
|
valveRadius = valveDiameter / 2
|
|
valveHeadPlane = startSketchOn(XZ)
|
|
valveHeadShape = startProfile(valveHeadPlane, at = [-0.01, valveHeadLength])
|
|
|> xLine(length = 0.01 - (stemDiameter / 2))
|
|
|> line(endAbsolute = [0.01 - (stemDiameter / 2), valveRadius])
|
|
|> tangentialArc(endAbsolute = [-0.8 * valveRadius, valveHeadThickness], tag = $seg01)
|
|
|> tangentialArc(endAbsolute = [-valveRadius, 0])
|
|
|> xLine(length = 0.3 * valveRadius)
|
|
|> arc(
|
|
interiorAbsolute = [
|
|
-0.34 * valveRadius,
|
|
0.08 * valveRadius
|
|
],
|
|
endAbsolute = [
|
|
-0.02 * valveRadius,
|
|
0.11 * valveRadius
|
|
],
|
|
)
|
|
|> line(endAbsolute = [profileStartX(%), profileStartY(%)])
|
|
|> close()
|
|
valveHead = revolve(valveHeadShape, angle = 360, axis = Y)
|
|
|
|
// Create the valve stem
|
|
valveStemSketch = startSketchOn(offsetPlane(XY, offset = valveHeadLength))
|
|
|> circle(center = [0, 0], radius = stemDiameter / 2)
|
|
|> extrude(length = stemLength - valveHeadLength - stemHeadLength)
|
|
|
|
// Create the valve stem end
|
|
stepLength = stemHeadLength / 10
|
|
step1 = startSketchOn(valveStemSketch, face = END)
|
|
|> circle(%, center = [0, 0], radius = stemDiameter / 2 * 0.9)
|
|
|> extrude(%, length = stepLength * 2)
|
|
step2 = startSketchOn(step1, face = END)
|
|
|> circle(%, center = [0, 0], radius = stemDiameter / 2 * 0.8)
|
|
|> extrude(%, length = stepLength)
|
|
step3 = startSketchOn(step2, face = END)
|
|
|> circle(%, center = [0, 0], radius = stemDiameter / 2 * 0.9)
|
|
|> extrude(%, length = stepLength)
|
|
step4 = startSketchOn(step3, face = END)
|
|
|> circle(%, center = [0, 0], radius = stemDiameter / 2 * 0.8)
|
|
|> extrude(%, length = stepLength)
|
|
step5 = startSketchOn(step4, face = END)
|
|
|> circle(%, center = [0, 0], radius = stemDiameter / 2 * 0.9)
|
|
|> extrude(%, length = stepLength)
|
|
step6 = startSketchOn(step5, face = END)
|
|
|> circle(%, center = [0, 0], radius = stemDiameter / 2 * 0.8)
|
|
|> extrude(%, length = stepLength)
|
|
step7 = startSketchOn(step6, face = END)
|
|
|> circle(
|
|
%,
|
|
center = [0, 0],
|
|
radius = stemDiameter / 2 * 0.9,
|
|
tag = $seg02,
|
|
)
|
|
|> extrude(%, length = stepLength * 3, tagEnd = $capEnd001)
|
|
|> chamfer(
|
|
length = 0.5,
|
|
tags = [
|
|
getCommonEdge(faces = [seg02, capEnd001])
|
|
],
|
|
)
|