Hallo Leute,
hier mal die neue Fensterbank aus 2018 erweitert um halbrund für runde Fenster.
Wer's braucht...
Im Allplan Connect Forum tauschen sich Anwender aus, geben wertvolle Tipps oder beraten sich bei ganz konkreten Aufgabenstellungen − auch international.
Und damit wirklich keine Frage unbeantwortet bleibt, unterstützen die Mitarbeiter des Technischen Supports ebenfalls aktiv das Forum.
Melden Sie sich jetzt an und diskutieren Sie mit!
Hallo Leute,
hier mal die neue Fensterbank aus 2018 erweitert um halbrund für runde Fenster.
Wer's braucht...
It's easy: Do not "abwinkeln" !
.....
GOSUB "ins_hnds"
RESTORE 3
IF hgt = wdt THEN
IF maxx < REF_Y THEN
ROTY 90
!PRISM 7 , ref_x ,
CUTPOLY 7 ,
-REF_Z , REF_Y + REF_POS_B ,
-REF_Z , maxx ,
0 , maxx ,
0 , -REF_POS_A ,
-miny , -REF_POS_A ,
-miny , REF_Y + REF_POS_B ,
-REF_Z , REF_Y + REF_POS_B
RESTORE 1
ENDIF
IF maxx = REF_Y THEN
!ROTY 90
!PRISM 7 , ref_x ,
!CUTPOLY 7 ,
!-ref_z , REF_Y + REF_POS_B ,
!-ref_z , maxx ,
!0 , maxx ,
!0 , -REF_POS_A ,
!-miny , -REF_POS_A ,
!-miny , REF_Y + REF_POS_B ,
!-ref_z , REF_Y + REF_POS_B
!RESTORE 1
ENDIF
ENDIF
IF hgt <> wdt THEN
ROTY 90
!PRISM 7 , ref_x ,
CUTPOLY 7 ,
-REF_Z , REF_Y + REF_POS_B ,
-REF_Z , maxx ,
0 , maxx ,
0 , -REF_POS_A ,
-miny , -REF_POS_A ,
-miny , REF_Y + REF_POS_B ,
-REF_Z , REF_Y + REF_POS_B
RESTORE 1
ENDIF
IF offs_l > 0 THEN !NOT cut_l THEN
......
Forget two IF's!
Only one little change is needed:
Replace "REF_POS_B" with "1"
ROTY 90 !PRISM 7 , ref_x , CUTPOLY 7 , -ref_z , REF_Y + 1 ,!REF_POS_B , -ref_z , maxx , 0 , maxx , 0 , -REF_POS_A , -miny , -REF_POS_A , -miny , REF_Y + 1 ,!REF_POS_B , -ref_z , REF_Y + 1 !REF_POS_B RESTORE 1
Background:
With REF_Y == maxx and REF_POS_B = 0 the first and the second point after CUTPOLY lies on the same position!
...and this is not a valid polygon for cutting!
Nemo,
es gibt wichtigere Baustellen als Fensterbänke und Bauteile in jeglich erdenklichen Formen
Mit besten Grüßen!
Jürgen
Allplan Ingenieurbau V10 bis V2025