VBA– tag –

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

[vb title="VBA"] Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument   Dim pNALayer As INALayer Set pNALayer = pMxDocument.FocusMap.Layer(0)   Dim pFeatureLayer As IFeatureLayer Set pFeatureLayer = pNALayer.LayerByNAClassName("Routes")   'ルート '   ストップ    ："Stops" '   バリア     ...

[vb title="VBA"] Attribute VB_Name = "Module1" Option Explicit   Sub test()   Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument   '始点ポイント（GPS）（1番目レイヤ） Dim pFLayer0 As IFeatureLayer Set pFLayer0 = pMxDoc.FocusMap.Layer(0)   Dim pFClass0 As IFeatureClass Set pFClass0 = pFLayer0.FeatureClass ...

[vb title="VBA"] Function fncSpatialReference(valType As Long, blnGeographic As Boolean) As ISpatialReference 'DeveloperHelpから以下を参照 '地理座標系(pcsType) 'esriSRGeoCSType Contains 'https://desktop.arcgis.com/en/arcobjects/latest/net/webframe.htm#esriSRGeoCSType.htm 'esriSRGeoCS2Type Constants 'https://desktop....

[vb title="VBA"] '地理座標系変換 Public Sub Project() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pGCS_Tokyo As ISpatialReference Set pGCS_Tokyo = fncSpatialReference(esriSRGeoCSType.esriSRGeoCS_Tokyo, True) Dim pGCS_JGD_2000 As ISpatialReference Set pGCS_JGD_2000 = fncSpatialReference(esriSRGe...

[vb title="VBA"] 'マップ単位を「度 分 秒」に設定できない。またその設定の判別もできない。以下は回避策 'NIM031475 'CQ00151828 Sub SetDisplayUnitsDD()     Dim pMxDocument As IMxDocument     Set pMxDocument = ThisDocument           Dim pMap As IMap     Set pMap = pMxDocument.FocusMap           Dim pReportUnitFormat As I...

[vb title="VBA"] 'GxDialogの使用 Publig Sub ShowGxDialogUsingJPGFilter()           Dim pGxDialog As IGxDialog     Set pGxDialog = New GxDialog           Dim pGxObjectFilterCollection  As IGxObjectFilterCollection     Set pGxObjectFilterCollection = pGxDialog           Dim pGxObjectFilter As IGxObjectFilter     Set p...

[vb title="VBA"] 'http://support.esri.com/es/knowledgebase/techarticles/detail/17082   Sub showLayerProperty()     '最上位レイヤーを取得     Dim mxDocument As IMxDocument     Set mxDocument = ThisDocument           Dim layer As ILayer     Set layer = mxDocument.FocusMap.layer(0)           Dim sheet As IComPropertySh...

[vb title="VBA"] 'StyleGallery、ServerStyleGalleryはシングルトンオブジェクト Private pStyleGallery As IStyleGallery Private pStyleGalleryStorage As IStyleGalleryStorage   'ServerStyleファイルの読み込み Private Sub Form_Load()     'Dim m_pStyleGallery As IStyleGallery     Set pStyleGallery = New ServerStyleGallery   ...

[vb title="VBA"] Private Sub ConvertFeatureClassOperation() 'レイヤからフィーチャクラスを取得 Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pFeatureLayer As IFeatureLayer Set pFeatureLayer = pMxDocument.FocusMap.Layer(0) Dim pFeatureClass As IFeatureClass Set pFeatureClass = pFeatureLayer.Feature...