批量延长面不成功,谁能帮我改改。
hyde_GoExtendSrfSub 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]