Wir schätzen Ihren Input! Bitte nehmen Sie an der Umfrage zu Archicad 28 Startbildschirm und Lerninhalte/Schnell-Tutorials teil
am 2023-04-13 07:09 PM
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
"Dach":
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! Kopiert aus dem GDL-Handbuch und vereinfacht, damit man geistig mal durchsteigt:
!
!!a = 0 : y = 8
!!x = 6
!!OG = Ortgangform !!!OG = Traufenform: 0 = grad runter, 1=rechtwinkelig, 2=waagrecht
!!
!
!
!POLYROOF{3} mat,1, 1, 5, 5,
!0, 0.1, 0.3, 1, 2,
!0, y, 0, 45, 0, mat, mat, !! Beginn Kontur 1
!0, 0, 0, 45, 0, mat, mat,
!x, 0, 0, 45, 0, mat, mat,
!x, y, 0, 45, 0, mat, mat,
!0, y, -1, 45, 0, mat, mat, !! Ende Kontur 1
!0, y, 0, OG, 0, mat, !! Beginn Kontur 2
!0, 0, 0, OG, 0, mat,
!x, 0, 0, OG, 0, mat,
!x, y, 0, OG, 0, mat,
!0, y, -1, OG, 0, mat !! Ende Kontur 2
!
! STYLE "3d". !! zur visuellen Kontrolle
For j=1 to points
!!! Koordinatenübergabe an den Stack
!!! Erste Kontur:
put x[j] !!! Koordinatenliste
put y[j]
! addx x[j] !!! nur zum Testen ob es richtig übergibt
! addy y[j]
! if j < points then addz Hoehenvektor+0.1
! if j = points then addz Hoehenvektor+0.2
! if j < points then text 0.001, 0, "OK"
! if j = points then text 0.001, 0, "Ende"
! circle 0.2
! del 3
if j < points then put 0
if j = points then put -1
! if j < points-1 then put Dachwinkel !!! Versuch einer Giebelseite..
! if j = points-1 then put 90
put Dachwinkel
put 0
put dmat
put dmat
Next j
For j=1 to points
!!! Koordinatenübergabe an den Stack
!!! 2. Kontur:
put x[j] !!! Koordinatenliste
put y[j]
! addx x[j] !!! nur zum Testen ob es richtig übergibt
! addy y[j]
! if j < points then addz Hoehenvektor+1.1
! if j = points then addz Hoehenvektor+1.2
! if j < points then text 0.001, 0, "OK"
! if j = points then text 0.001, 0, "Ende"
! circle 0.2
! del 3
if j < points then put 0
if j = points then put -1
put OG !OG = Ortgangform !!!OG = Traufenform: 0 = grad runter, 1=rechtwinkelig, 2=waagrecht
put 0
put dmat
Next j
POLYROOF{3} dmat,1, 1, points, points,
0, 0.1, 0.3, 0, 0,
get (nsp)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
return
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!