IT– category –

[vb title="VBA"] 'コピー元のデータフレーム（1番目）とコピー先のデータフレーム（2番目） 'レイヤ数とその順序は同じであること 'フィーチャレイヤのみ追加されていること（ラスタやTIN、グループレイヤなどが含まれていないこと）   Sub CopyRenderer()       Dim pMxDoc As IMxDocument     Set pMxDoc = ThisDocument           'Maps...

[vb title="VBA"] Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument   Dim pActiveView As IActiveView Set pActiveView = pMxDocument.ActiveView   Dim pNewEnvelope As IEnvelope Set pNewEnvelope = New Envelope   Dim pMap As IMap Set pMap = pMxDocument.FocusMap pMap.AreaOfInterest = pNewEnvelope  '[全体表示の...

[vb title="VBA"] 'ThisDocumentの取得 Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument 'アクティブなデータフレームの取得 Dim pMap As IMap Set pMap = pMxDocument.FocusMap '最上位レイヤの取得 Dim pGeoDataset As IGeoDataset Set pGeoDataset = pMap.Layer(0) 'エンベロープを取得 Dim pEnvelope As IEnvelope Set p...

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

[vb title="VBA"] Dim pPolyline As IPolyline Set pPolyline = pFeature.Shape   Dim pPoint As IPoint Set pPoint = New Point pPolyline.QueryPoint esriNoExtension, 0.11, False, pPoint   Debug.Print pPoint.X, pPoint.Y [/vb]

[sql title="SQL"] /******  YYYYMMDD(NUM), CHITEN(TXT)フィールドに付きNICHIJI(TXT)フィールドの最大値を取得  ******/   //共通 SELECT * FROM TABLE1 WHERE TABLE1.NICHIJI2 = (SELECT MAX(TMP.NICHIJI2) FROM TABLE1 TMP WHERE TMP.YYYYMMDD=TABLE1.YYYYMMDD AND TMP.CHITEN=TABLE1.CHITEN)   //SQL Server SELECT * FROM GeoDatabase....

[python title="Python"] yosoro.py   #coding:cp932 def call(a):     return "ヨーソロー " * a －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ １．上記ファイルを C:\Python26\ArcGIS10.0\Lib に置く ２．フィールド演算に以下を記述   import yosoro   yosoro.call(5) [/python]

[python title="Python"] #coding:cp932 #マルチバンド → シングルバンド   import arcpy,os     inras = arcpy.GetParameterAsText(0) #入力ラスタ データセット outWS = arcpy.GetParameterAsText(1) #出力ラスタ データセット     desc = arcpy.Describe(inras) inpath = desc.catalogPath BandCount = desc.bandCount Bands = desc.child...

[csharp title="C#"] //問題の詳細 //ArcReaderConrolを使用するとArcReaderHost.exeが起動するが、アプリケーシ //ョン終了後にこのプロセスがシャットダウンされない。これが原因でアプリケー //ション イベントログにエラーが出力される。対処方法はアプリケーション終 //了時に強制的にArcReaderHost.exeプロセスを終了する   //ドキュメ...

[vb title="VBA"] Sub GetResultElements()     'ユーティリティネットワークエクステンションにアクセスする     Dim pUtilityNetworkAnalysisExt As IUtilityNetworkAnalysisExt     Set pUtilityNetworkAnalysisExt = Application.FindExtensionByName("esriEditorext.UtilityNetworkAnalysisExt")           Dim pNetworkAnaly...