RS JoinSurfaces


#1

JoinSurfaces does not appear to work, I can replace it with "Rhino.Command (“Join”) and that works. (Yes, they are surfaces)

If lcase(extspec) = "igs" Then
  igsSelect = Rhino.LastCreatedObjects(True)
  Call Rhino.ObjectLayer(igsSelect, ParLayer)
  Call Rhino.JoinSurfaces(igsSelect,True)
  Call Rhino.UnselectAllObjects()
End If

Thanks,
Don


(Giulio Piacentino) #2

Hi Don, this script works here:

Call Main()
Sub Main()
	
	Dim srfs: srfs = Rhino.GetObjects()
	
	If IsArray(srfs) Then
		Call Rhino.JoinSurfaces(srfs, True)
	End If

End Sub

Is it possible that this is a tolerance issue? If I remember correctly, the Join commands uses the document tolerance. If it fails, it will try using double the document tolerance.
Otherwise, maybe, could you send a small sample (with 3dm file) that shows the problem?

Thanks!

Giulio

Giulio Piacentino
for Robert McNeel & Associates
giulio@mcneel.com


(Dale Fugier) #3

JoinSurfaces expects the surface (ids) in order. If you don’t have an order, use JoinSurfacesEx.

– Dale


#4

JoinSurfacesEx does not show up in the browser.

I’ll give that a try when I get back to the shop.

Thanks,
Don