Help with a VB Component - please -

Replies to This Discussion

Permalink Reply by Raul Matagringo on December 3, 2012 at 2:16am

Hi,

how about this one

Permalink Reply by Mauro on December 3, 2012 at 6:46am

Thanks Raul,

I appreciate your help,

What I am looking for, is actually a VB script  to attach planes to point.

Permalink Reply by Raul Matagringo on December 3, 2012 at 10:15am

To make the planes you can do like this:

private void RunScript(int Start, double Delta, double End, Brep B, ref object Points, ref object Planes, ref object Areas)
{

List<Point3d> pnts = new List<Point3d>();

for (int i = Start; i < End; i++)
{
Point3d p = new Point3d(0, 0, i + Delta);
pnts.Add(p);
}

List<Plane> planes = new List<Plane>();

Vector3d v = new Vector3d(0, 0, 1);

foreach (Point3d my_pnt in pnts)
{
Plane pl = new Plane(my_pnt, v);
planes.Add(pl);
}

Points = pnts;
Planes = planes;
}

Sorry, its C# but its almost the same...

Permalink Reply by Mauro on December 3, 2012 at 8:02pm

Thank you!

Permalink Reply by Yasser Hafizs on December 3, 2012 at 1:37pm

Edit : To make the planes with brep

Private Sub RunScript(ByVal B As Brep, ByVal N As Integer, ByRef A As Object)
Dim F0 As Surface = B.Faces(0)
Dim F1 As surface = B.Faces(1)
Dim P1 As Point3d = F0.PointAt(0, 0)
Dim P2 As Point3d = F1.PointAt(0, 0)
Dim Dist As Double = P1.DistanceTo(P2) / N

Dim Pl As New List(Of Plane)
For i As Integer = 0 To N Step 1
Dim Pt As New Point3d(P2.X, P2.Y, P2.Z + i * dist)
Dim V As New Vector3d(0, 0, 1)
Dim Plane As New Plane(Pt, V)
Pl.Add(Plane)
Next
A = Pl
End Sub

Permalink Reply by Mauro on December 3, 2012 at 8:39pm

Thanks a lot Yasser,

just a question.

Can you tell me why you are Declare plane 2 times 

1. Dim Pl As New List(Of Plane)

2. Dim Plane As New Plane(Pt, V)

One it won't be enough?

Thanks 

M

Permalink Reply by David Rutten on December 4, 2012 at 3:56am

Technically yes, instead of:

Dim Plane As New Plane(Pt, V)

Pl.Add(Plane)

 

you could write:

 

Pl.Add(New Plane(Pt, V))

 

There are however good reasons for not putting too much on a single line of code. Readability being the most important one. It's also easier to debug code that doesn't do too much all in one go.

--

David Rutten

david@mcneel.com

Poprad, Slovakia

Permalink Reply by Mauro on December 4, 2012 at 11:23am

Thanks David for your input.

M

Permalink Reply by Yasser Hafizs on December 4, 2012 at 11:51am

David, I have one question,

I can't figured it out, how to manage 1-dimensional array?

i.e. same as Mauro question above (Brep.CreateContourCurves Method)

Dim Crv As New List (Of Curve())

Dim Cls As Curve()
Cls = Rhino.Geometry.Brep.CreateContourCurves(B, Plane)
Crv.Add(Cls)

 

The output result none : "Rhino.Geometry.Curve[]"

Thanks

Permalink Reply by David Rutten on December 4, 2012 at 2:37pm

Since you're adding an array, you need to call AddRange() instead of Add().

--

David Rutten

david@mcneel.com

Poprad, Slovakia

Permalink Reply by Yasser Hafizs on December 4, 2012 at 3:53pm

Aha, it works! Thanks a lot David