ArcGIS– category –

[vb title="VBA"] Protected Overrides Sub OnClick()   Dim pMaps As IMaps Dim pMap As IMap Dim index As Long pMaps = My.ArcMap.Document.Maps Dim pAnnotateMap As IAnnotateMap   For index = 0 To pMaps.Count - 1   pMap = pMaps.Item(index) 'get the map at the current index pAnnotateMap = pMap.AnnotationEngine   If TypeOf ...

[vb title="VBA"] Public Sub subExportRaster()     '変換元ラスタ     Dim pRasterLayer As IRasterLayer     Set pRasterLayer = pMap.Layer(0)           Dim pRaster As IRaster     Set pRaster = pRasterLayer.Raster           'RasterConversionOp     Dim pConvrsionOp As IConversionOp     Set pConvrsionOp = New RasterConvers...

[vb title="VBA"] '例：ポリゴンのアウトラインをポリラインで取得する 'ITopologicalOperator::Boundary [/vb]

[csharp title="C#"] //中心点座標 double X = ; //UTM座標系のX座標値 double Y = ; //UTM座標系のY座標値 double radius = 10500; //半径   //中心点 Point 作成 IPoint pPCenter = new PointClass(); pPCenter.PutCoors(X,Y);   //円周接点 Point 作成 IPoint pFromTo As IPoint = new PointClass(); pFromTo.PutCoords(X + radius, Y);  ...

[vb title="VBA"] Public Sub subExportVRML()     Dim pSxDocument As ISxDocument     Set pSxDocument = ThisDocument           Dim pScene As IScene     Set pScene = pSxDocument.Scene           Dim pVRMLExporter As IVRMLExporter     Set pVRMLExporter = New VRMLExporter           Dim pSceneExporter3d  As ISceneExporter3d...

[vb title="VBA"] Sub GetOperationStacks()     Dim i As Long           Dim pMxDocument As IMxDocument     Set pMxDocument = ThisDocument           Dim pOperationStack As IOperationStack     Set pOperationStack = pMxDocument.OperationStack           Dim pOperation As IOperation           For i = 0 To pOperationStack.C...

[vb title="VBA"] Public Sub ClearLineage()     Dim pGxApp As IGxApplication     Dim pGxView As IGxView     Dim pMD As IMetadata     Dim pPS As IPropertySet     Dim dNow As Date           Set pGxApp = Application     Set pMD = pGxApp.SelectedObject     Set pPS = pMD.Metadata           pPS.RemoveProperty "Esri/Da...

[csharp title="C#"] //ツールバー コントロール内のツールを有効化 IToolbarItem pToolbarItem = axToolbarControl1.GetItem(0); //引数はコマンドのインデックス番号 xToolbarControl1.CurrentTool = (ITool)pToolbarItem.Command;     //ツールバー コントロールに追加されていないツールの有効化 ICommand pCommand = new ControlsMapZoo...

測地系変換を伴う場合 【How to project a raster with a datum transformation】 http://resources.arcgis.com/en/help/arcobjects-net/conceptualhelp/index.html#//0001000003t8000000 上記のサンプルコード中で geotransformation を作成していますが、 geotransformation を作成する、CreateGeoTransformation メソッドの詳しい使用方法...

[csharp title="C#"] //呼び出し main m = new main(); m.ShowProgressDialog(ArcMap.Application, 0, 100, "テスト");     //定義 class main {     public void ShowProgressDialog(ESRI.ArcGIS.Framework.IApplication application, System.Int32 int32_Minimum, System.Int32 int32_Maximum, System.String string_Message)   ...