プログラミング– category –
-
Update カーソル
[vb title="VBA"] Dim pFeatureCursor As IFeatureCursor Set pFeatureCursor = pFeatureClass.Update(pQueryFilter, False) 'QueryFilter:検索条件 Dim pFeature As IFeature Set pFeature = pFeatureCursor.NextFeature Do Until pFeature Is Nothing pFeature.Value(2) = "xxx" pFeatureCursor.UpdateFeature pFeature Set pFea... -
メタデータの取得
[vb title="VBA"] 'メタデータの取得 Public Sub GetMetadata() Dim pGxApplication As IGxApplication Set pGxApplication = Application Dim pGxObject As IGxObject Set pGxObject = pGxApplication.SelectedObject Dim pMetadata As IMetadata Set pMetadata = pGxObject Dim pXmlPropertySet As IXmlPropertySet2 Set pXmlPropertySet =... -
トポロジの構築
[vb title="VBA"] Public Sub CreateTopology() Dim pWSFact As IWorkspaceFactory Set pWSFact = New AccessWorkspaceFactory Dim pWor As IWorkspace Set pWor = pWSFact.OpenFromFile("D:\WorkSpace\Personal Geodatabase.mdb", 0) Dim pFWS As IFeatureWorkspace Set pFWS = pWor Dim pDS As IDataset Set pDS = pFWS.... -
ラスター レイヤーから指定した位置とバンドのピクセル値を取得
[vb title="VBA"] Private Function getPixelValue(pRasterLayer As IRasterLayer, lngBand As Long, pPoint As IPoint) As Variant Dim pRaster As IRaster2 Set pRaster = pRasterLayer.Raster If lngBand < 0 Or lngBand > pRasterLayer.BandCount - 1 Then MsgBox "指定したバンドは存在しません... -
IActiveViewEvents を使用したイベントの利用
[csharp title="C#"] private IActiveViewEvents_Event m_pActiveViewEvents; private void toolStripMenuItem2_Click(object sender, EventArgs e) { m_pActiveViewEvents = (IActiveViewEvents_Event)axMapControl1.ActiveView; //イベント ハンドラの登録 m_pActiveViewEvents.ViewRefreshed += new IActiveViewEvent... -
アノテーション フィーチャの追加
[vb title="VBA"] private void axMapControl1_OnMouseDown(object sender, IMapControlEvents2_OnMouset e) { //右クリック以外を除外 if (!(e.button == 2)) { return; } // アノテーション レイヤーの取得 IFeatureLayer pFeatureLayer = (IFeatureLayer)axMapControl1.get_Layer(0); IAnnotationL... -
個別値分類のシンボルを特定したフィーチャから判断して更新する方法
[vb title="VBA"] Public Sub subChangeSymbolFromFeature() 'ThisDocumentの取得 Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument 'アクティブなデータフレームの取得 Dim pMap As IMap Set pMap = pMxDocument.FocusMap '最上位レイヤの取得 Dim pLayer As ILayer Set pL... -
データ フレーム間でレンダラーのコピー
[vb title="VBA"] 'コピー元のデータフレーム（1番目）とコピー先のデータフレーム（2番目） 'レイヤ数とその順序は同じであること 'フィーチャレイヤのみ追加されていること（ラスタやTIN、グループレイヤなどが含まれていないこと） Sub CopyRenderer() Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument 'Maps... -
マップの全体表示に対するカスタム範囲を設定
[vb title="VBA"] Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pActiveView As IActiveView Set pActiveView = pMxDocument.ActiveView Dim pNewEnvelope As IEnvelope Set pNewEnvelope = New Envelope Dim pMap As IMap Set pMap = pMxDocument.FocusMap pMap.AreaOfInterest = pNewEnvelope '[全体表示の... -
テキストファイルの操作方法
[vb title="VBA / VB6"] http://www.red.oit-net.jp/tatsuya/vb/Open.htm 目次へ戻ります <index.htm> /*VB サンプル*/ ------------------------------------------------------------------------ *VB テキストファイル操作編* テキストファイルの読み込み、書き込みの操作 ●Open <#Open> ファイルを開く <#Open>...
