;;;
;;; Written by Roy Smith, 02Jun99 (Fuller Co.)
;;; This routine was written to calculate the weight of flat plate
;;; in kilograms. The routine is very close to the actual
;;; weight but not exact. The weight of the weld used has not been
;;; added due to the type of weld used and its actual weight. It
;;; should serve to be a lot easier to use than figuring everything
;;; on a hand held calculator.
;;;
;;; FPW - Calculates the weight of flat plate.
;;;
;;;
  (defun C:fpw ()
   (setq lgth  (getreal "\nLength of plate? "))    	;get length
   (setq wdth  (getreal "\nWidth of plate? "))     	;get width
   (setq thk   (getreal "\nThickness of plate? ")) 	;get thickness
   (setq a1 (* lgth wdth))   				;multiply width & length
   (setq a2 (* a1 thk))      				;multiply sum of width & length
   (setq wght (* a2 0.00000785))   			;multiply total
   (setq qty (getreal "\nQuantity? "))
   (if (= qty nil) (setq qty 1))
   (setq ans1 (* wght qty))
   (setq wstrng (rtos ans1))
   (princ (strcat "\nWeight = " wstrng))
   (princ " Kilograms")
   (princ "\nEnd of Program")
   (princ)
  )