93714292 发表于 2015-9-29 10:38:13

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

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 Extendvalue", 80.0)
      If IsNull(de) Then Exit Sub
      For Each hh Insrf
                If Rhino.issurface(hh) Then
                        Rhino.ExtendSurfaceLength hh, 0, 4, de
                Else
                        Rhino.print "Not a surface!"
                End If
      Next
End Sub
)

页: [1]
查看完整版本: 批量延长面不成功,谁能帮我改改。