プログラミング– category –

[vb title="VBA"] Dim pPoint As IPoint Set pPoint = New Point Call pPoint.PutCoords(422480, 324767.31)    '中心点   Dim pEnvelope As IEnvelope Set pEnvelope = pPoint.Envelope   pEnvelope.XMin = pPoint.X - 5       '楕円の左端 pEnvelope.XMax = pPoint.X + 2       '楕円の右端 pEnvelope.YMin = pPoint.Y - 2       '楕円の上...

[csharp title="C#"] static void Main(string[] args)  {      //ESRI License Initializer generated code.      m_AOLicenseInitializer.InitializeApplication(new esriLicenseProductCode[] { esriLicenseProductCode.esriLicenseProductCodeBasic },      new esriLicenseExtensionCode[] { });      //ESRI License Initializer gener...

[vb title="VBA"] Private Function Get3DPropsFromLayer(layer As ILayer) As I3DProperties3     Dim layerExtensions As ILayerExtensions     Set layerExtensions = layer     Dim i As Long     For i = 0 To layerExtensions.ExtensionCount - 1                   If TypeOf layerExtensions.Extension(i) Is I3DProperties3 Then   ...

[vb title="VBA"] Public Sub MoveTableDockWindow()   Dim pDockableWindowManager As IDockableWindowManager   Set pDockableWindowManager = Application       Dim pUID As IUID   Set pUID = New UID   pUID.Value = "{2B740D8F-442C-4975-BCE7-59D9949DAD9E}" 'TableDockWindow       Dim pDockableWindow As IDockableWind...

[vb title="Visual Basic"] 'フィーチャの取得 Dim pPoint As IPoint = m_hookHelper.ActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(X, Y)   Dim pIdentify As IIdentify = CType(pCountryFeatureLayer, IIdentify) Dim pArray As IArray = pIdentify.Identify(CType(pPoint, IGeometry)) If pArray Is Nothing Then     Messa...

[vb title="VBA"] Sub getCoverageFeatureClass()     Dim pWSF As IWorkspaceFactory     Set pWSF = New ArcInfoWorkspaceFactory           Dim pFW As IFeatureWorkspace     Set pFW = pWSF.OpenFromFile("D:\Workspace\Support\160222-000006\covs\covs\network", 0)           Dim fcc As IFeatureClassContainer     Set f...

[csharp title="C#"] namespace DesktopConsoleApplication1 {     class Program     {         private static LicenseInitializer m_AOLicenseInitializer = new DesktopConsoleApplication1.LicenseInitializer();               [STAThread()]         static void Main(string[] args)         {             m_AOLicenseInitializer.I...

[vb title="VBA"] Sub templateInfo()     Dim pTemplates As ITemplates     Set pTemplates = Application.Templates           Dim pTempCount As Long     pTempCount = pTemplates.Count           Dim i As Long     For i = 0 To pTemplates.Count - 1            Debug.Print pTemplates.Item(i)     Next i        End Sub   Sub Ge...

[vb title="VBA"] Dim pRgbColor As IRgbColor Set pRgbColor = New RgbColor   RgbColor.Red = Int((255 * Rnd) + 1) RgbColor.Green = Int((255 * Rnd) + 1) RgbColor.Blue = Int((255 * Rnd) + 1) [/vb]

[vb title="VBA"] '1回だけ操作を元に戻す方法 Sub test() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pMap As IMap Set pMap = pMxDocument.FocusMap Dim pFLayer As IFeatureLayer Set pFLayer = pMap.Layer(0) Dim pFClass As IFeatureClass Set pFClass = pFLayer.FeatureClass Dim pDataset As IDataset Set p...