-
レイアウト ビューでマウス クリック地点の用紙座標とマップ座標の両方を取得する方法
[vb title="VBA"] Private Sub UIToolControl1_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long) Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pPoint As IPoint Set pPoint = pMxDocument.ActiveView.ScreenDisplay.DisplayTransformation.ToMapPoin... -
ランダムな色の生成
[vb title="VBA"] Dim pRgbColor As IRgbColor Set pRgbColor = New RgbColor RgbColor.Red = Int((255 * Rnd) + 1) RgbColor.Green = Int((255 * Rnd) + 1) RgbColor.Blue = Int((255 * Rnd) + 1) [/vb] -
マップの回転
[vb title="VBA"] ActiveView.ScreenDisplay.DisplayTransformation.Rotation [/vb] -
特定レイヤーの再描画
[vb title="VBA"] '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 S... -
ディスプレイ座標をマップ座標に変換
[vb title="VBA"] 'MxApplicationの取得 Dim pMxApplication As IMxApplication Set pMxApplication = Application 'Displayの取得 Dim pDisplay As IDisplay Set pDisplay = pMxApplication.Display 'DisplayTransformationの取得 Dim pDisplayTransformation As IDisplayTransformation Set pDisplayTransformation = pDisplay.Display... -
ジオメトリの一時的な描画
[vb title="VBA"] '********************************************************************* ' 定義 ：fncDisplayGeometry(pGeometry As IGeometry, Rgb As Long) ' 概要 ：ジオメトリタイプに応じてジオメトリを一時描画 ' 第1引数：IGeometry 描画対象のジオメトリ ' 第2引数：Long 描画色（VBAで色の定数及び値を指定） '... -
ジオメトリ タイプに応じてジオメトリを一時描画
[vb title="Visual Basic"] '********************************************************************* ' 定義 ：fncDisplayGeometry(pGeometry As IGeometry, Rgb As Long) ' 概要 ：ジオメトリタイプに応じてジオメトリを一時描画 ' 第1引数：IGeometry 描画対象のジオメトリ ' 第2引数：Long 描画色（VBAで色の定数及び値... -
コールアウトの作成
[csharp title="C#"] // コールアウト設定 IRgbColor pRgbColor = new RgbColorClass() { Red = 0, Green = 0, Blue = 0 }; ILineCallout pLineCallOout = CreateLineCallout(pRgbColor, pRgbColor, pRgbColor); pLineCallOout.Style = esriLineCalloutStyle.esriLCSUnderline; // アンダーライン pLineCallOout.AccentBar = null; ... -
クリックした地点からマップの縮尺に応じたバッファーを作成してフィーチャ検索用ジオメトリを作成
[vb title="VBA"] Private Sub UIToolControl1_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long) Dim pMxApplication As IMxApplication Set pMxApplication = Application Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pAppDisplay ... -
回転フィードバック
[csharp title="C#"] #region Overridden Class Methods /// <summary> /// Occurs when this tool is created /// </summary> /// <param name="hook">Instance of the application</param> public override void OnCreate(object hook) { if (m_hookHelper == null) m_hookHelper = new H...
