NIM011799 for No Product Found

Número de ID do Erro	NIM011799
Enviado	September 18, 2007
Última Modificação	April 2, 2025
Aplica-se à	No Product Found
Versão encontrada	9.2
Status	Will Not Be Addressed

Informações Adicionais

No Public Explanation

Solução Provisória

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