Stair section lisp for draftsight professional