Section from 3D Polyline LISP help?

[obradsarcevic]

I have a lisp for drawing a longitudinal/cross section from 3d polyline. Can anyone help me to modified a lisp to look similar like the second section in dwg (to add vertical scale bar, scale and number of point and distance between points).