Thanks, I've been playing with the Tower series and I think it will do most of what I need to do. Here is the sample code I'm using:
Code: Select all
Dim surface As New Steema.TeeChart.Styles.Surface(Me.tChart.Chart)
With surface
.IrregularGrid = True
.UseColorRange = True
.Add(1, 1, 1)
.Add(1, 4, 20)
'.Add(10, 6, 10)
.Add(20, 1, 1)
.Add(20, 3, 20)
End With
Me.tChart.Series.Add(surface)
Dim tower As New Steema.TeeChart.Styles.Tower(Me.tChart.Chart)
With tower
.TowerStyle = Steema.TeeChart.Styles.TowerStyles.Cylinder
.IrregularGrid = True
.UseOrigin = True
.Add(2, 9.5, 4)
.Add(6, 12.8, 19)
.Add(16, 6.2, 12)
'.Add(85, 16.1, 10)
End With
Me.tChart.Series.Add(tower)
With Me.tChart.Axes.Left
.AutomaticMinimum = False
.Minimum = 0
End With
Me.tChart.Walls.Visible = True
Me.tChart.Aspect.View3D = True
Me.tChart.Legend.Visible = False
Me.tChart.Aspect.Chart3DPercent = 50
Me.tChart.Walls.Back.Transparent = True
Me.tChart.Walls.Left.Transparent = True
Me.tChart.Walls.Bottom.Transparent = True
Me.tChart.Aspect.Orthogonal = True
Me.tChart.Axes.Depth.Visible = True
Me.tChart.Axes.Depth.Grid.Visible = False
It kind of works, but I have a few questions:
(1) The cylinders are not round, they are oval shape. How can I control the diameter/radius of the cylinders?
(2) The surface series doesn't always hide the cylinders as expected. If you rotate the chart around, there are several viewing angles where the surface plot should be hiding the bottom part of the cylinder, but it doesn't. Any suggestions?
Thanks.[/list]