Files
modeling-app/public/kcl-samples/multi-axis-robot/robot-rotating-base.kcl
Nick Cameron 3a23ec1bee Create std::units module (#6528)
Signed-off-by: Nick Cameron <nrc@ncameron.org>
2025-04-29 08:41:31 +12:00

74 lines
2.2 KiB
Plaintext

// Robot Rotating Base
// Set Units
@settings(defaultLengthUnit = in)
import axisJ1, baseHeight, plane001, plane002 from "globals.kcl"
// Create Rotating Base
sketch005 = startSketchOn(plane001)
|> circle(center = [0, 0], radius = 3.9, tag = $referenceEdge1)
extrude005 = extrude(sketch005, length = 1.5 - 0.1)
|> fillet(radius = 0.1, tags = [getOppositeEdge(referenceEdge1)])
|> appearance(color = "#4f7d54", metalness = 90, roughness = 90)
sketch006 = startSketchOn(plane002)
|> startProfile(at = [3.5, baseHeight])
|> angledLine(angle = 60, length = 1.75)
|> arc(angleStart = -30, angleEnd = -30 + 180, radius = 3)
|> angledLine(angle = 60, endAbsoluteY = baseHeight)
|> line(endAbsolute = [profileStartX(%), profileStartY(%)])
|> close()
extrude006 = extrude(sketch006, length = 1)
sketch007 = startSketchOn(extrude006, face = END)
|> circle(
center = [
1.75 * cos(units::toRadians(axisJ1)) / abs(cos(units::toRadians(axisJ1))),
8
],
radius = 2.75,
tag = $referenceEdge2,
)
extrude007 = extrude(sketch007, length = 1.5)
|> fillet(radius = 0.1, tags = [getOppositeEdge(referenceEdge2)])
// Draw Bolt Pattern on Rotating Base
sketch008 = startSketchOn(extrude007, face = END)
|> circle(
center = [
1.75 * cos(units::toRadians(axisJ1)) / abs(cos(units::toRadians(axisJ1))),
6.75
],
radius = 0.2,
)
|> patternCircular2d(
center = [
1.75 * cos(units::toRadians(axisJ1)) / abs(cos(units::toRadians(axisJ1))),
8
],
instances = 4,
arcDegrees = 360,
rotateDuplicates = true,
)
extrude008 = extrude(sketch008, length = 0.2)
sketch009 = startSketchOn(extrude007, face = END)
|> circle(
center = [
1.75 * cos(units::toRadians(axisJ1)) / abs(cos(units::toRadians(axisJ1))),
8
],
radius = 0.5,
tag = $referenceEdge3,
)
extrude009 = extrude(sketch009, length = 0.15)
|> fillet(radius = 0.1, tags = [getOppositeEdge(referenceEdge3)])
|> appearance(color = "#4f7d54", metalness = 90, roughness = 90)
sketch010 = startSketchOn(plane002)
|> circle(center = [1.75, 8], radius = 0.3)
extrude(sketch010, length = -1)