Author Topic: MaxElev = oSurface.Statistics.MaxElevation  (Read 2902 times)

0 Members and 1 Guest are viewing this topic.

jcoon

  • Newt
  • Posts: 157
MaxElev = oSurface.Statistics.MaxElevation
« on: December 10, 2010, 01:21:08 PM »

All,

In 2009 C3D I set a Dim oSurface As AeccSurface and select that surface,  I can see all the propoerties in the local window and I
want to pull the MaxElev = oSurface.Statistics.MaxElevation that shows in the local window but intelliSense does not offer it as a selection.
how could I get that value If it's not available under osurface?

Thanks for all your help,

John

Jeff_M

  • King Gator
  • Posts: 4095
  • C3D user & customizer
Re: MaxElev = oSurface.Statistics.MaxElevation
« Reply #1 on: December 10, 2010, 05:41:47 PM »
Dim oSurface As AeccTinSurface

jcoon

  • Newt
  • Posts: 157
Re: MaxElev = oSurface.Statistics.MaxElevation
« Reply #2 on: December 11, 2010, 10:16:22 AM »

Jeff,

Thanks for the direction. if anyone is interested see below.

now I need to recreate the same in dot net. back to work......

Thank you
John



Dim oSurface As AeccTinSurface
Dim oTINVolumeSurface As AeccTinVolumeSurface


'AeccTinSurface

        UserForm1.Label1 = "Surface Name = " & surfname
        UserForm1.Label2 = "Surface Style Name = " & surfStylename
        UserForm1.Label3 = "Number of Surface Points = " & cCount & "  Points"
        UserForm1.Label4 = "Maximum Elevation = " & oSurface.Statistics.MaxElevation
        UserForm1.Label5 = "Minimum Elevation = " & oSurface.Statistics.MinElevation


 'AeccTinVolumeSurface
        UserForm1.Label1 = "Surface Name = " & surfname
        UserForm1.Label2 = "Surface Style Name = " & surfStylename
        UserForm1.Label3 = "Number of Surface Points = " & cCount & "  Points"
        UserForm1.Label4 = "Maximum Elevation = " & oTINVolumeSurface.Statistics.MaxElevation
        UserForm1.Label5 = "Minimum Elevation = " & oTINVolumeSurface.Statistics.MinElevation
        UserForm1.Label6 = "Cut Volume = " & oTINVolumeSurface.Statistics.CutVolume
        UserForm1.Label7 = "Fill Volume = " & oTINVolumeSurface.Statistics.FillVolume
        UserForm1.Label8 = "Net Volume = " & oTINVolumeSurface.Statistics.NetVolume
        UserForm1.Label9 = "Maximum Elevation Northing (Y)= " & oTINVolumeSurface.Statistics.MaxY
        UserForm1.Label10 = "Maximum Elevation Easting (X) = " &  oTINVolumeSurface.Statistics.maxX