draw a polyline with the readings provided

hai,

Please refer the attached drawing,

Is there any lisp to draw the red line by a window selection or by selecting the text individually.

red line is drawn with the origin at base and where ever there are readings.

The distances are with 10 times to the text corresponding at that level, right or left to the blue line.

There are 4 levels are at 10mm equal ditance and after 4 readings the next will be at 20mm and again 4 at 10mm distance.

Redline.dwg

Here is a write column of text lisp should be good starting point instead of writing to file just invoke pline and use for each new pt need to use a vl-sort on list though before doing pline. adjust x by a scale factor ?

; converts column of text to comma seprated file with text value and y value
; put in excell and sort by y value
; by Alan H Nov 2004
(setq x 1)
(while (/= x 4)
 (setq howmany (rtos x 2 0))
 (setq fileto (strcat "c:/temp/setout" howmany))
 (princ fileto)
 (setq fout (open fileto "w"))
 (while (not (setq ss (ssget ))))     
(princ "wow")
   (while (setq en (ssname ss 0))
    ; Entity type
    (setq entyp (cdr (assoc 0 (entget en)))) 
(princ "wow")
   (if (= entyp "TEXT")
   (progn
     (setq xyz (cdr (assoc 10 (entget en))))
     (setq txtht (cdr (assoc 1 (entget en))))
     ;write file out here
     (setq textout (strcat txtht "," (rtos (cadr xyz) 2 3)))
     ;write
     (write-line textout fout) 
     (princ textout)
   )                         
   )                              
   ; Delete each measured entity from set
   (ssdel en ss)
 ;end while
 )
 (close fout)
 (setq x (+ x 1))
) ;end if loop 3 times
(princ)