Wir schätzen Ihren Input! Bitte nehmen Sie an der Umfrage zu Archicad 28 Startbildschirm und Lerninhalte/Schnell-Tutorials teil
am 2023-02-08 04:34 PM
am 2023-02-21 08:39 AM
am 2023-02-21 11:33 AM
...und ohne Code nicht wirklich zu beantworten.Ich will das Forum, hier ja auch nicht überstrapazieren...
!model solid
!SECT_FILL schr, -1, 25, 18
! Schienen
building_material schm
material msch
addx -a/2
addz -2*zzyzx
!unten
addy -schu
BLOCK a, schu, zzyzx
DEL 1
! oben
addy b-scho
GROUP "schiene_oben"
PRISM_ 4, 2*zzyzx,
0, 0, 15,
A, 0, 15,
A, scho, 15,
0, scho, 15
ENDGROUP
DEL TOP
addx -a/2
addz -zzyzx
! FESTVERGLASUNG 1
! Rahmen 1
GROUP "rahmen"
building_material rm
material mp
PEN penr
addy -schu
PRISM_ 10, zzyzx,
0, 0, 15,
a/4+pb/2, 0, 15,
a/4+pb/2, b-scho+schu, 15,
0, b-scho+schu, 15,
0, 0, -1,
pb, schu+sh, 15,
A/4-pb/2, schu+sh, 15,
A/4-pb/2, B-scho+schu, 15,
pb, B-scho+schu, 15,
pb, schu+sh, -1
ENDGROUP
GROUP "glas"
! Glas 1
building_material bmg
PEN peng
add pb-ge, sh-ge, (zzyzx-gd)/2
PRISM 4, gd,
0, 0,
A/4-1.5*pb+2*ge, 0,
A/4-1.5*pb+2*ge, B-scho-sh+2*ge,
0, B-scho-sh+2*ge
del 1
ENDGROUP
result_1=SUBGROUP ("rahmen", "glas")
!result_2=ADDGROUP ("rahmen", "glas")
PLACEGROUP result_1
!PLACEGROUP "schiene_oben"
PLACEGROUP "glas"
KILLGROUP "rahmen"
!KILLGROUP "schiene_oben"
!KILLGROUP "glas"
addx a/4-pb/2
PEN penr
RECT pb, b-scho
addz -zzyzx-fa
! FLÜGEL 1
! Rahmen
model solid
GROUP "rahmen_2"
building_material rm
material mp
PRISM_ 10, zzyzx,
0, 0, 15,
a/4+pb/2, 0, 15,
a/4+pb/2, b-scho, 15,
0, b-scho, 15,
0, 0, -1,
pb, pb, 15,
A/4-pb/2, pb, 15,
A/4-pb/2, B-scho-pb, 15,
pb, B-scho-pb, 15,
pb, pb, -1
ENDGROUP
GROUP "glas_2"
! Glas 2
building_material bmg
PEN peng
add pb-ge, pb-ge, (zzyzx-gd)/2
PRISM 4, gd,
0, 0,
A/4-1.5*pb+2*ge, 0,
A/4-1.5*pb+2*ge, B-scho-2*pb+2*ge,
0, B-scho-2*pb+2*ge
del 1
ENDGROUP
result_3=SUBGROUP("rahmen_2", "glas_2")
!result_4=ADDGROUP("rahmen_2", "glas_2")
PLACEGROUP result_3
PLACEGROUP "glas_2"
KILLGROUP "rahmen_2"
KILLGROUP "glas_2"
addx A/4+pb/2
addz zzyzx
rotY 90
PEN penr
RECT zzyzx, b-scho
DEL 2
! FLÜGEL 2
! Rahmen
GROUP "rahmen_3"
building_material rm
material mp
PRISM_ 10, zzyzx,
0, 0, 15,
a/4+pb/2, 0, 15,
a/4+pb/2, b-scho, 15,
0, b-scho, 15,
0, 0, -1,
pb, pb, 15,
A/4-pb/2, pb, 15,
A/4-pb/2, B-scho-pb, 15,
pb, B-scho-pb, 15,
pb, pb, -1
ENDGROUP
GROUP "glas_3"
! Glas 3
PEN peng
building_material bmg
add pb-ge, pb-ge, (zzyzx-gd)/2
PRISM 4, gd,
0, 0,
A/4-1.5*pb+2*ge, 0,
A/4-1.5*pb+2*ge, B-scho-2*pb+2*ge,
0, B-scho-2*pb+2*ge
del 1
ENDGROUP
result_5=SUBGROUP( "rahmen_3", "glas_3")
!result_6=ADDGROUP( "rahmen_3", "glas_3")
PLACEGROUP result_5
PLACEGROUP "glas_3"
KILLGROUP "rahmen_3"
KILLGROUP "glas_3"
addx A/4-pb/2
addz zzyzx+fa
PEN penr
RECT pb, b-scho
addy -schu
! FEST 2
! Rahmen 2
GROUP "rahmen_4"
building_material rm
material mp
PRISM_ 10, zzyzx,
0, 0, 15,
a/4+pb/2, 0, 15,
a/4+pb/2, b-scho+schu, 15,
0, b-scho+schu, 15,
0, 0, -1,
pb, schu+sh, 15,
A/4-pb/2, schu+sh, 15,
A/4-pb/2, B-scho+schu, 15,
pb, B-scho+schu, 15,
pb, schu+sh, -1
ENDGROUP
GROUP "glas_4"
! Glas
building_material bmg
PEN peng
add pb-ge, schu+sh-ge, (zzyzx-gd)/2
PRISM 4, gd,
0, 0,
A/4-1.5*pb+2*ge, 0,
A/4-1.5*pb+2*ge, B-sh-scho+2*ge,
0, B-sh-scho+2*ge
del 1
ENDGROUP
result_7=SUBGROUP( "rahmen_4", "glas_4")
!result_8=ADDGROUP( "rahmen_4", "glas_4")
PLACEGROUP result_7
PLACEGROUP "glas_4"
KILLGROUP "rahmen_4"
DEL TOP
ADD -A/2, B-scho, -2*zzyzx
!result_10=ADDGROUP( "glas", "glas_4")
result_9=SUBGROUP ("schiene_oben", "glas")
result_10=SUBGROUP ("schiene_oben", "glas_4")
PLACEGROUP result_9
!PLACEGROUP result_10
KILLGROUP "glas"
KILLGROUP "glas_4"
KILLGROUP "schiene_oben"
am 2023-02-27 11:18 AM
am 2023-03-10 11:20 AM
am 2023-03-10 12:26 PM
am 2023-03-10 12:28 PM