プログラミング– 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...

バージョン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...