Horizontal & Vertical Bends of Joined Polylines

Hi all,

Can anyone help me with this request:

1- I would like a lisp that select any joined poly lines and a leader will show all horizontal bends for the vertises of joined poly lines, UCS should not be the WCS but UCS should be oriented or rotated according to flow or direction of joined poly lines (see attached Water pipe hori).

2- I would like the same lisp to do the same as above for vertical profile (see attached Water vert)

3- The are conditions for the bends indication as follow:

for example if the angle is between 5.6 to 16.5 degree so the leader indication should show "BEND 11.25"

Angle Standard Bend Table

0-5.6-------No bend

5.6-16.5----BEND 11.25

16.5-28.1---BEND 22.5

28.1-39.3---BEND 22.5+11.25

39.3-50.6---BEND 45

50.6-61.8---BEND 45+11.25

61.8-73.1---BEND 45+22.5

73.1-84.3---BEND 45+22.5+11.25

84.3-95.6---BEND 90

95.6-106.8--BEND 90+11.25

Best Regards

Taher:roll:

Water pipe hori.dwg

Water pipe vert.dwg