Draw section line of embankment  
 
  File name : noripf.lsp

  Command: noripf
  Pick insert point: {p1}   [Pick start point of slope]
  Select Ground: line Specify first point: {s1}  [Select ground line or pline]