-
Envelope を Polygon や Polyline に変換する方法
[vb title="VBA"] Dim pEnvelope As IEnvelope Set pEnvelope = New Envelope Dim pSegmentCollection As ISegmentCollection 'Set pSegmentCollection = New Polyline Set pSegmentCollection = New Polygon pSegmentCollection.SetRectangle pEnvelope [/vb] -
EnumFeatureGeometry の使用方法
[vb title="VBA"] Sub test() '基本レイヤ中の Dim pFeatureSelectionB As IFeatureSelection Set pFeatureSelectionB = pFeatureLayerB Dim pSelectionSet As ISelectionSet Set pSelectionSet = pFeatureSelectionB.SelectionSet Dim pEnumGeometryBind As IEnumGeometryBind Set pEnumGeometryBind =... -
Densify の利用
[vb title="VBA"] 'That sub demonstrates how to use the ISegment::Densify method Private Sub Densify() On Error GoTo ErrorHandler Dim ptCenter As IPoint, ptcfromto As IPoint Dim psegment As ISegment, pseg() As ILine Dim lout As Long, i As Long, pcarc As ICircularArc Dim ii As Long 'Create ... -
BufferConstruction を使用したバッファー作成
[csharp title="C#"] Type t = Type.GetTypeFromProgID ("esriGeometry.SpatialReferenceEnvironment"); ISpatialReferenceFactory pSpatialReferenceFactory = (ISpatialReferenceFactory)Activator.CreateInstance(t); ISpatialReference wgs84 = pSpatialReferenceFactory.CreateGeographicCoordinateSystem(4326); //WGS84 ... -
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... -
2 点間のライン作成
[vb title="VBA"] Attribute VB_Name = "Module1" Option Explicit Sub test() Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument '始点ポイント（GPS）（1番目レイヤ） Dim pFLayer0 As IFeatureLayer Set pFLayer0 = pMxDoc.FocusMap.Layer(0) Dim pFClass0 As IFeatureClass Set pFClass0 = pFLayer0.FeatureClass ... -
フィーチャをラスターに変換
[vb title="VBA"] Attribute VB_Name = "Module_Feature2Raster" Option Explicit '********************************************************************* ' 定義 :fncCreateRaster(valIndex As Integer, valFieldName As String, ' valCellSize As Double, valRasterFormat As String, ' valOutputFileP... -
ASCII グリッドをラスターに変換して空間参照を定義
[vb title="VBA"] 'ラスタをASCIIグリッドに変換し、さらに投影法を定義して新しいRasterDatasetを作成するサンプル 'ラスタの設定を変更すると上書きできないので、ASCII変換用に一旦テンポラリのRasterDatasetを作成している Sub subConvertASCII2Raster() 'ASCIIファイルフルパス Dim srcFile As String srcFile = "F:\My Docume... -
ラスターのコンバート
[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... -
チェックアウトとチェックイン
チェックアウト チェックイン
