プログラミング– category –

[vb title="VBA"] 'パス・ファイル設定 Dim strPath As String Dim strFile As String strPath = "D:\Workspace\_Hobby\GPS2\Photo" strFile = "P1200586.JPG"   'ラスタ ワークスペースへアクセス Dim pWorkspaceFactory As IWorkspaceFactory Set pWorkspaceFactory = New RasterWorkspaceFactory   Dim pRasterWorksp...

[csharp title="C#"] try {   } catch (Exception ex) {     if (ex is COMException)     {         COMException exCOM = (COMException)ex;         MessageBox.Show(exCOM.Message, "エラー（" + exCOM.ErrorCode.ToString() +eBoxButtons.OK, MessageBoxIcon.Error);     }     else     {         MessageBox.Show(ex.Messag...

[python title="Python"] import math radian = math.atan((Y2-Y1)/(X2-X1)) degrees = radian * 180 / math.pi [/python]

この記事はパスワードで保護されています

[python title="Python"] #coding:cp932   # インポート import arcview, arcpy   # ワークスペースを含むフォルダーを指定 arcpy.env.workspace = r"C:\Temp\Geodatabases"   listWS = arcpy.ListWorkspaces("*") # List 関数の実行   for ws in listWS:     print "ワークスペース: " + ws       # ワークス...

この記事はパスワードで保護されています

[vb title="VBA"] '****************************************************************************** ' 定義      :Function fncPrintMap ' 概要      :Mapを用紙全体に印刷する関数 ' 第1引数   :pActiveVeiw            As  IActiveView ActiveView ' 第2引数   :intOrientation         As  Integer     用紙方向 縦:1, 横:2 ' 第3引数 ...

[vb title="VBA"] 'http://help.arcgis.com/en/sdk/10.0/vba_desktop/conceptualhelp/index.html#//0001000000m0000000   '標準ラベルエンジンはAnnotateMapをインスタンス化   Public Sub ChangeMxDocumentLabelEngine()           'This simple subroutine will change the label engine for all data frames in a map to be the maplex la...

[vb title="VBA"] 'ラスタをASCIIグリッドに変換し、さらに投影法を定義して新しいRasterDatasetを作成するサンプル 'ラスタの設定を変更すると上書きできないので、ASCII変換用に一旦テンポラリのRasterDatasetを作成している   Sub subConvertASCII2Raster()   'ASCIIファイルフルパス Dim srcFile As String srcFile = "F:\My Docume...

[csharp title="C#"] //エレメントの取得 IGraphicsContainerSelect pGCS = (IGraphicsContainerSelect)axMapControl1.Map; IElement pElement = pGCS.SelectedElement(0);   //エレメントからジオメトリを取得 IGeometry pGeometry = pElement.Geometry; ISegmentCollection pSegmentCollection = (ISegmentCollection)pGeometry; ICircular...