#arcobjects

[wingfield-since1995]

アノテーション グループ内の空間参照の設定

ArcMap → [データ フレーム] プロパティ → [アノテーション グループ] 内の空間参照の取得、及び設定方法。 Sub GetSpatialReferenceOnTheAnnotationGroup() Dim pMxDocument As IMxDocument Set pMxDocument = Application.Document Dim pMap As IMap Set pMap = pMxDocument.FocusMap Dim pCompositeGraphicsLayer As ICompositeGraphicsLayer Set pCompositeGraphicsLayer = pMap.BasicGraphicsLayer Dim pCompositeLayer As ICompositeLayer Set pCompositeLayer…

View On WordPress

[wingfield-since1995]

InMemoryWorksapce の取得方法

[vb title=”VBA”] ‘****************************************************************************** ‘ 定義 :Private Function GetInMemoryWorkspace() ‘ 概要 :InMemoryWorkspaceの取得 ‘ 備考 :このWorkspaceではCreateFeatureDatasetやCreateQyeryDefは無効 ‘ 第1引数 :String Workspace名 ‘ 第2引数 :Boolean (オプション デフォルト値:True)InMemoryWorkspaceを新規作成するかどうか ‘ 第3引数 :IPropertySet (オプション…

View On WordPress

[wingfield-since1995]

ラスターのジオリファレンス

[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) = new PointClass();      pPoint(0).PutCoords(131.328125, 33.9583333333333);      pPoint(1).PutCoords…

View On WordPress

[wingfield-since1995]

既存のクエリ レイヤーから情報を取得

[vb title=”VBA”] Sub GetQueryLayerInfo()     Dim pMxDoc As IMxDocument     Set pMxDoc = ThisDocument               Dim pFL As IFeatureLayer     Set pFL = pMxDoc.FocusMap.Layer(0)           Dim pDataset As IDataset     Set pDataset = pFL           Dim pQueryTableName As IQueryTableName     Set pQueryTableName = pDataset.FullName           Dim pQueryDescription As IQueryDescription     Set…

View On WordPress

[wingfield-since1995]

測地系の変更（座標変換）

[csharp title=”C#”] static void Main(string[] args)  {      //ESRI License Initializer generated code.      m_AOLicenseInitializer.InitializeApplication(new esriLicenseProductCode[] { esriLicenseProductCode.esriLicenseProductCodeBasic },      new esriLicenseExtensionCode[] { });      //ESRI License Initializer generated code.          Type t =…

View On WordPress

[wingfield-since1995]

空間参照の定義（簡易）

[vb title=”VBA”] Function fncSpatialReference(valType As Long, blnGeographic As Boolean) As ISpatialReference   ‘DeveloperHelpから以下を参照   ‘地理座標系(pcsType) ‘esriSRGeoCSType Contains ‘esriSRGeoCS2Type Constants ‘esriSRGeoCS3Type Constants   ‘投影座標系(gcsType) ‘esriSRProjCSType Constants ‘esriSRProjCS2Type Constants ‘esriSRProjCS3Type Constants ‘esriSRProjCS4Type Constants   ‘例 valType =…

View On WordPress

[wingfield-since1995]

空間参照の XY 座標精度と XY 許容値を設定する方法

[vb title=”VBA”] Public Sub CreateXYResolutionAndXYTolerance()     Dim pSpatialReferenceFactory As ISpatialReferenceFactory2     Set pSpatialReferenceFactory = New SpatialReferenceEnvironment           Dim pSpatialReference As ISpatialReference     Set pSpatialReference = pSpatialReferenceFactory.CreateGeographicCoordinateSystem(esriSRGeoCS_JapanGeodeticDatum2000)           Dim…

View On WordPress

[wingfield-since1995]

PageLayoutControl の ActiveView 範囲を印刷

[csharp title=”C#”] private void print() {     //Form に配置した PageLayoutControl の ActiveView 範囲を印刷       IActiveView pActiveView = axPageLayoutControl1.ActiveView;     IOutputRasterSettings pOutputRasterSettings = (IOutputRasterSettings)pActiveeenDisplay.DisplayTransformation;     pOutputRasterSettings.ResampleRatio = 1;     //ラスタのピクセル比率を1に変更           IPrinter pPrinter =…

View On WordPress