-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathmain.kcl
34 lines (30 loc) · 1.1 KB
/
main.kcl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
// Pipe
// A tubular section or hollow cylinder, usually but not necessarily of circular cross-section, used mainly to convey substances that can flow.
// Define constants
pipeTotalLength = 20
pipeLargeDiaLength = 1
pipeLargeDia = 1
pipeSmallDia = .75
thickness = 0.125
pipeTransitionAngle = 60
pipeTransitionLength = 0.5
pipeSmallDiaLength = pipeTotalLength - pipeTransitionLength - pipeLargeDiaLength
// Create the sketch to be revolved around the y-axis. Use the small diameter, large diameter, length, and thickness to define the sketch.
pipeSketch = startSketchOn('XY')
|> startProfileAt([pipeSmallDia - (thickness / 2), 38], %)
|> line([thickness, 0], %)
|> line([0, -pipeSmallDiaLength], %)
|> angledLineOfYLength({
angle = -60,
length = pipeTransitionLength
}, %)
|> line([0, -pipeLargeDiaLength], %)
|> xLine(-thickness, %)
|> line([0, pipeLargeDiaLength], %)
|> angledLineToX({
angle = -pipeTransitionAngle + 180,
to = pipeSmallDia - (thickness / 2)
}, %)
|> close(%)
// Revolve the sketch to create the pipe
pipe = revolve({ axis = 'y' }, pipeSketch)