Topic: Roof Calculator for drawing different roof pitches in plan

[GDF]

I'm working on a dialog based calculator  for drawing different roof pitches in plan.


I'm looking for slides or diagrams showing the geometry and calculations for solving the hips and valleys in roof plan view for intersecting different roof pitches. For example a 12/12 to 12/12 roof pitch would result in a 45 degree angle.

Thanks

Gary

[GDF]

Got it fixed

Code: [Select]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (defun OVERHANGCALC1  ()
    (mode_tile "overhang" 0)   
    (setvar "insunits" 1)
    (setvar "lunits" 4)
    (if (= pitchval "Select")
      (setq pitchval nil))
    (cond
      ((or (= pitchvalA nil) (= plateghtval nil) (= plateghtval ""))
       (ARCH:MsgBox2
         " Arch Program : Info"
         48
         "
            Roof Calculator Error:
-------------------------------------------------------------------------
     Please fill in the Roof Pitch and Plate height values...and try again.
    "    4))
      ((and (/= pitchvalA "")
            (/= plateghtval ""))
       (cond ((= horzvert "Horizontal")
              (setq overhangval (* (/ pitchvalA 12) (distof plateghtval))))
             ((= horzvert "Vertical")
              (setq overhangval (* (/ 12 pitchvalA) (distof plateghtval)))))
       (set_tile "overhang" (rtos overhangval 4 2))))
    (princ))
;;;
  (defun OVERHANGCALC2  ()
    (mode_tile "overhang" 0)   
    (setvar "insunits" 1)
    (setvar "lunits" 4)
    (if (= pitchval "Select")
      (setq pitchval nil))
    (cond
      ((or (= pitchvalA nil) (= plateghtval nil) (= plateghtval ""))
       (ARCH:MsgBox2
         " Arch Program : Info"
         48
         "
            Roof Calculator Error:
-------------------------------------------------------------------------
     Please fill in the Roof Pitch and Plate height values...and try again.
    "    4))
      ((and (/= pitchvalA "")
            (/= plateghtval ""))
       (cond ((= horzvert "Horizontal")
              (setq overhangval (* (/ pitchvalA 12) (distof plateghtval))))
             ((= horzvert "Vertical")
              (setq overhangval (* (/ 12 pitchvalA) (distof plateghtval)))))
       (set_tile "overhang" (rtos overhangval 4 2))))
    (princ))
;;;DISTANCE = (KNOW WIDTH / 2) (SLOPE A)  /  (SLOPE B)
  (defun OVERHANGCALC3  ()
    (setq distanceA "20'")
    (mode_tile "plateght" 1)
    (set_tile "plateght" "")
    (mode_tile "distanceB" 0)
    (setvar "insunits" 1)
    (setvar "lunits" 4)
   (if (= pitchval "Select")
      (setq pitchval nil))
    (cond
      ((or (= pitchvalA nil) (= pitchvalB nil) (= plateghtval ""))
       (ARCH:MsgBox2
         " Arch Program : Info"
         48
         "
            Roof Calculator Error:
-------------------------------------------------------------------------
     Please fill in the Roof Pitch and Plate height values...and try again.
    "    4))
      ((and (/= pitchvalA "")
            (/= plateghtval ""))
       (cond ((= horzvert "Plan")
              (setq distanceB (* (/ (/ pitchvalA 12) (/ pitchvalB 12)) (/ (distof distanceA) 2))))             
             )
       (set_tile "distanceB" (rtos distanceB 4 2))))
   
    (princ))
;;;
  (defun CALCULATE  ()
    (cond ((= horzvert "Horizontal") (OVERHANGCALC1))
          ((= horzvert "Vertical") (OVERHANGCALC2))
          ((= horzvert "Plan") (OVERHANGCALC3))))


[HasanCAD]

More than excellent