cross section lisp

Hi i need help to finish a cross section lisp. This lisp use *.txt file for the ground

(example ground1 and ground 2) and draw the cross section for eatch ground. I need help to draw the table with groun elevetion and distance.

I want to ask me

1)select ground 1 / or ground and the draw the table (I need to have the option to change the datum elevetion)

The lisp code is

(Defun c:test ()
(progn
   (initget "1 2")
   (setq
     l
      (cond
	((getkword
	   "\nFor Ground1 (1)/ For Ground (2) < 1 > :"
	 )
	)
	("1")
      )
   )

(if (eq l "1")
(COMMAND "_layer" "_m" "Ground1" "_c" "94" "" "")
      )
      (if (eq l "2")
(COMMAND "_layer" "_m" "Ground2" "_c" "10" "" "")
   )
)
(setq FH (getfiled "Select File  L,H (*.txt)" "" "txt" 16))
(setq fil (open FH "r"))
(command "_.pline"); start Polyline
(while (setq lin (read-line fil)) (command lin)); feed in coordinates
(command ""); end Polyline
(command "zoom" "e")
(close fil)
);End Defun

Thanks

ground1.txt

ground2.txt

Any ideas?

Thanks

this is lisp to plot Manual profile detail (Ex. Elevation, Distance, Vertical Height) Using 2D Profile Line

2D Profile Line 2 Manul Profile Plot.LSP

Hi sanju2323 . I have a lisp like this but i need something faster.

Thanks

i need to autocad cross section lisp

Stop digging up old posts, I have created you a new thread on this HERE.