Outer fillet

Scripting
,
1

Resimdeki gibi dışarı Fillet yapan Script var mı? 2D Curve işlem yapılacaktır.

OUTOR FILLET

image
image449×722 9.25 KB

Sub TEST()

Const rhObjectCurve = 4

Dim arrGet0, arrGet1, arrResult

arrGet0 = Rhino.GetObjectEx("Select first curve to fillet", rhObjectCurve)

arrGet1 = Rhino.GetObjectEx("Select second curve to fillet", rhObjectCurve)

arrResult = Rhino.FilletCurves(arrGet0(0), arrGet0(3), arrGet1(0), arrGet1(3), 1.0, True)

If IsArray(arrResult) Then

'Call Rhino.DeleteObject(arrGet0(0))

'Call Rhino.DeleteObject(arrGet1(0))

'Rhino.SelectObject arrGet0(0)
'Rhino.SelectObject arrGet1(1)
End If

End Sub

Bu prosedur bildiğimiz inner fillet yapıyor. bu presedürü geliştirebilirmiyiz.