Whilst I dont have anything there is a way of starting and that is to use ssget "F" option it will pick up the cross beams in the correct order and then you can get the intersection of these lines so drawing the intermediate beams at correct spans. Add a depth and you have part 1 done. You can use inters or vl-intersectwith to work out the points.
Code:
; this is your fence line
(setvar "osmode" 512)
(setq pt1 (getpoint))
(setvar "osmode" 128 )
(setq pt2 (getpoint pt1))
(setq lst (list pt1 pt2))
(setq ss (ssget "F" lst))