(defun C:gable () (setvar "OSMODE" 0) ; setzt Objektfang auf 0 (setq P1 (getpoint "\nPosition: ") S1 (getdist "\nGable Width : ") ;Abstand AW-AW An (getdist "\nPitch Rise <12>: ");Anstieg des Daches bezogen auf 12" im Grund St (getdist "\nStep <0>: ") S2 (getdist "\nPitch+ <2>: ") ;Abstand Mitte Wand-Versprung GF (getdist "\nRidge Gain: ") GL1 (getdist "\n1 Purlin Gain left <0>: ") GL2 (getdist "\n2 Purlin Gain left <0>: ") GL3 (getdist "\n3 Purlin Gain left <0>: ") GR1 (getdist "\n1 Purlin Gain right <0>: ") GR2 (getdist "\n2 Purlin Gain right <0>: ") GR3 (getdist "\n3 Purlin Gain right <0>: ") S3 (getdist "\nP1 center <0>: ") ;Abstand First-Pfette1 S4 (getdist "\nP2 center <0>: ") ;Abstand Pfette1-Pfette2 S5 (getdist "\nP3 center <0>: ") ;Abstand Pfette2-Pfette3 ) (if (not S2) (setq S2 2) ) (if (not St) (setq St 0) ) (if (not S3) (setq S3 0) ) (if (not S4) (setq S4 0) ) (if (not S5) (setq S5 0) ) (if (not An) (setq An 12) ) (if (not GL1) (setq GL1 0) ) (if (not GL2) (setq GL2 0) ) (if (not GL3) (setq GL3 0) ) (if (not GR1) (setq GR1 0) ) (if (not GR2) (setq GR2 0) ) (if (not GR3) (setq GR3 0) ) (setq HH (+ (/ S1 2) S2) ;Halbe Hausbreite D1 (* 2 6) ;Durchmesser des Schwellenholzes D2 (+ 3 GF) ;Durchmesser der Firstpfette D3 (+ 3 GL1) ;Durchmesser der ersten linken Mittelpfetten D4 (+ 3 Gl2) ;Durchmesser der zweiten linken Mittelpfetten D5 (+ 3 Gl3) ;Durchmesser der dritten linken Mittelpfetten D6 (+ 3 GR1) ;Durchmesser der ersten rechten Mittelpfetten D7 (+ 3 GR2) ;Durchmesser der zweiten rechten Mittelpfetten D8 (+ 3 GR3) ;Durchmesser der dritten rechten Mittelpfetten PL (list (- (car P1) S2) (cadr P1)) ; Festlegen des linken Startpunktes PR (list (+ (+ (car P1) S2) S1) (cadr P1)) ;Festlegen des rechten Startpunktes PM (list (+ (car P1) (/ S1 2)) (+ (cadr P1) St)) ;Festlegen des Mittelpunktes der untern Linie PF (list (car PM) (+ (cadr P1) (*(/ An 12) HH))) ;Festlegen des Firstpunktes PLS (list (+ (car PL) (* (/ 12 An) St)) (+ (cadr PL) St)) PRS (list (- (car PR) (* (/ 12 An) St)) (+ (cadr PL) St)) Pu1 (list (+ (car PL)(- HH S3)) (+ (cadr P1) St)) ;Unterer Centerpunkt Pfette 1 links Po1 (list (+ (car PL)(- HH S3)) (+ (cadr P1)(* (/ An 12) (- HH S3)))) ;Oberer Centerpunkt Pfette 1 links Pu2 (list (+ (car PL)(- HH (+ S3 S4))) (+ (cadr P1) St)) ;Unterer Centerpunkt Pfette 2 links Po2 (list (+ (car PL)(- HH (+ S3 S4))) (+ (cadr P1)(* (/ An 12) (- HH (+ S3 S4))))) ;Oberer Centerpunkt Pfette 2 links Pu3 (list (+ (car PL)(- HH (+ S3 S4 S5))) (+ (cadr P1) St)) ;Unterer Centerpunkt Pfette 3 links Po3 (list (+ (car PL)(- HH (+ S3 S4 S5))) (+ (cadr P1)(* (/ An 12) (- HH (+ S3 S4 S5)))));Oberer Centerpunkt Pfette 3 links Pu11 (list (+ (car PL)(+ HH S3)) (+ (cadr P1) St)) ;Unterer Centerpunkt Pfette 1 rechts Po11 (list (+ (car PL)(+ HH S3)) (+ (cadr P1)(* (/ An 12) (- HH S3)))) ;Oberer Centerpunkt Pfette 1 rechts Pu22 (list (+ (car PL)(+ HH S3 S4)) (+ (cadr P1) St)) ;Unterer Centerpunkt Pfette 2 rechts Po22 (list (+ (car PL)(+ HH S3 S4)) (+ (cadr P1)(* (/ An 12) (- HH (+ S3 S4))))) ;Oberer Centerpunkt Pfette 2 rechts Pu33 (list (+ (car PL)(+ HH S3 S4 S5)) (+ (cadr P1) St)) ;Unterer Centerpunkt Pfette 3 rechts Po33 (list (+ (car PL)(+ HH S3 S4 S5)) (+ (cadr P1)(* (/ An 12) (- HH (+ S3 S4 S5)))));Oberer Centerpunkt Pfette 3 rechts PGF (list (car PF) (- (cadr PF) GF)) ;Punkte der Gainmasse PGL1 (list (car Po1) (- (cadr Po1) GL1)) PGL2 (list (car Po2) (- (cadr Po2) GL2)) PGL3 (list (car Po3) (- (cadr Po3) GL3)) PGR1 (list (car Po11) (- (cadr Po11) GR1)) PGR2 (list (car Po22) (- (cadr Po22) GR2)) PGR3 (list (car Po33) (- (cadr Po33) GR3)) D1L (list (car P1) (- (cadr P1) (/ D1 2))) ;Mittelpunkt der linken Schwelle D1R (list (- (car PR) S2) (- (cadr P1) (/ D1 2))) ;Mittelpunkt der rechten Schwelle D2R (list (car PM) (- (cadr PF) (/ D2 2))) ;Mittelpunkt der Firstpfette DL1 (list (car Po1) (- (cadr Po1) (/ D3 2))) ;Mittelpunkt der 1. linken Pfette DL2 (list (car Po2) (- (cadr Po2) (/ D4 2))) ;Mittelpunkt der 2. linken Pfette DL3 (list (car Po3) (- (cadr Po3) (/ D5 2))) ;Mittelpunkt der 3. linken Pfette DR1 (list (car Po11) (- (cadr Po11) (/ D6 2))) ;Mittelpunkt der 1. rechten Pfette DR2 (list (car Po22) (- (cadr Po22) (/ D7 2))) ;Mittelpunkt der 2. rechten Pfette DR3 (list (car Po33) (- (cadr Po33) (/ D8 2))) ;Mittelpunkt der 3. rechten Pfette STE1 (list (+ (car PF) (/ HH 2)) (+ (cadr PF) 51)) ;Punkte fuer die Steigungsecke STE2 (list (car STE1) (+ (cadr STE1) An)) STE3 (list (- (car STE2) 12) (cadr STE2)) stedim1 (list (+ (car STE1) 5) (cadr STE1)) ; Bemassungspunkte fuer die Steigungsecke stedim2 (list (+ (car STE2) 5) (cadr STE2)) stedim3 (list (+ (car STE1) 11) (cadr STE1)) stedim4 (list (car STE2) (+ (cadr STE2) 5)) stedim5 (list (car STE3) (+ (cadr STE3) 5)) stedim6 (list (car STE2) (+ (cadr STE2) 11)) pdim1 (list (car PL) (- (cadr D1L) (+ (/ D1 2) 1))) ;Bemassungspunkte Wandcenter und des Pitchs (unterhalb) pdim2 (list (car D1L) (- (cadr D1L) (+ (/ D1 2) 1))) pdim3 (list (car D1R) (- (cadr D1R) (+ (/ D1 2) 1))) pdim4 (list (car PR) (- (cadr D1L) (+ (/ D1 2) 1))) pdim5 (list (car P1) (-(cadr pdim1) 10)) pdim6 (list (car PF) (+ (cadr PF) 1)) ;Bemassungspunkte der Pfettencenter (oberhalb) pdim7 (list (car Po1) (+ (cadr Po1) 1)) pdim8 (list (car Po2) (+ (cadr Po2) 1)) pdim9 (list (car Po3) (+ (cadr Po3) 1)) pdim10 (list (+ (car PL) S2) (+ (cadr PL) 10)) pdim11 (list (car Po11) (+ (cadr Po11) 1)) pdim12 (list (car Po22) (+ (cadr Po22) 1)) pdim13 (list (car Po33) (+ (cadr Po33) 1)) pdim14 (list (-(car PR) S2) (+ (cadr PR) 10)) pdim15 (list (car PF) (+ (cadr pdim6) 10)) Pdim16 (list (- (car PLS) 1) (cadr PLS)) ;Bemassungspunkte der Pfettenhoehen (links) Pdim17 (list (- (car Po3) 1) (cadr Po3)) Pdim18 (list (- (car Po2) 1) (cadr Po2)) Pdim19 (list (- (car Po1) 1) (cadr Po1)) Pdim20 (list (- (car PF) 1) (cadr PF)) Pdim21 (list (- (car PL) 11) (cadr P1)) Pdim22 (list (- (car PL) 21) (cadr P1)) Pdim23 (list (- (car PL) 31) (cadr P1)) Pdim24 (list (- (car PL) 41) (cadr P1)) Pdimtot1 (list (- (car PL) 1) (cadr PL)) Pdimtot2 (list (- (car PF) 1) (cadr PF)) Pdimtot3 (list (- (car PL) 66) (cadr P1)) Pdim25 (list (+ (car PR) 1) (cadr PR)) ;Bemassungspunkte des Step (rechts) Pdim26 (list (+ (car PRS) 1) (cadr PRS)) Pdim27 (list (+ (car PR) 11) (cadr PR)) Gdim1 (list (+ (car PM) 1) (cadr PM)) ;Bemassungspunkte der Gainmasse unter Firstpfette Gdim2 (list (+ (car PGF) 1) (cadr PGF)) Gdim3 (list (+ (car PF) 1) (cadr PF)) Gdim4 (list (+ (car PM) 11) (cadr PM)) 1LGdim1 (list (+ (car Pu1) 1) (cadr Pu1)) ;Bemassungspunkte der Gainmasse unter linker Pfette 1 1LGdim2 (list (+ (car PGL1) 1) (cadr PGL1)) 1LGdim3 (list (+ (car Po1) 1) (cadr Po1)) 1LGdim4 (list (+ (car Pu1) 11) (cadr Pu1)) 2LGdim1 (list (+ (car Pu2) 1) (cadr Pu2)) ;Bemassungspunkte der Gainmasse unter linker Pfette 2 2LGdim2 (list (+ (car PGL2) 1) (cadr PGL2)) 2LGdim3 (list (+ (car Po2) 1) (cadr Po2)) 2LGdim4 (list (+ (car Pu2) 11) (cadr Pu2)) 3LGdim1 (list (+ (car Pu3) 1) (cadr Pu3)) ;Bemassungspunkte der Gainmasse unter linker Pfette 3 3LGdim2 (list (+ (car PGL3) 1) (cadr PGL3)) 3LGdim3 (list (+ (car Po3) 1) (cadr Po3)) 3LGdim4 (list (+ (car Pu3) 11) (cadr Pu3)) 1RGdim1 (list (+ (car Pu11) 1) (cadr Pu11)) ;Bemassungspunkte der Gainmasse unter rechten Pfette 1 1RGdim2 (list (+ (car PGR1) 1) (cadr PGR1)) 1RGdim3 (list (+ (car Po11) 1) (cadr Po11)) 1RGdim4 (list (+ (car Pu11) 11) (cadr Pu11)) 2RGdim1 (list (+ (car Pu22) 1) (cadr Pu22)) ;Bemassungspunkte der Gainmasse unter rechten Pfette 2 2RGdim2 (list (+ (car PGR2) 1) (cadr PGR2)) 2RGdim3 (list (+ (car Po22) 1) (cadr Po22)) 2RGdim4 (list (+ (car Pu22) 11) (cadr Pu22)) 3RGdim1 (list (+ (car Pu33) 1) (cadr Pu33)) ;Bemassungspunkte der Gainmasse unter rechten Pfette 1 3RGdim2 (list (+ (car PGR3) 1) (cadr PGR3)) 3RGdim3 (list (+ (car Po33) 1) (cadr Po33)) 3RGdim4 (list (+ (car Pu33) 11) (cadr Pu33)) ) (command "pline" PL PR PF PL "" "line" PM PF "" "line" Po1 Pu1 "" "line" Po2 Pu2 "" "line" Po3 Pu3 "" "line" Po11 Pu11 "" "line" Po22 Pu22 "" "line" Po33 Pu33 "" "line" PLS PRS "" "line" STE1 STE2 "" "line" STE2 STE3 "" "circle" D1L (/ D1 2) "" ;Schwelle links "circle" D1R (/ D1 2) "" ;Schwelle rechts "circle" D2R (/ D2 2) "" ;Firstpfette "circle" DL1 (/ D3 2) "" ;Pfette 1 links "circle" DL2 (/ D4 2) "" ;Pfette 2 links "circle" DL3 (/ D5 2) "" ;Pfette 3 links "circle" DR1 (/ D6 2) "" ;Pfette 1 rechts "circle" DR2 (/ D7 2) "" ;Pfette 2 rechts "circle" DR3 (/ D8 2) "" ;Pfette 3 rechts ) (if(and(setq TEXT " Pitch+") ;Bemassung und Beschriftung Pitch links unterhalb ) (command "_dim" "_hor" pdim1 pdim2 "_T" (strcat "<>" TEXT) pdim5 "exit") ) (if(and(setq TEXT " Gable Width") ;Bemassung und Beschriftung Gablewith mitte unterhalb ) (command "_dim" "_hor" pdim2 pdim3 "_T" (strcat "<>" TEXT) pdim5 "exit") ) (if(and(setq TEXT " Pitch+") ;Bemassung und Beschriftung Pitch rechts unterhalb ) (command "_dim" "_hor" pdim3 pdim4 "_T" (strcat "<>" TEXT) pdim5 "exit") ) (Command "dim" "hor" pdim6 pdim7 pdim15 "" ;Bemassung der Centerabstaende der Pfetten (oberhalb) "dim" "hor" pdim7 pdim8 pdim15 "" "dim" "hor" pdim8 pdim9 pdim15 "" "dim" "hor" pdim9 pdim10 pdim15 "" "dim" "hor" pdim6 pdim11 pdim15 "" "dim" "hor" pdim11 pdim12 pdim15 "" "dim" "hor" pdim12 pdim13 pdim15 "" "dim" "hor" pdim13 pdim14 pdim15 "" "dim" "ver" pdim16 pdim17 pdim21 "" ; Bemassung der Pfettenhoehen (links) "dim" "ver" pdim16 pdim18 pdim22 "" "dim" "ver" pdim16 pdim19 pdim23 "" "dim" "ver" pdim16 pdim20 pdim24 "" "dim" "ver" pdimtot1 pdimtot2 pdimtot3 "" ) (if(and(setq TEXT " Step") ;Bemassung und Beschriftung Step rechtes ) (command "_dim" "_ver" pdim25 pdim26 "_T" (strcat "<>" TEXT) pdim27 "exit") ) (if(and(setq TEXT " Ridge Gain") ;Bemassung und Beschriftung Gain First ) (command "_dim" "_ver" gdim2 gdim3 "_T" (strcat "<>" TEXT) gdim4 "exit") ) (if(and(setq TEXT " Gain 1 L") ;Bemassung und Beschriftung Gain Pfette 1 links ) (command "_dim" "_ver" 1lgdim2 1lgdim3 "_T" (strcat "<>" TEXT) 1lgdim4 "exit") ) (if(and(setq TEXT " Gain 2 L") ;Bemassung und Beschriftung Gain Pfette 2 links ) (command "_dim" "_ver" 2lgdim2 2lgdim3 "_T" (strcat "<>" TEXT) 2lgdim4 "exit") ) (if(and(setq TEXT " Gain 3 L") ;Bemassung und Beschriftung Gain Pfette 3 links ) (command "_dim" "_ver" 3lgdim2 3lgdim3 "_T" (strcat "<>" TEXT) 3lgdim4 "exit") ) (if(and(setq TEXT " Gain 1 R") ;Bemassung und Beschriftung Gain Pfette 1 rechts ) (command "_dim" "_ver" 1rgdim2 1rgdim3 "_T" (strcat "<>" TEXT) 1rgdim4 "exit") ) (if(and(setq TEXT " Gain 2 R") ;Bemassung und Beschriftung Gain unter Pfette 2 rechts ) (command "_dim" "_ver" 2rgdim2 2rgdim3 "_T" (strcat "<>" TEXT) 2rgdim4 "exit") ) (if(and(setq TEXT " Gain 3 R") ;Bemassung und Beschriftung Gain Pfette 3 rechts ) (command "_dim" "_ver" 3rgdim2 3rgdim3 "_T" (strcat "<>" TEXT) 3rgdim4 "exit") ) (command "dim" "ver" gdim1 gdim2 gdim4 "" ;Bemassung Post unter First "dim" "ver" 1lgdim1 1lgdim2 1lgdim4 "" ;Bemassung Hoehe Post unter Pfette 1 links "dim" "ver" 2lgdim1 2lgdim2 2lgdim4 "" ;Bemassung Hoehe Post unter Pfette 2 links "dim" "ver" 3lgdim1 3lgdim2 3lgdim4 "" ;Bemassung Hoehe Post unter Pfette 3 links "dim" "ver" 1rgdim1 1rgdim2 1rgdim4 "" ;Bemassung Hoehe Post unter Pfette 1 rechts "dim" "ver" 2rgdim1 2rgdim2 2rgdim4 "" ;Bemassung Hoehe Post unter Pfette 2 rechts "dim" "ver" 3rgdim1 3rgdim2 3rgdim4 "" ;Bemassung Hoehe Post unter Pfette 3 rechts ) (if(and(setq TEXT " Rise") ;Bemassung und Beschriftung der Steigungsecke ) (command "_dim" "_ver" STEdim1 STEdim2 "_T" (strcat "<>" TEXT) STEdim3 "exit") ) (if(and(setq TEXT " Run") ;Bemassung und Beschriftung der Steigungsecke ) (command "_dim" "_hor" STEdim4 STEdim5 "_T" (strcat "<>" TEXT) STEdim6 "exit") ) (princ) "exit" (initget "Yes No") (setq Finish(=(getkword "\ngo on with Enter or ESC:")"Yes")) (setq finish nil) (While (not Finish) (foreach AB '( (P1 getpoint "Position new") (S1 getdist "Gable Width new") (An getdist "Pitch Rise new") (St getdist "Step new") (S2 getdist "Pitch+ new") (GF getdist "Ridge Gain new") (GL1 getdist "1 Purlin Gain left new") (GL2 getdist "2 Purlin Gain left new") (GL3 getdist "3 Purlin Gain left new") (GR1 getdist "1 Purlin Gain right new") (GR2 getdist "2 Purlin Gain right new") (GR3 getdist "3 Purlin Gain right new") (S3 getdist "P1 center new") (S4 getdist "P2 center new") (S5 getdist "P3 center new") ) (setq temp((eval (cadr AB)) (strcat"\n"(caddr AB)" <"(vl-princ-to-string (eval(car AB)))">: "))) (if temp (set (car AB) temp)) ) (setq HH (+ (/ S1 2) S2) ;Halbe Hausbreite D1 (* 2 6) ;Durchmesser des Schwellenholzes D2 (+ 3 GF) ;Durchmesser der Firstpfette D3 (+ 3 GL1) ;Durchmesser der ersten linken Mittelpfetten D4 (+ 3 Gl2) ;Durchmesser der zweiten linken Mittelpfetten D5 (+ 3 Gl3) ;Durchmesser der dritten linken Mittelpfetten D6 (+ 3 GR1) ;Durchmesser der ersten rechten Mittelpfetten D7 (+ 3 GR2) ;Durchmesser der zweiten rechten Mittelpfetten D8 (+ 3 GR3) ;Durchmesser der dritten rechten Mittelpfetten PL (list (- (car P1) S2) (cadr P1)) ; Festlegen des linken Startpunktes PR (list (+ (+ (car P1) S2) S1) (cadr P1)) ;Festlegen des rechten Startpunktes PM (list (+ (car P1) (/ S1 2)) (+ (cadr P1) St)) ;Festlegen des Mittelpunktes der untern Linie PF (list (car PM) (+ (cadr P1) (*(/ An 12) HH))) ;Festlegen des Firstpunktes PLS (list (+ (car PL) (* (/ 12 An) St)) (+ (cadr PL) St)) PRS (list (- (car PR) (* (/ 12 An) St)) (+ (cadr PL) St)) Pu1 (list (+ (car PL)(- HH S3)) (+ (cadr P1) St)) ;Unterer Centerpunkt Pfette 1 links Po1 (list (+ (car PL)(- HH S3)) (+ (cadr P1)(* (/ An 12) (- HH S3)))) ;Oberer Centerpunkt Pfette 1 links Pu2 (list (+ (car PL)(- HH (+ S3 S4))) (+ (cadr P1) St)) ;Unterer Centerpunkt Pfette 2 links Po2 (list (+ (car PL)(- HH (+ S3 S4))) (+ (cadr P1)(* (/ An 12) (- HH (+ S3 S4))))) ;Oberer Centerpunkt Pfette 2 links Pu3 (list (+ (car PL)(- HH (+ S3 S4 S5))) (+ (cadr P1) St)) ;Unterer Centerpunkt Pfette 3 links Po3 (list (+ (car PL)(- HH (+ S3 S4 S5))) (+ (cadr P1)(* (/ An 12) (- HH (+ S3 S4 S5)))));Oberer Centerpunkt Pfette 3 links Pu11 (list (+ (car PL)(+ HH S3)) (+ (cadr P1) St)) ;Unterer Centerpunkt Pfette 1 rechts Po11 (list (+ (car PL)(+ HH S3)) (+ (cadr P1)(* (/ An 12) (- HH S3)))) ;Oberer Centerpunkt Pfette 1 rechts Pu22 (list (+ (car PL)(+ HH S3 S4)) (+ (cadr P1) St)) ;Unterer Centerpunkt Pfette 2 rechts Po22 (list (+ (car PL)(+ HH S3 S4)) (+ (cadr P1)(* (/ An 12) (- HH (+ S3 S4))))) ;Oberer Centerpunkt Pfette 2 rechts Pu33 (list (+ (car PL)(+ HH S3 S4 S5)) (+ (cadr P1) St)) ;Unterer Centerpunkt Pfette 3 rechts Po33 (list (+ (car PL)(+ HH S3 S4 S5)) (+ (cadr P1)(* (/ An 12) (- HH (+ S3 S4 S5)))));Oberer Centerpunkt Pfette 3 rechts PGF (list (car PF) (- (cadr PF) GF)) ;Punkte der Gainmasse PGL1 (list (car Po1) (- (cadr Po1) GL1)) PGL2 (list (car Po2) (- (cadr Po2) GL2)) PGL3 (list (car Po3) (- (cadr Po3) GL3)) PGR1 (list (car Po11) (- (cadr Po11) GR1)) PGR2 (list (car Po22) (- (cadr Po22) GR2)) PGR3 (list (car Po33) (- (cadr Po33) GR3)) D1L (list (car P1) (- (cadr P1) (/ D1 2))) ;Mittelpunkt der linken Schwelle D1R (list (- (car PR) S2) (- (cadr P1) (/ D1 2))) ;Mittelpunkt der rechten Schwelle D2R (list (car PM) (- (cadr PF) (/ D2 2))) ;Mittelpunkt der Firstpfette DL1 (list (car Po1) (- (cadr Po1) (/ D3 2))) ;Mittelpunkt der 1. linken Pfette DL2 (list (car Po2) (- (cadr Po2) (/ D4 2))) ;Mittelpunkt der 2. linken Pfette DL3 (list (car Po3) (- (cadr Po3) (/ D5 2))) ;Mittelpunkt der 3. linken Pfette DR1 (list (car Po11) (- (cadr Po11) (/ D6 2))) ;Mittelpunkt der 1. rechten Pfette DR2 (list (car Po22) (- (cadr Po22) (/ D7 2))) ;Mittelpunkt der 2. rechten Pfette DR3 (list (car Po33) (- (cadr Po33) (/ D8 2))) ;Mittelpunkt der 3. rechten Pfette STE1 (list (+ (car PF) (/ HH 2)) (+ (cadr PF) 51)) ;Punkte fuer die Steigungsecke STE2 (list (car STE1) (+ (cadr STE1) An)) STE3 (list (- (car STE2) 12) (cadr STE2)) stedim1 (list (+ (car STE1) 5) (cadr STE1)) ; Bemassungspunkte fuer die Steigungsecke stedim2 (list (+ (car STE2) 5) (cadr STE2)) stedim3 (list (+ (car STE1) 11) (cadr STE1)) stedim4 (list (car STE2) (+ (cadr STE2) 5)) stedim5 (list (car STE3) (+ (cadr STE3) 5)) stedim6 (list (car STE2) (+ (cadr STE2) 11)) pdim1 (list (car PL) (- (cadr D1L) (+ (/ D1 2) 1))) ;Bemassungspunkte Wandcenter und des Pitchs (unterhalb) pdim2 (list (car D1L) (- (cadr D1L) (+ (/ D1 2) 1))) pdim3 (list (car D1R) (- (cadr D1R) (+ (/ D1 2) 1))) pdim4 (list (car PR) (- (cadr D1L) (+ (/ D1 2) 1))) pdim5 (list (car P1) (-(cadr pdim1) 10)) pdim6 (list (car PF) (+ (cadr PF) 1)) ;Bemassungspunkte der Pfettencenter (oberhalb) pdim7 (list (car Po1) (+ (cadr Po1) 1)) pdim8 (list (car Po2) (+ (cadr Po2) 1)) pdim9 (list (car Po3) (+ (cadr Po3) 1)) pdim10 (list (+ (car PL) S2) (+ (cadr PL) 10)) pdim11 (list (car Po11) (+ (cadr Po11) 1)) pdim12 (list (car Po22) (+ (cadr Po22) 1)) pdim13 (list (car Po33) (+ (cadr Po33) 1)) pdim14 (list (-(car PR) S2) (+ (cadr PR) 10)) pdim15 (list (car PF) (+ (cadr pdim6) 10)) Pdim16 (list (- (car PLS) 1) (cadr PLS)) ;Bemassungspunkte der Pfettenhoehen (links) Pdim17 (list (- (car Po3) 1) (cadr Po3)) Pdim18 (list (- (car Po2) 1) (cadr Po2)) Pdim19 (list (- (car Po1) 1) (cadr Po1)) Pdim20 (list (- (car PF) 1) (cadr PF)) Pdim21 (list (- (car PL) 11) (cadr P1)) Pdim22 (list (- (car PL) 21) (cadr P1)) Pdim23 (list (- (car PL) 31) (cadr P1)) Pdim24 (list (- (car PL) 41) (cadr P1)) Pdimtot1 (list (- (car PL) 1) (cadr PL)) Pdimtot2 (list (- (car PF) 1) (cadr PF)) Pdimtot3 (list (- (car PL) 66) (cadr P1)) Pdim25 (list (+ (car PR) 1) (cadr PR)) ;Bemassungspunkte des Step (rechts) Pdim26 (list (+ (car PRS) 1) (cadr PRS)) Pdim27 (list (+ (car PR) 11) (cadr PR)) Gdim1 (list (+ (car PM) 1) (cadr PM)) ;Bemassungspunkte der Gainmasse unter Firstpfette Gdim2 (list (+ (car PGF) 1) (cadr PGF)) Gdim3 (list (+ (car PF) 1) (cadr PF)) Gdim4 (list (+ (car PM) 11) (cadr PM)) 1LGdim1 (list (+ (car Pu1) 1) (cadr Pu1)) ;Bemassungspunkte der Gainmasse unter linker Pfette 1 1LGdim2 (list (+ (car PGL1) 1) (cadr PGL1)) 1LGdim3 (list (+ (car Po1) 1) (cadr Po1)) 1LGdim4 (list (+ (car Pu1) 11) (cadr Pu1)) 2LGdim1 (list (+ (car Pu2) 1) (cadr Pu2)) ;Bemassungspunkte der Gainmasse unter linker Pfette 2 2LGdim2 (list (+ (car PGL2) 1) (cadr PGL2)) 2LGdim3 (list (+ (car Po2) 1) (cadr Po2)) 2LGdim4 (list (+ (car Pu2) 11) (cadr Pu2)) 3LGdim1 (list (+ (car Pu3) 1) (cadr Pu3)) ;Bemassungspunkte der Gainmasse unter linker Pfette 3 3LGdim2 (list (+ (car PGL3) 1) (cadr PGL3)) 3LGdim3 (list (+ (car Po3) 1) (cadr Po3)) 3LGdim4 (list (+ (car Pu3) 11) (cadr Pu3)) 1RGdim1 (list (+ (car Pu11) 1) (cadr Pu11)) ;Bemassungspunkte der Gainmasse unter rechten Pfette 1 1RGdim2 (list (+ (car PGR1) 1) (cadr PGR1)) 1RGdim3 (list (+ (car Po11) 1) (cadr Po11)) 1RGdim4 (list (+ (car Pu11) 11) (cadr Pu11)) 2RGdim1 (list (+ (car Pu22) 1) (cadr Pu22)) ;Bemassungspunkte der Gainmasse unter rechten Pfette 2 2RGdim2 (list (+ (car PGR2) 1) (cadr PGR2)) 2RGdim3 (list (+ (car Po22) 1) (cadr Po22)) 2RGdim4 (list (+ (car Pu22) 11) (cadr Pu22)) 3RGdim1 (list (+ (car Pu33) 1) (cadr Pu33)) ;Bemassungspunkte der Gainmasse unter rechten Pfette 1 3RGdim2 (list (+ (car PGR3) 1) (cadr PGR3)) 3RGdim3 (list (+ (car Po33) 1) (cadr Po33)) 3RGdim4 (list (+ (car Pu33) 11) (cadr Pu33)) ) (command "pline" PL PR PF PL "" "line" PM PF "" "line" Po1 Pu1 "" "line" Po2 Pu2 "" "line" Po3 Pu3 "" "line" Po11 Pu11 "" "line" Po22 Pu22 "" "line" Po33 Pu33 "" "line" PLS PRS "" "line" STE1 STE2 "" "line" STE2 STE3 "" "circle" D1L (/ D1 2) "" ;Schwelle links "circle" D1R (/ D1 2) "" ;Schwelle rechts "circle" D2R (/ D2 2) "" ;Firstpfette "circle" DL1 (/ D3 2) "" ;Pfette 1 links "circle" DL2 (/ D4 2) "" ;Pfette 2 links "circle" DL3 (/ D5 2) "" ;Pfette 3 links "circle" DR1 (/ D6 2) "" ;Pfette 1 rechts "circle" DR2 (/ D7 2) "" ;Pfette 2 rechts "circle" DR3 (/ D8 2) "" ;Pfette 3 rechts ) (if(and(setq TEXT " Pitch+") ;Bemassung und Beschriftung Pitch links unterhalb ) (command "_dim" "_hor" pdim1 pdim2 "_T" (strcat "<>" TEXT) pdim5 "exit") ) (if(and(setq TEXT " Gable Width") ;Bemassung und Beschriftung Gablewith mitte unterhalb ) (command "_dim" "_hor" pdim2 pdim3 "_T" (strcat "<>" TEXT) pdim5 "exit") ) (if(and(setq TEXT " Pitch+") ;Bemassung und Beschriftung Pitch rechts unterhalb ) (command "_dim" "_hor" pdim3 pdim4 "_T" (strcat "<>" TEXT) pdim5 "exit") ) (Command "dim" "hor" pdim6 pdim7 pdim15 "" ;Bemassung der Centerabstaende der Pfetten (oberhalb) "dim" "hor" pdim7 pdim8 pdim15 "" "dim" "hor" pdim8 pdim9 pdim15 "" "dim" "hor" pdim9 pdim10 pdim15 "" "dim" "hor" pdim6 pdim11 pdim15 "" "dim" "hor" pdim11 pdim12 pdim15 "" "dim" "hor" pdim12 pdim13 pdim15 "" "dim" "hor" pdim13 pdim14 pdim15 "" "dim" "ver" pdim16 pdim17 pdim21 "" ; Bemassung der Pfettenhoehen (links) "dim" "ver" pdim16 pdim18 pdim22 "" "dim" "ver" pdim16 pdim19 pdim23 "" "dim" "ver" pdim16 pdim20 pdim24 "" "dim" "ver" pdimtot1 pdimtot2 pdimtot3 "" ) (if(and(setq TEXT " Step") ;Bemassung und Beschriftung Step rechtes ) (command "_dim" "_ver" pdim25 pdim26 "_T" (strcat "<>" TEXT) pdim27 "exit") ) (if(and(setq TEXT " Ridge Gain") ;Bemassung und Beschriftung Gain First ) (command "_dim" "_ver" gdim2 gdim3 "_T" (strcat "<>" TEXT) gdim4 "exit") ) (if(and(setq TEXT " Gain 1 L") ;Bemassung und Beschriftung Gain Pfette 1 links ) (command "_dim" "_ver" 1lgdim2 1lgdim3 "_T" (strcat "<>" TEXT) 1lgdim4 "exit") ) (if(and(setq TEXT " Gain 2 L") ;Bemassung und Beschriftung Gain Pfette 2 links ) (command "_dim" "_ver" 2lgdim2 2lgdim3 "_T" (strcat "<>" TEXT) 2lgdim4 "exit") ) (if(and(setq TEXT " Gain 3 L") ;Bemassung und Beschriftung Gain Pfette 3 links ) (command "_dim" "_ver" 3lgdim2 3lgdim3 "_T" (strcat "<>" TEXT) 3lgdim4 "exit") ) (if(and(setq TEXT " Gain 1 R") ;Bemassung und Beschriftung Gain Pfette 1 rechts ) (command "_dim" "_ver" 1rgdim2 1rgdim3 "_T" (strcat "<>" TEXT) 1rgdim4 "exit") ) (if(and(setq TEXT " Gain 2 R") ;Bemassung und Beschriftung Gain unter Pfette 2 rechts ) (command "_dim" "_ver" 2rgdim2 2rgdim3 "_T" (strcat "<>" TEXT) 2rgdim4 "exit") ) (if(and(setq TEXT " Gain 3 R") ;Bemassung und Beschriftung Gain Pfette 3 rechts ) (command "_dim" "_ver" 3rgdim2 3rgdim3 "_T" (strcat "<>" TEXT) 3rgdim4 "exit") ) (command "dim" "ver" gdim1 gdim2 gdim4 "" ;Bemassung Post unter First "dim" "ver" 1lgdim1 1lgdim2 1lgdim4 "" ;Bemassung Hoehe Post unter Pfette 1 links "dim" "ver" 2lgdim1 2lgdim2 2lgdim4 "" ;Bemassung Hoehe Post unter Pfette 2 links "dim" "ver" 3lgdim1 3lgdim2 3lgdim4 "" ;Bemassung Hoehe Post unter Pfette 3 links "dim" "ver" 1rgdim1 1rgdim2 1rgdim4 "" ;Bemassung Hoehe Post unter Pfette 1 rechts "dim" "ver" 2rgdim1 2rgdim2 2rgdim4 "" ;Bemassung Hoehe Post unter Pfette 2 rechts "dim" "ver" 3rgdim1 3rgdim2 3rgdim4 "" ;Bemassung Hoehe Post unter Pfette 3 rechts ) (if(and(setq TEXT " Rise") ;Bemassung und Beschriftung der Steigungsecke ) (command "_dim" "_ver" STEdim1 STEdim2 "_T" (strcat "<>" TEXT) STEdim3 "exit") ) (if(and(setq TEXT " Run") ;Bemassung und Beschriftung der Steigungsecke ) (command "_dim" "_hor" STEdim4 STEdim5 "_T" (strcat "<>" TEXT) STEdim6 "exit") ) (princ) "exit" (initget "Yes No") (setq Finish(=(getkword "\nngo on with Enter or ESC::")"Yes")) ) (setvar "OSMODE" 1) ; setzt Objektfang auf 1 )