IT– category –

ArcGIS Server 10 以前を対象 [vb title="VBA"] Public Sub GetGISServerConnection()     Dim pGISServerConnection As IGISServerConnection     Set pGISServerConnection = New GISServerConnection     pGISServerConnection.Connect "zeke"           Dim pServerObjectAdmin As IServerObjectAdmin     Set pServerObjectAd...

[csharp title="C#"] //切断解析の例 //FindFlowUnreachedElements メソッド実行後にマウスクリックすると例外が発生し //処理が中断される。これを防ぐにはマウス操作を禁止するしかない //例として Win32API の EnableWindow を使用する   using System.Runtime.InteropServices;   public static void Search(IApplication pApp) {     Ar...

[vb title="VBA"] Sub GetInterpolateShapeFromLAS()     Dim pMxDocument As IMxDocument     Set pMxDocument = ThisDocument           Dim pLasDatasetLayer As ILasDatasetLayer     Set pLasDatasetLayer = pMxDocument.FocusMap.Layer(0)           Dim pSurface As ISurface     Set pSurface = pLasDatasetLayer.GetCurrentSurface ...

[vb title="VBA"] 'NTv2Transformationによる座標変換 Public Sub GetGeographicTransformations()     Dim pMxDocument As IMxDocument     Set pMxDocument = ThisDocument           Dim pMap As IMap     Set pMap = pMxDocument.FocusMap           'NTv2Transformationの作成     Dim pNewGeoTransformation As IGeoTransformation    ...

[vb title="VBA"] Dim pBoolean As Boolean Dim reason As esriNonSimpleReasonEnum Dim pTopologicalOperator As ITopologicalOperator3 Set pTopologicalOperator = pGeometry pTopologicalOperator.IsKnownSimple = False pBoolean = pTopologicalOperator.IsSimpleEx(reason)   'pBooleadn に不正かどうかが返される 'reason に不正の種...

[csharp title="C#"] /// <summary> /// 初期化 /// </summary> /// <param name="Scene">Scene</param> private void Initialize(IScene Scene) {     //ポイントエレメントを描画するレイヤの作成とシーンへの追加     IGraphicsContainer3D pGraphicsContainer3D = new GraphicsLayer3DClass();     IL...

[vb title="VBA"] 'TOC（[コンテンツ] ウィンドウ）の選択アイテムへのアクセス Public Sub ContentsView()     Dim pMxDocument As IMxDocument     Set pMxDocument = ThisDocument           Dim pContentsView As IContentsView3     Set pContentsView = pMxDocument.CurrentContentsView           If TypeOf pContentsView.SelectedIt...

[csharp title="C#"] public void ExpandSelecetdTreeNode() {     IGxApplication gxApplication = default(IGxApplication);     gxApplication = Application;       IGxTreeView gxTreeView = default(IGxTreeView);     gxTreeView = gxApplication.TreeView;       IGxView gxView = default(IGxView);     gxView = gxTreeView;      ...

'VBA 'ArcMap に対してレイヤーの描画のキャンセルは不可と思われる。 'PanMoveTo, PanStart - Stop に対する CancelTracker Sub TrackCancel() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pActiveView As IActiveView Set pActiveView = pMxDocument.FocusMap Dim pScreenDisplay As IScreenDisplay Set pScreenDi...

[vb title="Visual Basic"] Dim t As Type t = Type.GetTypeFromProgID("esriDataSourcesOleDB.TextFileWorkspaceFactor")  '<-- バージョン 10.0まで t = Type.GetTypeFromProgID("esriDataSourcesFile.TextFileWorkspaceFactory")  '<-- バージョン 10.1以降   Dim workspaceFactory As IWorkspaceFactory = CTy...