Labelling the Bearing & Distance of Lines, Polylines and Arcs

[Anonymous]

Hi Everyone,

I was wondering if anyone is able to help me, I was looking for a lisp routine which will add the bearing and distance to lines, polylines and arcs when I click on them or select them individually. It would be great to have the one routine which does lines and arcs which would save me loading 2 seperate lisps. The resulting text would read like:-

Lines or polylines

42°25′35"     (degrees minutes seconds, no spaces)   bearing on seperate line

354.545      distance on seperate line, 3 decimal places

If possible also to round the bearing to the nearest 5" and the distace to the nearest 5 millimetre as shown above.

Arcs

56°42′15"  bearing of chord to nearest 5"

43.625       distance of chord to nearest 5 millimetre and 3 decimal places

A44.835    arc distance to nearest 5 millimetre and 3 decimal places

R400.005    arc radius to nearest 5 millimetre and 3 decimal places

Bearing and the chord of the arc on one line, space in between

Arc and Radius on another line, space in between

If not possible have each on a seperate line.

Very much appreciated if anyone can help.

Thanks

Cadmonkey

[Anonymous]

Thanx for your time 3wood, although I am after a lisp routine which will place the text adjacent to the line, polyline or arc and ideally on the same rotation as the line. Can anyone help or point me in the right direction.

Thanks

Cadmonkey

[Anonymous]

Can anyone else assist

Thanks

Cadmonkey