Lost & Found of My Life : P.A.U.S.E..F.O.R..N.O.W.

Option Explicit
'Script written by <AH>
'Script trial version 090428_simple_pattern_on_srf


rendered with Rhino Vray

음... 패턴사이즈를 랜덤으로 바꾸는법은?? assign center points and place random circles in loop???
패턴을 oval에서 honeycomb pattern으로 바꾸는 법은??
스트립팅 아시는분??? 크흑...스크립팅은 나를 컴맹으로 만드는구나 lllllllllOTLllllllll




Call gridsrf()
Sub gridsrf()

    Dim choosesrf, uDiv, vDiv
    Dim uStep, vStep
    Dim uVal, vVal
    Dim a, b
    Dim gridpoint(3)
    Dim connectingpts, connectingpts2, finalcircle, finalcircle2
    choosesrf = rhino.getobject("select a surf ace for a grid pattern", 8)
    uDiv = Rhino. GetInteger("Number of cells U direction", 10,1)
    vDiv = Rhino.GetInteger("Number of cells V direction",10,1)
    
    rhino.SelectObject choosesrf
    rhino.command "reparameterize 0 1 0 1"
    
    ReDim uVal(uDiv)
    ReDim vVal(vDiv)
    
    uStep = 1/uDiv
    vStep = 1/vDiv

    For a = 0 To uDiv
        uVal(a) = a*uStep
        Rhino.Print uVal(a)
    Next

    For a = 0 To vDiv
        vVal(a) = a*vStep
        rhino.Print vVal(a)
    Next
    
    rhino. print "now let's place points on surface"
    
    For a = 0 To uDiv-1
        For b = 0 To vDiv-1
    
            gridpoint(0) = rhino.EvaluateSurface(choosesrf, array(uVal(a),vVal(b)))
            gridpoint(1) = rhino.EvaluateSurface(choosesrf, array(uVal(a+1),vVal(b)))
            gridpoint(2) = rhino.Evaluatesurface(choosesrf, array(uVal(a+1),vVal(b+1)))
            gridpoint(3) = rhino.Evaluatesurface(choosesrf, array(uVal(a),vVal(b+1)))
            connectingpts = array(gridpoint(0),gridpoint(1),gridpoint(2),gridpoint(0))
            connectingpts2 = array(gridpoint(0),gridpoint(3),gridpoint(2),gridpoint(0))
    
            finalcircle = rhino.addcurve(connectingpts)
            finalcircle = rhino.addcurve(connectingpts2)
            
        Next
    Next
    
End Sub