NIM011799 for No Product Found

Numéro d’ID de bogue	NIM011799
Envoi	September 18, 2007
Dernière modification	April 2, 2025
S’applique à	No Product Found
Version trouvée	9.2
Statut	Will Not Be Addressed

Informations supplémentaires

No Public Explanation

Solution de contournement

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