Connecting dissimilar shapes
/*
I want to have the two figures connected with a skin of thickness T.
I am making an adapter to allow a round hose to fasten to an oblong tube.
I looked at skin in BOSL but could not make sense of it
Thank you
*/
include <BOSL2/std.scad> //or screws or threading
$fn=24;
Inch=25.4;
H=25;
Hm=20;
T = 2;
// house part in the wall
D = 74;
IDt = D;
IDb = IDt - 2T;
W = 126.5;
Wmt = W - IDt;
Wmb = W - IDb- 2T;
// dryer attachment
Dd = 103;
Hd = 25;
// top section
up(Hm)difference(){
union(){
cyl(h=H,d1=IDt,d2=IDt,anchor=BOTTOM);
right(Wmt) cyl(h=H,d1=IDt,d2=IDt,anchor=BOTTOM);
cuboid([Wmt,D,H],anchor=BOTTOM+LEFT);
}
cyl(h=H,d1=IDt-2T,d2=IDt-2T,anchor=BOTTOM);
right(Wmt)cyl(h=H,d1=IDt-2T,d2=IDt-2T,anchor=BOTTOM);
right(T)cuboid([Wmt-2T,D-2T,H],anchor=BOTTOM+LEFT);
}
// hose section
fwd((Dd-D)/2)right((W-D)/2) tube(h=Hd,od=Dd,wall=T,anchor=TOP);
Best regards,
Bob mailto:roosbob@wybatap.com
Something like this is a start:
$fn=24;
top = union([circle(d=IDt), right(Wmt,circle(d=IDt)),
rect([Wmt,D],anchor=LEFT)]);
bot = apply(fwd((Dd-D)/2)*right((W-D)/2),circle(d=Dd));
skin([bot,top], z=[0,Hm], slices=20,method="distance");
On Tue, Oct 15, 2024 at 11:31 PM Bob Roos via Discuss <
discuss@lists.openscad.org> wrote:
/*
I want to have the two figures connected with a skin of thickness T.
I am making an adapter to allow a round hose to fasten to an oblong tube.
I looked at skin in BOSL but could not make sense of it
Thank you
*/
include <BOSL2/std.scad> //or screws or threading
$fn=24;
Inch=25.4;
H=25;
Hm=20;
T = 2;
// house part in the wall
D = 74;
IDt = D;
IDb = IDt - 2T;
W = 126.5;
Wmt = W - IDt;
Wmb = W - IDb- 2T;
// dryer attachment
Dd = 103;
Hd = 25;
// top section
up(Hm)difference(){
union(){
cyl(h=H,d1=IDt,d2=IDt,anchor=BOTTOM);
right(Wmt) cyl(h=H,d1=IDt,d2=IDt,anchor=BOTTOM);
cuboid([Wmt,D,H],anchor=BOTTOM+LEFT);
}
cyl(h=H,d1=IDt-2T,d2=IDt-2T,anchor=BOTTOM);
right(Wmt)cyl(h=H,d1=IDt-2T,d2=IDt-2T,anchor=BOTTOM);
right(T)cuboid([Wmt-2T,D-2T,H],anchor=BOTTOM+LEFT);
}
// hose section
fwd((Dd-D)/2)right((W-D)/2) tube(h=Hd,od=Dd,wall=T,anchor=TOP);
Best regards,
Bob mailto:roosbob@wybatap.com
OpenSCAD mailing list
To unsubscribe send an email to discuss-leave@lists.openscad.org
Hi Adrian,
Thank you very much.
Here is the final product:
include <BOSL2/std.scad> //or screws or threading
$fn=24;//96;
Inch=25.4;
H=25;
Hm=40;
T = 2;
// house part in the wall
D = 74;
IDt = D;
IDb = IDt - 2T;
W = 126.5;
Wmt = W - IDt;
Wmb = W - IDb- 2T;
// dryer attachment
Dd = 103-2T;
Hd = 25;
// top section
up(Hm)difference(){
union(){
cyl(h=H,d1=IDt,d2=IDt,anchor=BOTTOM);
right(Wmt) cyl(h=H,d1=IDt,d2=IDt,anchor=BOTTOM);
cuboid([Wmt,D,H],anchor=BOTTOM+LEFT);
}
cyl(h=H,d1=IDt-2T,d2=IDt-2T,anchor=BOTTOM);
right(Wmt)cyl(h=H,d1=IDt-2T,d2=IDt-2T,anchor=BOTTOM);
right(T)cuboid([Wmt-2T,D-2T,H],anchor=BOTTOM+LEFT);
}
// hose section
fwd((Dd-D)/2)right((W-D)/2) tube(h=Hd,od=Dd,wall=T,anchor=TOP);
// connection section
top_o = union([circle(d=IDt), right(Wmt,circle(d=IDt)), rect([Wmt,D],anchor=LEFT)]);
bot_o = apply(fwd((Dd-D)/2)right((W-D)/2),circle(d=Dd));
top_i = union([circle(d=IDt-2T), right(Wmt,circle(d=IDt-2T)), rect([Wmt-2T,D-2T],anchor=LEFT)]);
bot_i = apply(fwd((Dd-D)/2)right((W-D)/2),circle(d=Dd-2T));
difference(){
skin([bot_o,top_o], z=[0,Hm], slices=20,method="distance");
skin([bot_i,top_i], z=[0,Hm], slices=20,method="distance");
}
for (i=[0:1:2]){down(i*Hm/5+3)fwd((Dd-D)/2)right((W-D)/2)tube(id=Dd,wall=T,h=2,anchor=TOP);}
Tuesday, October 15, 2024, 11:56:48 PM, you wrote:
Something like this is a start:
$fn=24;top = union([circle(d=IDt), right(Wmt,circle(d=IDt)), rect([Wmt,D],anchor=LEFT)]);
bot = apply(fwd((Dd-D)/2)*right((W-D)/2),circle(d=Dd));
skin([bot,top], z=[0,Hm], slices=20,method="distance");
On Tue, Oct 15, 2024 at 11:31 PM Bob Roos via Discuss discuss@lists.openscad.org wrote:
/*
I want to have the two figures connected with a skin of thickness T.
I am making an adapter to allow a round hose to fasten to an oblong tube.
I looked at skin in BOSL but could not make sense of it
Thank you
*/
include <BOSL2/std.scad> //or screws or threading
$fn=24;
Inch=25.4;
H=25;
Hm=20;
T = 2;
// house part in the wall
D = 74;
IDt = D;
IDb = IDt - 2T;
W = 126.5;
Wmt = W - IDt;
Wmb = W - IDb- 2T;
// dryer attachment
Dd = 103;
Hd = 25;
// top section
up(Hm)difference(){
union(){
cyl(h=H,d1=IDt,d2=IDt,anchor=BOTTOM);
right(Wmt) cyl(h=H,d1=IDt,d2=IDt,anchor=BOTTOM);
cuboid([Wmt,D,H],anchor=BOTTOM+LEFT);
}
cyl(h=H,d1=IDt-2T,d2=IDt-2T,anchor=BOTTOM);
right(Wmt)cyl(h=H,d1=IDt-2T,d2=IDt-2T,anchor=BOTTOM);
right(T)cuboid([Wmt-2T,D-2T,H],anchor=BOTTOM+LEFT);
}
// hose section
fwd((Dd-D)/2)right((W-D)/2) tube(h=Hd,od=Dd,wall=T,anchor=TOP);
--
have Fun,
Bob mailto:roosbob@wybatap.com
Bob,
Thank you for posting your final product. This reminds me of a 3D printed
hose to a ventilation outlet thingy I got for my laser cutter. If the one
I bought does not work, I will know where to go to get something close ;-)
As a note, there is a comment near the top that one of the parts is screwed
or threaded. It looks like there are 3 rings, but I do not see any slop or
ends to what I would expect for threads. Is this intentional?
EBo --
On Wed, Oct 16, 2024 at 4:34 AM Bob Roos via Discuss <
discuss@lists.openscad.org> wrote:
Hi Adrian,
Thank you very much.
Here is the final product:
include <BOSL2/std.scad> //or screws or threading
$fn=24;//96;
Inch=25.4;
H=25;
Hm=40;
T = 2;
// house part in the wall
D = 74;
IDt = D;
IDb = IDt - 2*T;
W = 126.5;
Wmt = W - IDt;
Wmb = W - IDb- 2*T;
// dryer attachment
Dd = 103-2*T;
Hd = 25;
// top section
up(Hm)difference(){
union(){
cyl(h=H,d1=IDt,d2=IDt,anchor=BOTTOM);
right(Wmt) cyl(h=H,d1=IDt,d2=IDt,anchor=BOTTOM);
cuboid([Wmt,D,H],anchor=BOTTOM+LEFT);
}
cyl(h=H,d1=IDt-2*T,d2=IDt-2*T,anchor=BOTTOM);
right(Wmt)cyl(h=H,d1=IDt-2*T,d2=IDt-2*T,anchor=BOTTOM);
right(T)cuboid([Wmt-2*T,D-2*T,H],anchor=BOTTOM+LEFT);
}
// hose section
fwd((Dd-D)/2)right((W-D)/2) tube(h=Hd,od=Dd,wall=T,anchor=TOP);
// connection section
top_o = union([circle(d=IDt), right(Wmt,circle(d=IDt)),
rect([Wmt,D],anchor=LEFT)]);
bot_o = apply(fwd((Dd-D)/2)*right((W-D)/2),circle(d=Dd));
top_i = union([circle(d=IDt-2T), right(Wmt,circle(d=IDt-2T)),
rect([Wmt-2T,D-2T],anchor=LEFT)]);
bot_i = apply(fwd((Dd-D)/2)right((W-D)/2),circle(d=Dd-2T));
difference(){
skin([bot_o,top_o], z=[0,Hm], slices=20,method="distance");
skin([bot_i,top_i], z=[0,Hm], slices=20,method="distance");
}
for
(i=[0:1:2]){down(i*Hm/5+3)fwd((Dd-D)/2)right((W-D)/2)tube(id=Dd,wall=T,h=2,anchor=TOP);}
Tuesday, October 15, 2024, 11:56:48 PM, you wrote:
Something like this is a start:
$fn=24;
top = union([circle(d=IDt), right(Wmt,circle(d=IDt)),
rect([Wmt,D],anchor=LEFT)]);
bot = apply(fwd((Dd-D)/2)*right((W-D)/2),circle(d=Dd));
skin([bot,top], z=[0,Hm], slices=20,method="distance");
On Tue, Oct 15, 2024 at 11:31 PM Bob Roos via Discuss <
discuss@lists.openscad.org> wrote:
/*
I want to have the two figures connected with a skin of thickness T.
I am making an adapter to allow a round hose to fasten to an oblong
tube.
I looked at skin in BOSL but could not make sense of it
Thank you
*/
include <BOSL2/std.scad> //or screws or threading
$fn=24;
Inch=25.4;
H=25;
Hm=20;
T = 2;
// house part in the wall
D = 74;
IDt = D;
IDb = IDt - 2T;
W = 126.5;
Wmt = W - IDt;
Wmb = W - IDb- 2T;
// dryer attachment
Dd = 103;
Hd = 25;
// top section
up(Hm)difference(){
union(){
cyl(h=H,d1=IDt,d2=IDt,anchor=BOTTOM);
right(Wmt) cyl(h=H,d1=IDt,d2=IDt,anchor=BOTTOM);
cuboid([Wmt,D,H],anchor=BOTTOM+LEFT);
}
cyl(h=H,d1=IDt-2T,d2=IDt-2T,anchor=BOTTOM);
right(Wmt)cyl(h=H,d1=IDt-2T,d2=IDt-2T,anchor=BOTTOM);
right(T)cuboid([Wmt-2T,D-2T,H],anchor=BOTTOM+LEFT);
}
// hose section
fwd((Dd-D)/2)right((W-D)/2) tube(h=Hd,od=Dd,wall=T,anchor=TOP);
Best regards,
Bob mailto:roosbob@wybatap.com
OpenSCAD mailing list
To unsubscribe send an email to discuss-leave@lists.openscad.org
--
have Fun,
Bob mailto:roosbob@wybatap.com
roosbob@wybatap.com
OpenSCAD mailing list
To unsubscribe send an email to discuss-leave@lists.openscad.org