Damien posted a script a while ago that used app.RunScript(), it was
like a revelation :P. There's probably some better way to select the
points and polysurfaces of a document without actually calling the
rhino command.

I haven't used paneling tools too much, but I'm not sure what can be
done with it that can't be done with grasshopper.

On Apr 26, 9:26 pm, taz <tzez...@gmail.com> wrote:
> visose,
>
> That's pretty cool.  I didn't realize you could implement command line
> macros in a VB component, even if it is a rough way to do it.
>
> I saw Raaja's post for renumbering points for input to paneling tools,
> but I imagine once you know your paneling tools routine a similar VB
> macro could be written to tweak settings.
>
> -taz
>
> On Apr 26, 5:37 am, visose <vic...@gmail.com> wrote:
>
> > You can also run the '3dvoronoi' command of the 'point set
> > reconstruction' plugin from a scripting component in a macro kind of
> > way.
> > This really crude example does the following: Selects all points in
> > the document, creates 3d voronoi cells as polysurfaces, select all the
> > polysurfaces in the document, adds them to an 'onbrep' list, deletes
> > the polysurfaces from the document, outputs the onbrep list. For some
> > reason, after dragging the points, the new voronoi cells aren't
> > created, you have to press the 'play' button after every drag. This is
> > really crude automatization and hopefully someone can improve on this.
>
> >       doc.UnselectAll()
> >       app.RunScript("!-_selpt")
> >       app.RunScript("-_3dvoronoi _enter _Polysurfaces")
> >       doc.UnselectAll
> >       app.RunScript("-_SelClosedPolysrf")
>
> >       Dim go As New MRhinoGetObject()
> >       go.EnablePreSelect(True)
> >       go.EnablePostSelect(False)
> >       go.GetObjects(0, 0)
>
> >       app.RunScript("!-_delete")
>
> >       Dim obj_list As New List(Of onbrep)
> >       For i As Integer = 0 To go.ObjectCount() - 1
> >         Dim objref As IRhinoObjRef = go.Object(i)
> >         Dim objb As onbrep = objref.brep()
> >         obj_list.Add(objb)
> >       Next i
>
> >       a = obj_list
>
> > On Apr 19, 5:44 pm, Dimitrie <didimit...@gmail.com> wrote:
>
> > >http://qhull.org/
>
> > > only i'm fucking myself up while trying to get the calls right from a
> > > script component. it won't probably be that fast since it's quite an
> > > underhanded approach...
>
> > > there's alsohttp://tetgen.berlios.de/butican't compile it in a
> > > worthwhile dll.
>
> > > Speaking of, i have a question for david: if i have a non .net
> > > assembly file will it work if referenced? (sorry if this a stupid
> > > question but i'm not really a pro).

Reply via email to