Exactly what I needed Bigal, Thanks!
don't know what you mean with lines always 1- x
they were drawn in that order from 1 to 16, it's ok if I have to select lines one by one to make sure that the order matches the text number.
the little I know about it, I can change the lines that have the --- rtos (/lenght/) 2 X --- to increase-decrease decimals, to be able to get one decimal in the total lenght. And it needed the defun with a c: for it to wait until I call it. I was able to modify that.
but it returns a reverse order, the first line I pick is the last one in the table, I don't know what line needs to be modified for this to be first pick-first row of table.
Edit:
it was not the case of the example, so I didn't check right on, but if lines points to the left (-x) it should also be only 0° to 90° range and 0° to -90° if below horizontal,
gonna try to modify this on my own, but I donīt have to much expectations

(if (> ang 180.0)
(setq ang (rtos (- ang 360.0) 2 0))
(setq ang (rtos ang 2 0))
)
Edit2:
I did this for the angle thing,
(if (> ang 270.0)
(setq ang (rtos (+ -360 ang) 2 0))
( if (> ang 90.0)
(setq ang (rtos (- 180 ang) 2 0))
(setq ang (rtos ang 2 0))
)
still no idea how to invert the order of the table items.