プログラミング– category –
-
グループ レイヤー内のレイヤーを取得
[csharp title="C#"] ICompositeLayer pCompositeLayer = (ICompositeLayer )groupLayer; for(int i=0; i<=pCompositeLayer.Count -1; ++i) { ILayer pLayer = CompositeLayer.get_Layer(i); Console.WriteLine(pLayer.Name); } [/csharp] -
テキスト エレメントのサイズと位置
[vb title="VBA"] Dim pTextElement As ITextElement Set pTextElement = pElement Dim pElementProperties As IElementProperties3 Set pElementProperties = pElement Dim pEnvelope As IEnvelope Set pEnvelope = New Envelope pElement.QueryBounds pMxDocument.ActiveView.ScreenDisplay, pEnvelope Dim pPoint As IPoint 'エ... -
マップ スケールの設定
[vb title="VBA"] 'スケール変更 Private Sub ChangeScales_SelectionChange(ByVal newIndex As Long) Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pActiveView As IActiveView Set pActiveView = pMxDocument.ActiveView If TypeOf pActiveView Is IMap Then Dim pMap As IMap ... -
レイヤー表示の切り替え
[vb title="VBA"] Private Sub UIToolControl1_KeyDown(ByVal keyCode As Long, ByVal shift As Long) If Chr(keyCode) = "1" Then Call ChangeVisibleLayer("新規グループレイヤ") 'レイヤ名 End If End Sub Public Sub ChangeVisibleLayer(Optional LayerName As String = "&q... -
角度とラジアンの相互変換
[vb title="VBA"] '角度からラジアンを求める(第2引数をTrueにするとラジアンから角度を求める) Private Function GetDegreeToRadian(ByVal Value As Double, Optional ByVal Reverse As Boolean = False) As Double Select Case Reverse Case False GetDegreeToRadian = ((4 * Atn(1)) / 180) * Value '角度 → ラジアン... -
コンソールにメッセージを表示
[csharp title="C#"] /// <summary> /// コンソールにメッセージを表示(C#) /// </summary> /// <param name="Message">表示する文字列</param> /// <param name="PressKey">キー押下の表示</param> /// <remarks></remarks> static void ShowMessage(string Message... -
ループによるピラミッドの作成
ループのお勉強です。 [python title="Python"] #片方ピラミッドの作成 for c in range(10): print "*" * c #ちゃんとしたピラミッドの作成 max = 10 for c in range(1, max, 2): print (max - c - 1)/2 * " " + "*" * c [/python] -
データ ドリブン ページの条件でラベル表示
[python title="Python"] import arcpy mxd = arcpy.mapping.MapDocument("CURRENT") for pageNum in range(1, mxd.dataDrivenPages.pageCount + 1): mxd.dataDrivenPages.currentPageID = pageNum name = mxd.dataDrivenPages.pageRow.メッシュ番号txt arcpy.mapping.ExportToJPEG(mxd, r"C:\Temp\test" + ... -
シングルトン クラスのインスタンス化
http://edndoc.esri.com/arcobjects/9.2/ComponentHelp/esriFramework/AppRef.htm [csharp title="C#"] System.Type t = System.Type.GetTypeFromProgID("esriGeometry.SpatialReferenceEnvironment"); ISpatialReferenceFactory pSpatialReferenceFactory = (ISpatialReferenceFactory)System.Activator.CreateInstance(t); [/cs... -
ArcGIS Server にアクセスする方法
バージョン10 までの操作方法 [vb title="VBA"] Dim strUser As String = "ユーザ名" Dim strPassword As String = "パスワード" Dim strServer As String = "サーバ名" Dim pID As ESRI.ArcGIS.ADF.Identity pID = New ESRI.ArcGIS.ADF.Identity(strUser, strPassword, strServer) Dim pAgsConn As ESR...
