ArcObjects

アノテーショングループ内の空間参照の設定

ArcMap → [データフレーム] プロパティ → [アノテーショングループ] 内の空間参照の取得、及び設定方法。 Sub GetSpatialReferenceOnTheAnnotationGroup() Dim pMxDocument As IMxDocument Set pMxDocument = Application.Document Dim pMap As IMap Set pMap = pMxDocument.FocusMap Dim pCompositeGraphicsLayer A ...

プログラミング ArcGIS

BaseCommand のアイコンを変更する方法

// BaseCommandのアイコンを変更する方法 System.Drawing.Bitmap newIcon = new System.Drawing.Bitmap(GetType(), "Command2.bmp"); this.UpdateBitmap(newIcon); //Command2.bmp；ビルドアクション：埋め込まれたリソース

プログラミング ArcGIS

RubberEnvelope で指定した範囲のイメージを画像ファイルに出力する方法

private void axMapControl1_OnMouseDown(object sender, IMapControlEvents2_OnMouseDownEvent e) { int dpi = 96; //出力解像度（96 で Windows 標準 DPI と一致） double ratio = 1; //出力ピクセルサイズの比率 IEnvelope pEnvelope = axMapControl1.TrackRectangle(); //マウ ...

プログラミング ArcGIS

緯度・経度・高さを三次元直交座標系に変換

ArcGISでは地心直交座標系はサポートされていない。ただし、地球半径の割合から求めた3次元直交座標系を持っており、緯度・経度・高さをその直交座標系に変換できる。 ESRI Developer Summit資料 P31を参照 Developer Helpのサンプル IGlobeViewUtil::GeographicToGeocentric 地理座標系・高さを3次元直交座標系に変換また、「世界測地系と座標変換（飛田幹男著）で地理座標系←→地心直交座標系の変換方法が掲載されているが、これを実装してもらった ...

プログラミング ArcGIS

2 点間のライン作成

Attribute VB_Name = "Module1" Option Explicit Sub test() Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument '始点ポイント（GPS）（1番目レイヤ） Dim pFLayer0 As IFeatureLayer Set pFLayer0 = pMxDoc.FocusMap.Layer(0) Dim pFClass0 As IFeatureClass Set pFC ...

プログラミング ArcGIS

空間参照情報のテキスト出力

Public Sub subExportSpatialReference() 'ThisDocumentの取得 Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument 'アクティブなデータフレームの取得 Dim pMap As IMap Set pMap = pMxDocument.FocusMap 'SpatalReferenceを取得 Dim pE ...

プログラミング ArcGIS

測地線に基づく距離の計測

Public Sub Test() Dim pSpatialReferenceFactory As ISpatialReferenceFactory2 Set pSpatialReferenceFactory = New SpatialReferenceEnvironment '地理座標系（WGS84）の定義 Dim pSpatialReference As ISpatialReference Set pSpatialReference = pSpati ...

プログラミング ArcGIS

ITinSelection の使用

’ ITinSelectionの使用 Public Sub Test() '現在のドキュメントを取得 Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument 'アクティブなデータフレームの取得 Dim pMap As IMap Set pMap = pMxDocument.FocusMap 'レイヤを取得 Dim pTinLayer As ITinLa ...

プログラミング ArcGIS

属性テーブルウィンドウへのアクセス

Private Sub InitEvents() Dim pAppWindows As IApplicationWindows Dim pWindowSet As ISet Dim pTableWindow As ITableWindow Dim pTableControl As ITableControl Dim pSelSet As ISelectionSet Dim pTableWindow3 As ITableWindow3 Se ...

プログラミング ArcGIS

Engine で ITool からフォームを取得する方法

public override void OnClick() { m_map = m_hookHelper.FocusMap; // このツールが格納されているForm1を取得 try { // ツールバーのバディからMapControlを取得 IToolbarControl2 tlb = (IToolbarControl2)m_hookHelper.Hook; IMapControl4 mapctrl = (IMapCont ...

1 2 3 … 41 Next »

日	月	火	水	木	金	土
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30