RhinoScript，,付表皮# -*- cod

RhinoScript，,付表皮# -*- cod

付表皮

# -*- coding:UTF8 -*-################################################## Script written by www.dooo.cn at 06/04/2012    # Script copyrighted by www.dooo.cn             #################################################import rhinoscriptsyntax as rssurfaceId = rs.GetObject("Select Surface",8)DomainU = rs.SurfaceDomain(surfaceId,0)DomainV = rs.SurfaceDomain(surfaceId,1)print "DomainU",DomainUprint "DomainV",DomainVvarU = 5varV = 5UDom = (DomainU[1]-DomainU[0])/varUVDom = (DomainV[1]-DomainV[0])/varVprint "UDom",UDomprint "VDom",VDomfor i in range(0,varU):    for j in range(0,varV):         Uparam = i*(DomainU[1]-DomainU[0])/varU        Uu = (i+1)*(DomainU[1]-DomainU[0])/varU         Vparam = j*(DomainV[1]-DomainV[0])/varV        Vv = (j+1)*(DomainV[1]-DomainV[0])/varV        pt1 = rs.EvaluateSurface(surfaceId,Uparam,Vparam)        pt2 = rs.EvaluateSurface(surfaceId,Uu,Vparam)        pt3 = rs.EvaluateSurface(surfaceId,Uu,Vv)        pt4 = rs.EvaluateSurface(surfaceId,Uparam,Vv)        lineA = rs.AddLine(pt1,pt2)        pt5 = rs.CurveMidPoint(lineA)        lineB = rs.AddLine(pt2,pt3)        pt6 = rs.CurveMidPoint(lineB)        lineC = rs.AddLine(pt3,pt4)        pt7 = rs.CurveMidPoint(lineC)        lineD = rs.AddLine(pt4,pt1)        pt8 = rs.CurveMidPoint(lineD)        points = rs.AddPoints([pt5,pt7,pt6,pt8])        points2 = [pt6,pt8,pt5,pt7]        rs.HideObjects([lineA,lineB,lineC,lineD])        Cur1 = rs.AddCurve(points,3)        Cur2 = rs.AddCurve(points2,3)        rs.HideObject(points)        rs.HideObject(surfaceId)        rs.SelectObjects([Cur1,Cur2])R = 0.2rs.Command("_Pipe" + " "+ str(R) + " _Enter _Enter")