oint Pb, x units directly above Pa.
Move Pb parallel with the y-axis for z units.
Create a Bezier Ba from Pa to Pb, which has vertical tangencies at both end-points.
Copy Ba (and name it Bb) and move it along the y-axis for q units.
Create line segments La and Lb between the end-points of Ba and Bb.
Join Ba, La, Bb and Lb into a single closed, planar curve.
Extrude this curve for k units along the x-axis, creating the brep Ka.
Cap Ka to create a closed solid Kb which represents one of the 4 building towers.
etc. etc.
Some of these steps should be do-able even for a beginner. For others you may require help from teachers or forum members. But without a written (or drawn) algorithm like the one above, this is very much a 'do my homework for me' question and they tend not to get answered.
--
David Rutten
david@mcneel.com
Poprad, Slovakia…
Added by David Rutten at 10:13am on April 10, 2013
End Sub
'<Custom additional code>
Dim BB As BlABLA
Public Class BLABLA Public Curva As curve
Sub New(ids As list(Of guid)) Dim points As New list(Of point3d) For Each id As guid In ids Dim rh As rhinoobject = rhinodoc.ActiveDoc.Objects.Find(id) Dim pt As Rhino.Geometry.Point = DirectCast(rh.Geometry, rhino.Geometry.Point) If pt is Nothing Then Continue For points.add(pt.Location) Next curva = curve.CreateInterpolatedCurve(points, 3) End Sub
End Class…