Draw base concrete

  File name : basec.lsp

   You can enter thickness of base concrete. The extension width from end of footing is fixed by 100mm
 
   Example-1 (Select bottom line of footing)
Command: basec
Select Line/<2p>: {select s1}
Thickness <100>: 
 
   Example-2 (Pick two end points of footing)
Command: basec
Select Line/<2p>: 2
Pick first point: {pick p1}
Pick second point: {pick p2}
Thickness <100>: