HOW TO
This article contains a code sample that returns the minimum and maximum elevations for a tin.
Note:
Code in ThisDocument code module will only run in the current map document. To store the code in all map documents, open the code in the Normal.mxt ThisDocument code module.
Code:
Sub GetElev()
Dim pDoc As IMxDocument
Set pDoc = ThisDocument
Dim pTinLayer As ITinLayer
Set pTinLayer = pDoc.SelectedLayer
Dim pEnv As IEnvelope
Dim zMin As Double
Dim zMax As Double
Set pEnv = pTinLayer.Dataset.Extent
zMin = pEnv.zMin
zMax = pEnv.zMax
MsgBox "Minimum elevation :" & zMin & vbNewLine & _
"Maximum elevation :" & zMax
End Sub
Article ID:000004970
Get help from ArcGIS experts
Download the Esri Support App