you need to prepare the footprint of the building blocks. feature:
- tolerance set up
- auto fix unclosed curve, count shows in command
- random heights controlled by 'step' method, for the easy control of floor amount
- failed block-making geometries will be highlighted by selecting at the end of procedure
Call Main()
Sub Main()
Dim objs:objs=rhino.GetObjects("select curves",4,True,True)
If isnull(objs) Then Exit Sub
rhino.Command "selnone"
Dim minpre,maxpre,steppre,closepre
'Rhino.DeleteDocumentData "data"
If isnull(rhino.GetDocumentData("data")) Then
rhino.setdocumentdata "data","min","0"
rhino.setdocumentdata "data","max","0"
rhino.setdocumentdata "data","step1","0"
rhino.setdocumentdata "data","close","0"
End If
minpre=str2real(rhino.GetDocumentData("data","min"))
maxpre=str2real(rhino.GetDocumentData("data","max"))
steppre=str2real(rhino.GetDocumentData("data","step1"))
closepre=str2real(rhino.GetDocumentData("data","close"))
Dim min,max,step1,close
close=rhino.Getreal("close curve tolerrence? (0=keep as it)",closepre,0)
If isnull(close) Then Exit Sub
min=rhino.getreal("min height?",minpre,0)
If isnull(min) Then Exit Sub
max=rhino.getreal("max height?",maxpre,min)
If isnull(max) Then Exit Sub
step1=rhino.getinteger("How Many Step? (0 = no step)",steppre)
If isnull(step1) Then Exit Sub
rhino.setdocumentdata "data","min",min
rhino.setdocumentdata "data","max",max
rhino.setdocumentdata "data","step1",step1
rhino.setdocumentdata "data","close",close
Dim n:n=ubound(objs)
Dim i,edge,btm,top,height,ngm,ng
ngm=0
ng=0
For i=0 To n
rhino.EnableRedraw False
height=min*(1+rhino.Floor(rnd*(step1+1))/step1)
Dim gap: gap=rhino.Distance(rhino.CurveStartPoint(objs(i)),rhino.CurveEndPoint(objs(i)))
If Not(close=0) And (rhino.IsCurveClosable(objs(i),close)=True)Then
rhino.Print "system-fixable gap found.."
objs(i)=rhino.CloseCurve (objs(i),close)
ng=ng+1
rhino.Print "system-fixable gap fixed!!--No."&ng
ElseIf gap<close And gap>0 Then
rhino.print "gap needs to be fixed manally.."
Dim line:line=rhino.AddLine(rhino.CurveStartPoint(objs(i)),rhino.CurveEndPoint(objs(i)))
objs(i)=rhino.JoinCurves(array(objs(i),line),True)(0)
ngm=ngm+1
rhino.print "gap needs to be fixed manally has been fixed!!--No."&ngm
End If
edge=rhino.ExtrudeCurveStraight( objs(i),array(0,0,0),array(0,0,height))
If (rhino.IsCurveClosed(objs(i))=True) And (rhino.IsCurvePlanar(objs(i))=True) Then
btm=rhino.AddPlanarSrf(array(objs(i)))(0)
top=rhino.CopyObject(btm,array(0,0,0),array(0,0,height))
rhino.JoinSurfaces array(btm,edge,top),True
Else
rhino.SelectObject objs(i)
rhino.SelectObject edge
End If
Next
rhino.EnableRedraw True
End Sub
Function str2real(str)
str2real=rhino.Str2Pt(str&",0,0")(0)
End Function
