---

DachProfilText.JPG DachProfil.JPG

Hallo Lisp Forum,

hier lade ich mal mein erstes Lisp Programm hoch, vielleicht kann es jemand brauchen.
Es ist für die Berechnung und das Zeichnen eines Satteldachprofils.
Eingaben und Ausgabe in mm.

(defun c ach()

;Eingaben
(princ " ") (princ "\n")
(princ " **********************************") (princ "\n")
(princ " *  Dachprofil von Bernd Brück  *") (princ "\n")
(princ " **********************************") (princ "\n")
(princ " ") (princ "\n")
(princ " *************************") (princ "\n")
(princ " *  Dachprofil Eingabe  *") (princ "\n")
(princ " *************************") (princ "\n")
(princ " ") (princ "\n")
(setq dn      (getreal " Dachneigung            : "))
(setq due      (getreal " Dachüberstand          : "))
(setq akfuss  (getreal " AK Fußpfette          : "))
(setq trempel  (getreal " Trempelhöhe            : "))
(setq halbe    (getreal " Halbe Hausbreite      : "))
(setq fussb    (getreal " Fußpfettenbreite      : "))
(setq fussh    (getreal " Fußpfettenhöhe        : "))
(setq okm      (getreal " OK Mittelpfette        : "))
(setq mittelb  (getreal " Mittelpfettenbreite    : "))
(setq mittelh  (getreal " Mittelpfettenhöhe      : "))
(setq ukz      (getreal " UK Zange              : "))
(setq zangenh  (getreal " Zangenhöhe            : "))
(setq laschenh (getreal " Firstlaschenhöhe      : "))
(setq firstb  (getreal " 1/2 Firstpfettenbreite : "))
(setq firsth  (getreal " Firstpfettenhöhe      : "))
(setq rob      (getreal " Rechtwinkliges Obholz  : "))
    ;(setq sparrenb (getreal " Sparrenbreite          : "))
(setq sparrenh (getreal " Sparrenhöhe            : "))
 
  ;Rechnen
 
  ;Dachneigung in Bogenmaß
  (setq neigung (/ (* dn pi) 180))
 
  ;Obholz lotrecht und waagerecht
  (setq loh (/ rob (cos neigung)))
  (setq woh (/ rob (sin neigung)))
  ;Sparrenlängen
  (setq sl  (/ (+ halbe due) (cos neigung)))
  (setq sl1 (/ (+ due akfuss) (cos neigung)))
  (setq sl3 (/ (- (+ halbe due) firstb) (cos neigung)))
  (setq sl2 (+ (/ (- okm trempel fussh) (sin neigung)) sl1))
  ;Traufhöhe
  (setq oktraufe (-  (+ trempel fussh loh) (* sl1 (sin neigung))))
  ;Profilhöhe
  (setq profilhd (* sl (sin neigung)))
  ;Firsthöhe
  (setq fh (+ profilhd oktraufe))
  ;Aussenkante Mittelpfette
  (setq akmittel (+ (* (- sl2 sl1) (cos neigung)) akfuss))
  ;Profilgrundmaß
  (setq profilg (+ halbe due))
  ;Firstpunkt bis Firstpfette
  (setq fhbisfirst (+ (* (- sl sl3) (sin neigung)) loh))
  ;Unterkante First
  (setq ukfirst (- fh fhbisfirst firsth))
  ;Fuß bis Mittelpfette
  (setq fussbismittel (- okm trempel fussh))
  ;Zangenlänge
  (setq zl (* (* (- fh ukz) (sin neigung)) (cos neigung)))
  ;Mitte bis IK Mittelpfette
  (setq dbl (- halbe akmittel mittelb))
  ;Firstlaschenlänge
  (setq fll (* (* (+ fhbisfirst firsth laschenh) (sin neigung)) (cos neigung)))
  ;Lothrechte Sparrenhöhe
  (setq sparrenl (/ sparrenh (cos neigung)))
 
   
  ;Ausgabe im Textfenster
  (princ " ") (princ "\n")
  (princ " ") (princ "\n")
  (princ " *************************") (princ "\n")
  (princ " *  Dachprofil Ausgabe  *") (princ "\n")
  (princ " *************************") (princ "\n")
  (princ " ") (princ "\n")
  (princ " Sparrenlänge          : ") (princ sl) (princ "\n")
  (princ " 0 - Fußklaue          : ") (princ sl1) (princ "\n")
  (princ " 0 - Mittelklaue        : ") (princ sl2) (princ "\n")
  (princ " 0 - Firstklaue        : ") (princ sl3) (princ "\n")
  (princ " Lothrechtes Obholz    : ") (princ loh) (princ "\n")
  (princ " Waagerechtes Obholz    : ") (princ woh) (princ "\n")
  (princ " Lothrechter Sparren    : ") (princ sparrenl) (princ "\n")
  (princ " AK Mittelpfette        : ") (princ akmittel) (princ "\n")
  (princ " UK Mittelpfette        : ") (princ (- okm mittelh)) (princ "\n")
  (princ " OK Fuß - OK Mittel    : ") (princ fussbismittel) (princ "\n")
  (princ " Traufpunkthöhe        : ") (princ oktraufe) (princ "\n")
  (princ " Profilgrundmaß        : ") (princ profilg) (princ "\n")
  (princ " Profilhöhe            : ") (princ profilhd) (princ "\n")
  (princ " Firstpunkthöhe        : ") (princ fh) (princ "\n")
  (princ " Firstpunkt - OK First  : ") (princ fhbisfirst) (princ "\n")
  (princ " UK Firstpfette        : ") (princ ukfirst) (princ "\n")
  (princ " 1/2 Zangenlänge        : ") (princ zl) (princ "\n")
  (princ " Mitte - IK Mittelpf    : ") (princ dbl) (princ "\n")
  (princ " 1/2 Firstlaschenlänge  : ") (princ loh) (princ "\n")
  (princ " ") (princ "\n")
  (princ ">> Zeichnen <<") (princ "")
  (princ " ") (princ "\n")

 
  ;Zeichnen
 
  ; Objektfang ausschalten
  (setvar "osmode" 0)

  ;Hausbreite
  (command "linie" '(0 0) (list halbe 0) "")
  ;Trempel  240mm feste Mauerbreite
  (command "rechteck" '(0 0) (list 240 trempel) "")
  ;Fußpette
  (command "rechteck" (list akfuss trempel) (list (+ fussb akfuss) (+ trempel fussh)) "")
  (command "linie" (list akfuss (+ trempel fussh)) (list akfuss (+ trempel fussh loh)) "")
  ;Firstpfette
  (command "rechteck" (list (- halbe firstb) ukfirst) (list halbe (+ ukfirst firsth)) "")
  (command "linie" (list (- halbe firstb) (+ ukfirst firsth)) (list (- halbe firstb) (+ ukfirst firsth loh)) "")
  ;Mittelpfette
  (command "rechteck" (list akmittel (- okm mittelh)) (list (+ akmittel mittelb) okm) "")
  (command "linie" (list akmittel okm) (list akmittel (+ okm loh)) "")
  ;Sparren
  (command "linie" (list (- due) oktraufe) (list halbe fh) "")
  (command "linie" (list (- due) (- oktraufe sparrenl)) (list halbe (- fh sparrenl)) "")
  ;Abschnitt (command "linie" (list (- due) oktraufe) (list (- oktraufe ((* sparrenh (cos neigung)))( - due (* sparrenh (sin neigung))))) "")

 
  ;Mittelline
  (command "linie" (list halbe 0) (list  halbe fh) "")

 
  ; Objektfang wieder einschalten
  (setvar "osmode" 7)

  (princ ">> Fertig <<") (princ )
  )
 

------------------
Gruß Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP