Allplan Forum: Fensterbank rund

Nemo

16.03.2018 - 11:10 *

Hallo Leute,

hier mal die neue Fensterbank aus 2018 erweitert um halbrund für runde Fenster.

Wer's braucht...

Přílohy (2)

Type: image/png

Staženo 331

Size: 211,74 KiB

Fensterbank_rund.smt

Type: application/xml

Staženo 1656

Size: 100,30 KiB

21 - 28 (28)

Danilos

06.04.2020 - 18:21

Citoval Nemo

Das ist bei einer Fensterbank mit beliebigem polygonalen Querschnitt nicht so ganz einfach möglich!
Aber Du kannst es probieren:
1. Min-Max-Box der Polygon-Punkte errechnen
2. X-Wert ist die gesuchte Größe
-----------------------------------------------------------
This is not easily possible on a windowsill with any polygonal cross-section!
But you can try it:
1. calculate min-max box of the polygon points
2. x-value is the size you are looking for

Thank you Nemo....your new smartpart it's good! Goodbye

Danilos

14.04.2020 - 07:39

Citoval Nemo

Hi Nemo, I hope you spent a happy Easter ... sorry if I disturb you another time. It's possible in your smartpart fensterbank to make sure to eliminate the two parts in purple when doing "abwinkeln". I have tried in 3d script (put_tube_pnts) but I have not succeeded. Thank you if you want give me indication.

Přílohy (1)

Type: image/jpeg

Staženo 29

Size: 155,98 KiB

Nemo

14.04.2020 - 09:27 *

It's easy: Do not "abwinkeln" !

Přílohy (1)

Fenstersims.smt

Type: text/xml

Staženo 795

Size: 51,63 KiB

Danilos

15.04.2020 - 07:00

Citoval Nemo

It's easy: Do not "abwinkeln" !

Hi Nemo, unfortunately or luckily I love the "abwinkeln" . Jokes aside, I thank you very much for new help. The smartpart is now perfect (for me). Thanks again.

Danilos

16.04.2020 - 12:21

Citoval Nemo

It's easy: Do not "abwinkeln" !

Hi Nemo, I made a change in 3d script of your smartpart (see script below) because, I saw that when wdt = hgt and maxx = ref_y, the smartpart disappears in 3d. With this change it seems to me that it no longer disappears. If you want, try to verify yourself.

.....
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
......

Nemo

16.04.2020 - 16:24 *

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!

Allplan_er

16.04.2020 - 17:47

Nemo,

es gibt wichtigere Baustellen als Fensterbänke und Bauteile in jeglich erdenklichen Formen

Gruß Jürgen
Allplan V10 bis V2024

Danilos

17.04.2020 - 07:17

Citoval Nemo

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!

Hi Nemo, thanks for your information ... I had no doubts that you had a better solution! Goodbye.

21 - 28 (28)