批量延长面不成功，谁能帮我改改。

93714292

[Visual Basic] 纯文本查看 复制代码

hyde_GoExtendSrf
Sub hyde_GoExtendSrf
        Dim srf 
        srf = Rhino.GetObjects("Select surface", 8, vbTrue)
        If IsNull(srf) Then Exit Sub

        de = Rhino.RealBox("Enter a Extend  value", 80.0)
        If IsNull(de) Then Exit Sub
        For Each hh In  srf
                If Rhino.issurface(hh) Then
                        Rhino.ExtendSurfaceLength hh, 0, 4, de
                Else
                        Rhino.print "Not a surface!"
                End If
        Next
End Sub
)