VBA

no image

プログラミング ArcGIS

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

2017/12/9    ,

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

no image

プログラミング ArcGIS

Globe の回転・太陽光設定

2017/12/9    ,

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

no image

プログラミング ArcGIS

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

2017/12/9    ,

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

no image

プログラミング ArcGIS

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

2017/12/9    ,

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

no image

プログラミング ArcGIS

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

2017/12/9    ,

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

no image

プログラミング ArcGIS

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

2017/12/9    ,

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

no image

プログラミング ArcGIS

クエリ レイヤーの作成

2017/12/9    ,

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

no image

プログラミング ArcGIS

ツールバーの形状制御

2017/12/9    ,

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

no image

プログラミング ArcGIS

ランダムな色の生成

2017/12/9    ,

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

no image

プログラミング ArcGIS

MXD の SDE データ ソースを再設定

2017/12/9    ,

Private Sub ReConnectToSDE() Dim pMapDocument As IMapDocument Set pMapDocument = New MapDocument pMa ...

Copyright© WINGFIELD since1981 , 2019 All Rights Reserved.