プログラミング– category –
-
アクティブ ビューを画像にエクスポート
[vb title="VBA"] Public Sub ExportJPEG() Dim ExportFileName As String ExportFileName = "D:\Workspace\output.jpg" Dim ExportResolution As Integer ExportResolution = 300 &nbs... -
Globe の回転・太陽光設定
[vb title="VBA"] 'Globeの回転 Private Sub chkSpin_Click() Dim pGlobeViewer As IGlobeViewer Set pGlobeViewer = m_pGlobeControl.GlobeViewer If chkSpin.Value = 1 Then pGlobeViewer.SpinSpeed = sldSpin.Value pGlobeViewer.StartSpinning esriCounterClockwise Else pGlobeViewer.St... -
4 点ポイントから外接ポリゴンを作成する方法
[vb title="VBA"] Public Function PointToPolygon(ByRef pFClass As IFeatureClass, ByRef pFLayer As IFeatureLayer2) As IPolygon '------ ポイントデータからITopologicalOperator::Convex Hullで外接ポリゴンを作成する ------------- Dim pFeature As IFeature Dim pFCursor As IFeatureCursor Dim pPointColl As IPointCo... -
空間参照の XY 座標精度と XY 許容値を設定する方法
[vb title="VBA"] Public Sub CreateXYResolutionAndXYTolerance() Dim pSpatialReferenceFactory As ISpatialReferenceFactory2 Set pSpatialReferenceFactory = New SpatialReferenceEnvironment Dim pSpatialReference As ISpatialReference Set pSpatialReference = pSpatialReferenceFactory.CreateGeographicCoo... -
測地線・航程線・大楕円線
IPolycurveGeodetic IConstructGeodetic -
Marker3DSymbol の作成
http://resources.esri.com/help/9.3/arcgisengine/ArcObjects/esri3DAnalyst/IGeneralMultiPatchCreator_Example.htm 任意の画像ファイルでテクスチャを作成するにはマルチパッチが必要だが、IImport3DFile2::CreateFromFile メソッドで作成し、Geomeryプロパティからマルチパッチが取得できる。 サムネイルがデフォルトのままなので、IMark... -
属性テーブルのソート順でレコードを取得
[vb title="VBA"] '属性テーブルのソート順でレコードを取得 Sub GetSortedRows() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pFeatureLayer As IFeatureLayer Set pFeatureLayer = pMxDocument.FocusMap.Layer(0) Dim pTableWindow As ITableWindow Set pTableWindow = New ... -
Engine でスケッチに対してスナップを設定する方法
[csharp title="C#"] ' http://help.arcgis.com/en/sdk/10.0/arcobjects_net/componenthelp/index.html#/SnapEditorForm/0048000000m7000000/ '/ <summary> '/ Turns on or turns off the Edit Sketch snap agents by adding or removing them '/ </summary> Private Sub AddSketchSnapAgents() 'give anchor snap (i.e. ver... -
クエリ レイヤーの作成
[vb title="VBA"] Sub CreateQueryLayer() Dim pWorkspaceFactory As IWorkspaceFactory Set pWorkspaceFactory = New SqlWorkspaceFactory Dim pPropertySet As IPropertySet Set pPropertySet = New PropertySet pPropertySet.SetProperty "DBCLIENT", "sqlserver" pPropertySet.... -
ArcGIS Desktop のコマンド名・UID の取得
[vb title="VBA"] Sub getCommandsUID() Dim pApplication As IApplication Set pApplication = Application Dim pDocument As IDocument Set pDocument = ThisDocument Dim pCommandBars As ICommandBars Set pCommandBars = pDocument.CommandBars Dim pCommandItem As ICommandItem Se...
