01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 | 'ThisDocumentの取得 Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pActiveView As IActiveView Set pActiveView = pMxDocument.ActiveView '対象レイヤの取得 Dim pLayer As ILayer Set pLayer = pMxDocument.FocusMap.Layer(0) '最上位レイヤ '対象範囲の取得 Dim pEnvelope as IEnvelope Set pEnvelope = pActiveView.Extent 'ビュー範囲 'PartialRefresh pActiveView.PartialRefresh esriViewGeography, pLayer, pEnvelope |
特定レイヤーの再描画
2016/9/1 (木)