Unroller with surface problem...

Hello,

I want to unroll a polysurface and

I have a problem with this code in a VB component:

Dim Unroll As Unroller

Unroll = New Unroller(BrepList)

Unroll.ExplodeOutput = False
Unroll.RelativeTolerance = Tol

Unrolled = unroll.PerformUnroll(Nothing, Nothing, Nothing)

There is no result when I try it with the Surface in the "Surface to unroll.3dm" file

Can you help me?

Attachments:

Unroller.gh, 2 KB
Surface to unroll.3dm, 121 KB

Replies to This Discussion

Permalink Reply by Rémy Maurcot on August 2, 2012 at 9:35am

Charles,

cela marche bien chez moi (voir piéce jointe)

Pourrais tu faire ce genre de composant pour Flow Along Crv ?

Permalink Reply by THIERRY DE VILLE D'AVRAY on August 3, 2012 at 1:52am

Quelle version de grasshopper utilises-tu en ce moment?

Permalink Reply by Rémy Maurcot on August 3, 2012 at 2:08am

J'utilise la version 0.8066 et bientôt la 0.9005

Pense tu qu'il est possibe de faire un script gh de la commande glisser le long d'une courbe (FlowAlongCrv) ?
Merci de ta réponse, au fait sa va bien ?

Permalink Reply by THIERRY DE VILLE D'AVRAY on August 3, 2012 at 3:16am

Avec ce gh user on peut effectuer un "flow along a curve" mais ça passe par la commande Rhino...

ça va!

Je voyage un peu les WE d'été. L'été passe à une vitesse!

Attachments:

Flow.3dm, 79 KB
Flow.ghuser, 9 KB
Flow.gh, 8 KB

Permalink Reply by Rémy Maurcot on August 3, 2012 at 4:10am

Charles,

Pourrais tu modifier le code pour que la géometrie à glisser sois une courbe pas une brep.

Merci d'avanve

Permalink Reply by THIERRY DE VILLE D'AVRAY on August 3, 2012 at 3:17am

J'ai pas encore testé la 0.9005... Je crois qu'il y aura des problèmes de compatibilité... ça va demander un peu de travail...

Permalink Reply by Rémy Maurcot on August 3, 2012 at 3:19am

Oui c'est sur mais les cluster sont au top. Protegé optimisé.

Reste plus qu'a revoir toutes les définitions une à une !!!

Permalink Reply by Rémy Maurcot on August 3, 2012 at 4:12am

C'est OK j'y suis arriver seul:
'Add the objects to Rhino
Dim curve_id As Guid = doc.Objects.AddCurve(Crv)
Dim source_id As Guid = doc.Objects.AddCurve(source)
Dim target_id As Guid = doc.Objects.AddCurve(target)

'Create the command macro
Dim macro As String = String.Format( _
"!-_Flow _SelID ""{0}"" _Enter _Copy=_No _Stretch=_Yes _SelID ""{1}"" _SelID ""{2}""", _
curve_id, source_id, target_id)

'Run the macro
Rhino.RhinoApp.RunScript(macro, False)

'Harvest the deformed Brep from the Rhino document
Dim ref As New DocObjects.ObjRef(curve_id)
A = ref.Curve()

'Delete the objects from Rhino
doc.Objects.Delete(Curve_id, True)
doc.Objects.Delete(source_id, True)
doc.Objects.Delete(target_id, True)

Permalink Reply by THIERRY DE VILLE D'AVRAY on August 3, 2012 at 4:15am

Good!

Permalink Reply by THIERRY DE VILLE D'AVRAY on August 3, 2012 at 4:17am

Quand tu dis protégé optimisé c'est qu'on peut empêcher l'ouverture par un code?

Permalink Reply by Rémy Maurcot on August 3, 2012 at 4:20am

Optimisé en terme de ressouces machine, et protegé par u nmot de passe.
C'est hyper cool !!

Aparement les script vb dan sgrasshopper sont sensible au changement des géometrie dans rhino, cela t'es dejà arriver ?

Permalink Reply by THIERRY DE VILLE D'AVRAY on August 3, 2012 at 6:07am

Ils sont sensibles quand ils utilisent des macros rhinoscript en leur sein.