VL02.lsp

;;;********************************************************************

;;;

;;;    Program Name: VL02.lsp

;;;

;;;    Program Purpose: This program allows the user to calculate the ;;;                necessary bend allowances for soft steel. The

;;;                program uses formulas based on the formulas

;;;                found in the Machinery's Handbook 24th edition.

;;;    

;;;    Program Date: 12/31/98

;;;

;;;    Written By: James Kevin Standiford

;;;

;;;********************************************************************

;;;********************************************************************

;;;

;;;            Main Program

;;;

;;;********************************************************************

(defun c:bend (/ thickness radius_of_bend bend_angle allowance)

(setq    thickness (getreal "\nEnter Material Thickness : ")

    radius_of_bend (getreal "\nEnter Bend Radius : ")

    bend_angle (getreal "\nEnter Bend Angle : ")

)

(setq    allowance

     (* (+ (* 0.64 thickness) (* (* 0.5 3.14) radius_of_bend))

     (/ bend_angle 90)

     )

)

(princ (rtos allowance))

(princ)

)

(princ)