VBA

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

空間参照の定義（簡易）

Function fncSpatialReference(valType As Long, blnGeographic As Boolean) As ISpatialReference 'DeveloperHelpから以下を参照 '地理座標系(pcsType) 'esriSRGeoCSType Contains 'https://desktop.arcgis.com/en/arcobjects/latest/net/webframe.htm#esriSRGeoCSType.htm 'esriSRGeoCS ...

プログラミング ArcGIS

中心から指定した東西南北の地点を通る疑似楕円

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

プログラミング ArcGIS

ラスターレイヤー・フィーチャレイヤーの立ち上げ

private void AddRasterLayerAsSurface() { //RasterLayerの作成 IRasterLayer pRasterLayer = new RasterLayerClass(); pRasterLayer.CreateFromFilePath(@"E:\SpatialData\Raster\ジオイド（ArcGIS93）mg"); pRasterLayer.Name = "DEM"; ax ...

プログラミング ArcGIS

カタログウィンドウのホームフォルダーを設定

Sub SetHomeFolder() Dim pGxCatalogWorkspace As IGxCatalogWorkspace Set pGxCatalogWorkspace = Application pGxCatalogWorkspace.UseWorkspaceFolder = True pGxCatalogWorkspace.OpenWorkspaceFolder "D:\Workspace\Support\130417-00 ...

プログラミング ArcGIS

Editor オブジェクトの取得

Public Sub subGetEditor() Dim pUID As New UID pUID = "esriEditor.Editor" Dim pEditor As IEditor Set pEditor = Application.FindExtensionByCLSID(pUID) End Sub

プログラミング ArcGIS

IRotateTracker の利用

Option Explicit Private pRTracker As IRotateTracker ' 'Cancel any tracking: ' Private Function UIToolControl1_Deactivate() As Boolean If Not pRTracker Is Nothing Then Set pRTracker = Nothing End If UIToolControl1_Deactivate = Tru ...

プログラミング ArcGIS

テーブル結合する方法

'フィーチャレイヤにAccessテーブルをテーブル結合 Public Sub JoinTabletoLayer() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pFeatureLayer As IFeatureLayer Set pFeatureLayer = pMxDocument.FocusMap.Layer(0) '最上位レイヤを取得 ' 'レイヤに表示されている属性テーブルの状態を取得する場合（フィルタ設定等を ...

プログラミング ArcGIS

TIN の作成

Sub CreateTIN() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pFeatureLayer As IFeatureLayer Set pFeatureLayer = pMxDocument.FocusMap.Layer(0) Dim pFeatureClass As IFeatureClass Set pFeatureClass = pFeatureLayer.FeatureClass Dim pGeoDa ...

プログラミング ArcGIS

属性検索で取り出したレコードの順序を変更する方法

Sub test() Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument Dim pFL As IFeatureLayer Set pFL = pMxDoc.FocusMap.Layer(0) Dim pFeatureClass As IFeatureClass Set pFeatureClass = pFL.FeatureClass Dim strFieldName As String strFieldName = "P_NU ...

« Prev 1 2 3 4 5 … 29 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	31