General Program Information
Input Definitions
Inputs Needed to Call the Elbow Function
o - the origin, a 3*1 matrix with x,y,z positions corresponding to the point where the elbow will be drawn
Pipeinr - the inner radius of the elbow
Inputs Defined within the Elbow Function
p1 =
- x : o0
- y : o1
- z : o2
p2 =
- x : o0 - ElbowRadius(2*pipeinr) + ConRaduis(2*pipeinr)
- y : o1 - ElbowRadius(2*pipeinr) + ConRaduis(2*pipeinr)
- z : o2 - outerradius(2*pipeinr) + SocketDepth(2*pipe~inr~)
p3 =
- x : o0
- y : o1 + ElbowRadius(2*pipeinr) + ConRaduis(2*pipeinr)
- z : o2 + outerradius(2*pipeinr) + SocketDepth(2*pipeinr)
p4 =
- x : o0 + ElbowRadius(2*pipeinr) + outerraduis(2*pipeinr)
- y : o1
- z : o2
p5 =
- x : o0 - ElbowRadius(2*pipeinr) - pipeinr)
- y : o1
- z : o2
p6 =
- x : o0
- y : o1 - ElbowRadius(2*pipeinr) - outerraduis(2*pipeinr) - zc
- z : o2 - ConRadius(2*pipeinr)
p7 =
- x : o0 + ElbowRadius(2*pipeinr) + outerraduis(2*pipeinr) + zc
- y : o1
- z : o2 + ConRadius(2*pipeinr)
p9 =
- x : o0
- y : o1 + ElbowRadius(2*pipeinr)
- z : o2
p10 =
- x : o0 - SocketDepth(2*pipe~inr~)
- y : o1 + ElbowRadius(2*pipeinr)
- z : o2
p11 =
- x : o0
- y : o1 + ElbowRadius(2*pipeinr) - ConRaduis(2*pipeinr)
- z : o2
p12 =
- x : o0 - SocketDepth(2*pipe~inr~) - zc
- y : o1 + ElbowRadius(2*pipeinr) - outerraduis(2*pipeinr)
- z : o2
p13 =
- x : o0 + zc
- y : o1 + ElbowRadius(2*pipeinr) + outerraduis(2*pipeinr)
- z : o2
p14 =
- x : o0 - SocketDepth(2*pipe~inr~)
- y : o1 + ElbowRadius(2*pipeinr) - ConRaduis(2*pipeinr)
- z : o2
p15 =
- x : o0
- y : o1
p16 =
- x : o0 + zc
- y : o1 + zc
p17 =
- x : o0 + ElbowRadius(2*pipeinr)
- y : o1 - SocketDepth(2*pipe~inr~)
- z : o2
p18 =
- x : o0 - SocketDepth(2*pipe~inr~)
- y : o1 + ElbowRadius(2*pipeinr)
- z : o2
R1 =
R2 =
R3 =
R4 =
H1 =
win1 =
- x : o0 - ElbowRadius(2*pipeinr) - ConRaduis(2*pipeinr) + zc
- y : o1 - ElbowRadius(2*pipeinr) - ConRaduis(2*pipeinr) + zc
- z : o2
win2 =
- x : o0 + ElbowRadius(2*pipeinr) + ConRaduis(2*pipeinr) + zc
- y : o1 + ElbowRadius(2*pipeinr) + ConRaduis(2*pipeinr) + zc
- z : o2
Note: zc corresponds to the zoom constant within AutoCAD and can be found in the basics file that is referenced by the elbow program.
Technical Program Outline
Note: All coordinates are referenced in top view in the program unless otherwise specified
zoomwin- zooms on a window space directly around where the elbow is to be drawn
zoomwin <-- zoomwina(win1,win2)
win1 =
- x : o0 - ElbowRadius(2*pipeinr) - ConRaduis(2*pipeinr) + zc
- y : o1 - ElbowRadius(2*pipeinr) - ConRaduis(2*pipeinr) + zc
- z : o2
win2 =
- x : o0 + ElbowRadius(2*pipeinr) + ConRaduis(2*pipeinr) + zc
- y : o1 + ElbowRadius(2*pipeinr) + ConRaduis(2*pipeinr) + zc
- z : o2