I encountered a strange surface fillet problem today… The Rhino 3dm file contains three planes, which need to be filleted. The bottom and right plane work, the bottom and left plane don’t, not when I try to fillet after the fillet right, and not even when I try to fillet the left plane first… Trying it manually on the command line and manually selecting the surfaces works fine however, just not in the script… Anything special with the left side plane?
Anyone an idea? Many thanks in advance…
PlanesFillet.3dm (37.2 KB)
I tried the following script:
Sub Main() Dim idPlaneLeft, idPlaneRight, idPlaneBottom, arrTemp If Not isnull(rhino.allobjects) Then rhino.DeleteObjects rhino.allobjects End If 'import and assign objects; adjust path to refer to the file above Rhino.Command "_Import D:\UserData\PlanesFillet.3dm" arrTemp = rhino.allobjects idPlaneLeft = arrTemp(0) idPlaneRight = arrTemp(2) idPlaneBottom = arrTemp(1) 'fillet right and bottom plane Rhino.Command "_SelNone" Rhino.Command "_FilletSrf _R 45 _SelID " & idPlaneRight & " _SelID " & idPlaneBottom arrTemp = Rhino.LastCreatedObjects 'fillet left and bottom plane Rhino.ObjectColor idPlaneLeft, RGB(255, 255, 0) Rhino.ObjectColor arrTemp(0), RGB(255, 255, 0) Rhino.Command "_SelNone" Rhino.Command "_FilletSrf _R 45 _SelID " & idPlaneLeft & " _SelID " & arrTemp(0) End Sub