プログラミング– category –
-
エンベロープから楕円を作成
[vb title="VBA"] Dim pPoint As IPoint Set pPoint = New Point Call pPoint.PutCoords(422480, 324767.31) '中心点 Dim pEnvelope As IEnvelope Set pEnvelope = pPoint.Envelope pEnvelope.XMin = pPoint.X - 5 '楕円の左端 pEnvelope.XMax = pPoint.X + 2 '楕円の右端 pEnvelope.YMin = pPoint.Y - 2 '楕円の上... -
測地系の変更(座標変換)
[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 gener... -
I3DProperties3 オブジェクトの取得
[vb title="VBA"] Private Function Get3DPropsFromLayer(layer As ILayer) As I3DProperties3 Dim layerExtensions As ILayerExtensions Set layerExtensions = layer Dim i As Long For i = 0 To layerExtensions.ExtensionCount - 1 If TypeOf layerExtensions.Extension(i) Is I3DProperties3 Then ... -
属性テーブル ウィンドウの位置とサイズを変更
[vb title="VBA"] Public Sub MoveTableDockWindow() Dim pDockableWindowManager As IDockableWindowManager Set pDockableWindowManager = Application Dim pUID As IUID Set pUID = New UID pUID.Value = "{2B740D8F-442C-4975-BCE7-59D9949DAD9E}" 'TableDockWindow Dim pDockableWindow As IDockableWind... -
BaseTool を使用したフラッシュ
[vb title="Visual Basic"] 'フィーチャの取得 Dim pPoint As IPoint = m_hookHelper.ActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(X, Y) Dim pIdentify As IIdentify = CType(pCountryFeatureLayer, IIdentify) Dim pArray As IArray = pIdentify.Identify(CType(pPoint, IGeometry)) If pArray Is Nothing Then Messa... -
カバレッジ フィーチャクラスの取得
[vb title="VBA"] Sub getCoverageFeatureClass() Dim pWSF As IWorkspaceFactory Set pWSF = New ArcInfoWorkspaceFactory Dim pFW As IFeatureWorkspace Set pFW = pWSF.OpenFromFile("D:\Workspace\Support\160222-000006\covs\covs\network", 0) Dim fcc As IFeatureClassContainer Set f... -
ラスターのジオリファレンス(アジャスト)残差・RMS エラーの取得
[csharp title="C#"] namespace DesktopConsoleApplication1 { class Program { private static LicenseInitializer m_AOLicenseInitializer = new DesktopConsoleApplication1.LicenseInitializer(); [STAThread()] static void Main(string[] args) { m_AOLicenseInitializer.I... -
マップ ドキュメントのパスを取得する方法
[vb title="VBA"] Sub templateInfo() Dim pTemplates As ITemplates Set pTemplates = Application.Templates Dim pTempCount As Long pTempCount = pTemplates.Count Dim i As Long For i = 0 To pTemplates.Count - 1 Debug.Print pTemplates.Item(i) Next i End Sub Sub Ge... -
ランダムな色の生成
[vb title="VBA"] Dim pRgbColor As IRgbColor Set pRgbColor = New RgbColor RgbColor.Red = Int((255 * Rnd) + 1) RgbColor.Green = Int((255 * Rnd) + 1) RgbColor.Blue = Int((255 * Rnd) + 1) [/vb] -
ITransactions の使用方法
[vb title="VBA"] '1回だけ操作を元に戻す方法 Sub test() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pMap As IMap Set pMap = pMxDocument.FocusMap Dim pFLayer As IFeatureLayer Set pFLayer = pMap.Layer(0) Dim pFClass As IFeatureClass Set pFClass = pFLayer.FeatureClass Dim pDataset As IDataset Set p...
