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
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?