Structural Tube (Diagrid) for Revit using Dynamo

1

I’m really really new to dynamo so I only have a rough Idea of how to do this.
I’m trying to create a diagrid similar to this picture (https://i.ytimg.com/vi/WjrrNCoB7yM/maxresdefault.jpg) in Dynamo.
It’s a simple diagrid that goes along a cylinder of uniform radius throughout its height.
This is the only workflow I can think of.
-Create circle
-Extract points, use slider to change number of points
-copy the circle a certain distance, rotate the points by 45 degrees
-create lists out of the coordinates of the points
-finally, use Adaptive component byPoints

I’ve been browsing through the nodes but I can’t find one that can extract points from a circle.

Thanks in advance.

2

point.gif1189×702 129 KB

3

This might help you get started …

20160704-5.png856×362 16.3 KB

4

Thanks for the replies. I’ve managed to create the lines for the diagrid however, I’m having problems with the creation of the adaptive components. (It probably has to do with the creation of my lists).

Untitled.png1366×650 95 KB

I realize this is a crude diagrid because the diagonal members are straight instead of curved along the cylinder. Any tips on this?

I’m off to sleep for now. Thanks in advance again.
Home.dyn (16.7 KB)

5

diagrid-ds.dyn (4.4 KB)

20160704-10a.png1022×296 30.7 KB 

cir1=Circle.ByCenterPointRadius(Point.Origin(),r);
pnt1=cir1.PointsAtEqualSegmentLength(d);
pnt2=pnt1.Translate(Vector.ZAxis(),h);
pnt3=List.ShiftIndices(pnt2,{1,-1});
pnt4=Transpose({pnt1,pnt3[0]});
pnt5=Transpose({pnt1,pnt3[1]});
pnt6=List.Join({pnt4,pnt5});
lin1=Line.ByBestFitThroughPoints(pnt6);
adp=AdaptiveComponent.ByPoints(pnt6,a);
1 Like
6

diagrid.dyn (12.9 KB)

20160704-10.png1722×608 70.8 KB

7

@Der_Jon

here’s a suggestion :

1703×678 59.8 KB
<a class=“attachment”

1507×746 130 KB

href=“//cdck-file-uploads-global.s3.dualstack.us-west-2.amazonaws.com/business6/uploads/dynamobim/original/2X/a/a71c2bd318e9c04ad29516a149ef1d71c5ecf1d7.dyn”>diagrid.dyn (15.2 KB)

9

I’m having some minor problems. I’m not really used to the way Dynamo works (I’m more comfortable with GH).
How do I copy the diagrid at specified heights? I was able to do it for the circles but for the lines, it gets messed up. I guess this could be done in Grasshopper using geometric primitives but Dynamo doesn’t have those yet right?

Capture.JPG1197×538 78.2 KB

10

Hi,

Connect your Diagrid geometry to “Geometry.Translate” Geometry.

11

I tried that. It messed up the lines (copied each line at a different level). I think it has to do with the way the lines were created. (best fit).
Home.dyn (32.9 KB)

Capture.JPG555×544 56.9 KB

12

Change Lacing to “Cross Product”:

Untitled.png1405×703 219 KB

13

Thank you very much!
I guess I’m ok now.

14

You can also convert to polycurves using “Polycurve.ByJoinedCurves” before copying.

Untitled.png1194×715 198 KB

15

diagrid-ds-1.dyn (5.6 KB)

20160705-2.png982×672 61 KB 

//Center Point: c
//Radius: r
//Number of Divisions: d
//Level Height: h
//Number of Levels: n
cir1=Circle.ByCenterPointRadius(c,r);
pnt1=cir1.PointsAtEqualSegmentLength(d);
pnt2=pnt1.Translate(Vector.ZAxis(),h);
pnt3=List.ShiftIndices(pnt2,{1,-1});
pnt4=Transpose({pnt1,pnt3[0]});
pnt5=Transpose({pnt1,pnt3[1]});
pnt6=List.Join({pnt4,pnt5});
lin1=Line.ByBestFitThroughPoints(pnt6);
cyl1=cir1.Extrude(Vector.ZAxis(),h);
dir1=Vector.ByTwoPoints(c,lin1.PointAtParameter(0.5));
lin2=RemoveIfNot(lin1.Project(cyl1,dir1)<1>,"Ellipse");
lin3=Flatten(lin2)<1>.Translate(Vector.ZAxis(),h..n*h..h);
1 Like