VBA

no image

プログラミング ArcGIS

ファイルストリームへの保存・読込方法

2016/9/1    ,

'ファイルストリームに保存する方法 Public Sub SaveObjectAsFile(PersistStream As IPersistStream, PathName As String)   ...

no image

プログラミング ArcGIS

Globe の回転・太陽光設定

2016/9/1    ,

'Globeの回転 Private Sub chkSpin_Click()     Dim pGlobeViewer As IGlobeViewer     Set pGlobeViewer = m_ ...

no image

プログラミング ArcGIS

IProximityOperator でポリゴンとポイントの近接点を取得

2016/9/1    ,

'IProximityOperator でポリゴンとポイントの近接点の取得 Sub GetQueryNearestPoint()           Dim pPoint(3) As IPoint   ...

no image

プログラミング ArcGIS

ジオメトリの不正の種類を判定

2016/9/1    ,

Dim pBoolean As Boolean Dim reason As esriNonSimpleReasonEnum Dim pTopologicalOperator As ITopologic ...

no image

プログラミング ArcGIS

ArcScene と ArcGlobe によるクリック地点のポイント座標取得

2016/9/1    ,

'ArcSceneによるクリック地点のポイント座標取得 Private Sub UIToolControl1_MouseDown(ByVal button As Long, ByVal shift A ...

no image

プログラミング ArcGIS

属性テーブルを選択状態で表示

2016/9/1    ,

'テーブルをShowした後にShowSelectedを変更しないとうまく動作しない Private Sub UIButtonControl1_Click()     Dim pMxDoc As IMx ...

no image

プログラミング ArcGIS

クエリ レイヤーの作成

2016/9/1    ,

Sub CreateQueryLayer()     Dim pWorkspaceFactory As IWorkspaceFactory     Set pWorkspaceFactory = Ne ...

no image

プログラミング ArcGIS

ツールバーの形状制御

2016/9/1    ,

Public Sub ShowTool()     Dim pDocument As IDocument     Set pDocument = ThisDocument           Dim ...

no image

プログラミング ArcGIS

ランダムな色の生成

2016/9/1    ,

Dim pRgbColor As IRgbColor Set pRgbColor = New RgbColor   RgbColor.Red = Int((255 * Rnd) + 1) RgbCol ...

no image

プログラミング ArcGIS

JPEG ファイルから EXIF タグを取得する方法

2016/9/1    ,

Sub AccessEXIFTag(pRasterDataset as IRasterDataset) 'assume that pRasterDataset is opened from a JPE ...

Copyright© WINGFIELD since1981 , 2019 All Rights Reserved.