71 lines
2.1 KiB
Plaintext
71 lines
2.1 KiB
Plaintext
holeFudge = 0.4
|
|
frontBarD = 5.0
|
|
yBarD = 6.7
|
|
slideGap = 0.7
|
|
lowerBlockTransHole = {
|
|
r = (frontBarD + slideGap + holeFudge) / 2
|
|
}
|
|
upperBlockLongHole = { r = (yBarD + holeFudge) / 2 }
|
|
|
|
upperBlockTransHole = { r = (yBarD + holeFudge) / 2 }
|
|
tubeClr = 1.5
|
|
lowerBlock = {
|
|
h = 2 * lowerBlockTransHole.r + 2 * tubeClr,
|
|
l = 70
|
|
}
|
|
upperBlock = {
|
|
h = 2 * upperBlockLongHole.r + 2 * tubeClr,
|
|
l = 25
|
|
}
|
|
elevate = { h = 5 }
|
|
|
|
blockSz = max([upperBlock.h, lowerBlock.h])
|
|
|
|
slot = { l = 10, h = 1 }
|
|
|
|
sketch001 = startSketchOn(XZ)
|
|
|> startProfile(at = [0, 0])
|
|
|> yLine(length = blockSz, tag = $edgeA)
|
|
|> xLine(length = blockSz, tag = $edgeB)
|
|
|> yLine(length = -blockSz, tag = $edgeC)
|
|
|> xLine(length = upperBlock.l - blockSz, tag = $edge1)
|
|
|> yLine(length = -(elevate.h + blockSz), tag = $edge2)
|
|
|> xLine(length = lowerBlock.l - blockSz, tag = $edge3)
|
|
|> yLine(length = -blockSz, tag = $edge4)
|
|
|> xLine(length = -lowerBlock.l, tag = $edge5)
|
|
|> yLine(length = blockSz + elevate.h, tag = $edge6)
|
|
|> xLine(length = -(upperBlock.l - blockSz), tag = $edge7)
|
|
|> line(endAbsolute = [profileStartX(%), profileStartY(%)], tag = $seg01)
|
|
|> close()
|
|
|> subtract2d(tool = circle(center = [blockSz / 2, blockSz / 2], radius = upperBlockTransHole.r))
|
|
|> subtract2d(tool = circle(
|
|
center = [
|
|
upperBlock.l + lowerBlock.l - blockSz - lowerBlockTransHole.r - tubeClr,
|
|
-(blockSz + elevate.h + blockSz / 2)
|
|
],
|
|
radius = lowerBlockTransHole.r,
|
|
))
|
|
rad = 3
|
|
|
|
extrude001 = extrude(sketch001, length = blockSz)
|
|
|> fillet(
|
|
radius = rad,
|
|
tags = [
|
|
getNextAdjacentEdge(edgeA),
|
|
getNextAdjacentEdge(edgeB),
|
|
getNextAdjacentEdge(edgeC),
|
|
getNextAdjacentEdge(edge1),
|
|
getNextAdjacentEdge(edge2),
|
|
getNextAdjacentEdge(edge3),
|
|
getNextAdjacentEdge(edge4),
|
|
getNextAdjacentEdge(edge5),
|
|
getNextAdjacentEdge(edge6),
|
|
getNextAdjacentEdge(edge7)
|
|
],
|
|
)
|
|
|
|
sketch002 = startSketchOn(extrude001, face = seg01)
|
|
|> startProfile(at = [0, 0])
|
|
|> circle(center = [blockSz / 2, -blockSz / 2], radius = upperBlockLongHole.r)
|
|
|> extrude(length = -upperBlock.l)
|