NIM011799 for No Product Found

Bug-ID-Nummer	NIM011799
Eingereicht	September 18, 2007
Zuletzt geändert	April 2, 2025
Gilt für	No Product Found
Gefunden in Version	9.2
Status	Will Not Be Addressed

Zusätzliche Informationen

No Public Explanation

Workaround

The following VBA code will pull the z max and min from a tin and output to a msg box.---------------------------------------------------------------------------------------------------------------------------------------Dim pMxDoc As IMxDocumentDim pMap As IMapPrivate Sub GetTinZ() Dim pTinLayer As ITinLayer Dim maxZ As Double Dim minZ As Double Set pMxDoc = ThisDocument Set pMap = pMxDoc.FocusMap Set pTinLayer = pMap.Layer(0) ‘First layer in the map is the TIN Set pTin = pTinLayer.Dataset maxZ = pTinLayer.Dataset.Extent.ZMax minZ = pTinLayer.Dataset.Extent.ZMin MsgBox maxZ MsgBox minZEnd Sub