hi ,
this lisp is modified to calculate the quantity of steel bars as it placed on the plan of reinforcement in the form shown on the attached cad file named : steel.dwg
lisp name and command : steel
hope you joy it .
and step by step together we improve it to fit what we want to do.
steel.dwg
steel.LSP
I made a 3 click version of something that sounds like it could do what you require,
perhaps with a few changes. For one thing you don't need the scale factor.
Replace (setq sc (getreal "\Set scale factor: "))
by (setq sc 1.0)
See if this helps, tell me if it doesn't