プログラミング– category –
-
Map を用紙の最大範囲で印刷する方法
[vb title="VBA"] '****************************************************************************** ' 定義 :Function fncPrintMap ' 概要 :Mapを用紙全体に印刷する関数 ' 第1引数 :pActiveVeiw As IActiveView ActiveView ' 第2引数 :intOrientation As Integer 用紙方向 縦:1, 横:2 ' 第3引数 ... -
ラベルエンジンを Maplex に変更する方法
[vb title="VBA"] 'http://help.arcgis.com/en/sdk/10.0/vba_desktop/conceptualhelp/index.html#//0001000000m0000000 '標準ラベルエンジンはAnnotateMapをインスタンス化 Public Sub ChangeMxDocumentLabelEngine() 'This simple subroutine will change the label engine for all data frames in a map to be the maplex la... -
ASCII グリッドをラスターに変換して空間参照を定義
[vb title="VBA"] 'ラスタをASCIIグリッドに変換し、さらに投影法を定義して新しいRasterDatasetを作成するサンプル 'ラスタの設定を変更すると上書きできないので、ASCII変換用に一旦テンポラリのRasterDatasetを作成している Sub subConvertASCII2Raster() 'ASCIIファイルフルパス Dim srcFile As String srcFile = "F:\My Docume... -
円ジオメトリへアクセスして半径を変更
[csharp title="C#"] //エレメントの取得 IGraphicsContainerSelect pGCS = (IGraphicsContainerSelect)axMapControl1.Map; IElement pElement = pGCS.SelectedElement(0); //エレメントからジオメトリを取得 IGeometry pGeometry = pElement.Geometry; ISegmentCollection pSegmentCollection = (ISegmentCollection)pGeometry; ICircular... -
選択フィーチャにズーム
[csharp title="C#"] ISelectionSet pSelectionSet = pFeatureSelection.SelectionSet; IEnumGeometry pEnumGeometry = new EnumFeatureGeometryClass(); IEnumGeometryBind pEnumGeometryBind = (IEnumGeometryBind)pEnumGeometry; pEnumGeometryBind.BindGeometrySource(null,pSelectionSet); System.Type t = System.Type.GetTypeFromP... -
ArcScene と ArcGlobe によるクリック地点のポイント座標取得
[vb title="VBA"] 'ArcSceneによるクリック地点のポイント座標取得 Private Sub UIToolControl1_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long) Dim pSxDocument As ISxDocument Set pSxDocument = ThisDocument Dim pSceneGraph As ISceneGraph Set pSceneGraph = pSxDocu... -
概観図の表示
[vb title="VBA"] '概観図の表示 Dim pDataWindowFactory As IDataWindowFactory Set pDataWindowFactory = New OverviewWindowFactory Dim pDataWindow As IDataWindow Set pDataWindow = pDataWindowFactory.Create(applicaiton) Dim pOverviewWindow As IOverviewWindow Set pOverviewWindow = pDataWindow Dim pOverview As IOverv... -
BaseClass を直接 ToolbarControl に追加する方法
[vb title="Visual Basic"] Dim pCommand(2) As ICommand pCommand(0) = New PrintSettings pCommand(1) = New PrintPreview pCommand(2) = New Print Dim pToolbarControl As IToolbarControl = CType(axToolbarControl1.Object, IToolbarControl) For i As Integer = 0 To pCommand.Length - 1 axToolbarControl1.AddItem(pCommand... -
CAD フィーチャクラスへのアクセス
[csharp title="C#"] System.Type t = System.Type.GetTypeFromProgID("esriDataSourcesFile.CadWorkspaceFactory"); IWorkspaceFactory pWorkspaceFactory = (IWorkspaceFactory)Activator.CreateInstance(t); IFeatureWorkspace pFeatureWorkspace = (IFeatureWorkspace)pWorkspaceFactory.OpenFromFile("<DXFファイル... -
ラスターのジオリファレンス
[csharp title="C#"] { //時計回りでタイポイントを取得 IPointCollection pTiePointCollection; pTiePointCollection = new MultipointClass(); IPoint[] pPoint = new IPoint[4]; pPoint(0) = new PointClass(); pPoint(1) = new PointClass(); pPoint(2) = new PointClass(); pPoint(3) = n...
