批量延长面不成功，谁能帮我改改。 - 摩登犀牛

[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

)