pull to surface

Replies to This Discussion

Permalink Reply by morteza farhadian dehkordi on December 22, 2010 at 5:19am

hello again ,,, try this in Old VB

    If bln Then

      Dim mObj As New MRhinoCurveObject
      mObj = doc.AddCurveObject(Crv)
      Dim nObj As New MrhinoSurfaceObject
      nObj = doc.AddSurfaceObject(srf)

      doc.UnselectAll
      mObj.Select()

      app.RunScript("_-Pull " & ( nObj.Select()))
      nObj.Select()
      app.RunScript("_Enter")
      'app.RunScript("_delete")
    End If

Permalink Reply by morteza farhadian dehkordi on December 22, 2010 at 5:20am

this is file

Attachments:

• pull.ghx, 29 KB

Permalink Reply by CY.Wen on December 22, 2010 at 6:53pm

thank you!

but i have another problem,i want any add the curve on surface to the document but not the

origianl objects,how can i do ?

Permalink Reply by CY.Wen on December 22, 2010 at 8:19pm

And how can i get the new create object and assign it to a variable?

thanks again!