Data+ International - Вопросы и Ответы - Вопросы с тегом arcobjects

ARCScene BaseHeights в StandAlone приложении.

Tue, 29 May 2018 07:16:24 +0000

Мы разрабатываем standalone приложение, на базе axSceneControl.

Существует ли возможность с помощью ARCGIS Engine SDK задавать параметры слоя, а именно Base Height:

Floating on a custom surface
Factor to convert layer elevation to scene units

Спасибо.

IGeoDBDataTransfer - копировать класс в набор

Wed, 16 Jan 2013 05:48:52 +0000

    Всем привет!
По теме копирования данных из одной БГД в другую нашёл в хелпе хорошую статью "Copying and pasting geodatabase datasets". Реализовал копирование, результат такой:
1) копирование набора целиком - ок
2) копирование класса из корня - ок
3) копирование класса из набора - проблема: во второй БГД класс оказывается в корне. В связи с этим вопросы:
Как заставить Trasfer копировать класс в соответствующий набор, который УЖЕ имеется в базе-приемнике? А если его нет - создать.

Вот чего имею сейчас:

            // Get the first GDB.
            IGPValue parameterValue = m_GPUtilities.UnpackGPValue(paramvalues.get_Element(_InWorkspaceID));
            IDataset workspace_par = m_GPUtilities.OpenDataset(parameterValue);

            // Get the second GDB.
            parameterValue = m_GPUtilities.UnpackGPValue(paramvalues.get_Element(_InChildID));
            IDataset workspace_ch = m_GPUtilities.OpenDataset(parameterValue);

            // for transfer classes
            IWorkspaceName sourceWorkspaceName = (IWorkspaceName)workspace_par.FullName;
            IWorkspaceName targetWorkspaceName = (IWorkspaceName)workspace_ch.FullName;
            IName targetName = (IName)targetWorkspaceName;
            // Create an enumerator for source datasets.
            IEnumName sourceEnumName = new NamesEnumeratorClass();
            IEnumNameEdit sourceEnumNameEdit = (IEnumNameEdit)sourceEnumName;

            // New feature class or table
            parameterValue = m_GPUtilities.UnpackGPValue(paramvalues.get_Element(_InFeaturesID));
            IGPMultiValue multiValue = parameterValue as IGPMultiValue;

            for (int i = 0; i < multiValue.Count; i++)
            {
               IFeatureClass fc; IQueryFilter qf;
               m_GPUtilities.DecodeFeatureLayer(multiValue.Value, out fc, out qf);

               IDatasetName sourceDatasetName = (IDatasetName)(fc as IDataset).FullName;
               IName sourceName = (IName)sourceDatasetName;
               // Add the name object for the source class to the enumerator.
               sourceEnumNameEdit.Add(sourceName);
            }

            // Create a GeoDBDataTransfer object and a null name mapping enumerator.
            IGeoDBDataTransfer geoDBDataTransfer = new GeoDBDataTransferClass();
            IEnumNameMapping enumNameMapping = null;

            // Use the data transfer object to create a name mapping enumerator.
            Boolean conflictsFound = geoDBDataTransfer.GenerateNameMapping(sourceEnumName, targetName, out enumNameMapping);
            enumNameMapping.Reset();

            if (conflictsFound)
            { ...
            }

            // Start the transfer.
            geoDBDataTransfer.Transfer(enumNameMapping, targetName);

Проверка временной лицензии

Mon, 10 Dec 2012 11:55:37 +0000

Здравствуйте,
на компьютере установлен десктоп10 с триальной лицензией, из своей программы пытаюсь проверить лицензию таким образом: m_AOLicenseInitializer.InitializeApplication(new esriLicenseProductCode[] { esriLicenseProductCode.esriLicenseProductCodeArcInfo, esriLicenseProductCode.esriLicenseProductCodeArcEditor, esriLicenseProductCode.esriLicenseProductCodeArcView},
new esriLicenseExtensionCode[] { })
говорит нет таких лицензий.
Заранее спасибо

Помогите исправит код

Tue, 16 Oct 2012 17:08:53 +0000

Помогите пожалуйста ни как не могу понять в чем проблема!!!

Public Sub CreateShapefile()

Dim pFSO As Object, sFCName As String
sFCName = "d:\temp\myshape.shp" 'файл без имени
Set pFSO = CreateObject("Scripting.FileSystemObject")

Dim pFWS As IFeatureWorkspace
Dim pWorkspaceFactory As IWorkspaceFactory
Set pWorkspaceFactory = New ShapefileWorkspaceFactory

Set pFWS = pWorkspaceFactory.OpenFromFile("d:\temp", 0)

Dim pFields As IFields
Dim pFieldsEdit As IFieldsEdit
Set pFields = New Fields
Set pFieldsEdit = pFields

Dim pField As IField
Dim pFieldEdit As IFieldEdit

Set pField = New Field
Set pFieldEdit = pField
pFieldEdit.Name = strShapeFieldName
pFieldEdit.Type = esriFieldTypeGeometry

Dim pGeomDef As IGeometryDef
Dim pGeomDefEdit As IGeometryDefEdit
Set pGeomDef = New GeometryDef
Set pGeomDefEdit = pGeomDef
With pGeomDefEdit
.GeometryType = esriGeometryPoint
Set .SpatialReference = New UnknownCoordinateSystem 'система кординат
End With
Set pFieldEdit.GeometryDef = pGeomDef
pFieldsEdit.AddField pField

Set pField = New Field
Set pFieldEdit = pField
With pFieldEdit
.Length = 30
.Name = "НАПРАВЛЕНИЕ"
.Type = esriFieldTypeString
End With
pFieldsEdit.AddField pField

Set pField = New Field
Set pFieldEdit = pField
With pFieldEdit
.Length = 30
.Name = "СКОРОСТЬ"
.Type = esriFieldTypeString
End With
pFieldsEdit.AddField pField

Set pFeatClass = pFWS.CreateFeatureClass(strName, pFields, Nothing, _
Nothing, esriFTSimple, strShapeFieldName, "")
End Sub

Public Sub AddShapeFile()
Dim pWorkspaceFactory As IWorkspaceFactory
Dim pFeatureWorkspace As IFeatureWorkspace
Dim pFeatureLayer As IFeatureLayer
Dim pMxDocument As IMxDocument
Dim pMap As IMap

Set pWorkspaceFactory = New ShapefileWorkspaceFactory
Set pFeatureWorkspace = pWorkspaceFactory.OpenFromFile("D:\Temp", 0)

Set pFeatureLayer = New FeatureLayer
Set pFeatureLayer.FeatureClass = pFeatureWorkspace.OpenFeatureClass("")
pFeatureLayer.Name = pFeatureLayer.FeatureClass.AliasName

Set pMxDocument = Application.Document
Set pMap = pMxDocument.FocusMap
pMap.AddLayer pFeatureLayer
End Sub

Public Sub StartEditing()
Dim pEditor As IEditor
Dim pID As New UID
Dim pFeatureLayer As IFeatureLayer
Dim pDataset As IDataset
Dim pMap As IMap
Dim pMxDoc As IMxDocument
Dim LayerCount As Integer

Set pMxDoc = Application.Document
Set pMap = pMxDoc.FocusMap
pID = "esriCore.Editor"
Set pEditor = Application.FindExtensionByCLSID(pID)

If pEditor.EditState = esriStateEditing Then Exit Sub

'Start editing the workspace of the first featurelayer you find
For LayerCount = 0 To pMap.LayerCount - 1
If TypeOf pMap.Layer(LayerCount) Is IFeatureLayer Then
Set pFeatureLayer = pMap.Layer(LayerCount)
Set pDataset = pFeatureLayer.FeatureClass
pEditor.StartEditing pDataset.Workspace
Exit For
End If
Next LayerCount

End Sub

Public Sub AddPoint()
Dim edit As IEditSketch
Dim p As IPoint
Set edit = pEditor
Set p = New Point
Dim x As Double
Dim y As Double
x = 61472491264#
y = 27120216734#
p.PutCoords x, y
edit.AddPoint p, True
End Sub

Public Sub ExtractValuesToPoints()
Dim pointDataset As IGeoDataset
Dim valueRaster As IGeoDataset

Dim pExtractionOp As IExtractionOp2
Set pExtractionOp = New RasterExtractionOp

Dim pRas01 As IRaster
Set pRas01 = readRasterFromDisk("c:\data\myRaster1")

Dim pFC01 As IFeatureClass
Set pFC01 = readPointFeatureFromDisk("d:\temp\.shp")

Dim pOutGeoDS As IGeoDataset
Set pOutGeoDS = pExtractionOp.ExtractValuesToPoints(pFC01, pRas01, True)

положение текста в ParagraphTextElement

Mon, 20 Aug 2012 13:25:14 +0000

есть объект ParagraphTextElement, можно-ли в нем реализовать вертикальное выравнивание или узнать какое место занимает в нем текст, либо реальную высоту уже отформатированного объектом текста?

Переход на от VBA к VB.NET

Fri, 03 Aug 2012 08:05:19 +0000

Друзья, мне надоел ущербный интерфейс встроенного VB редактора ArcGIS 9.3.1. Решил для себя точно, пока еще не много чего написано перевести все на VB.NET, да и в будущем при переводе на 10-ю версию проще будет. Возникло несколько вопросов:
1. Какую версию Visual Studio ставить? Пока поставил 2005 чтобы точно подошло, но если возможно, можно ли работать на 2010 Express?
2. не совсем понятно, как переносить написанное в Visual Studio в ArcGIS 9.3.1., написанная DLL не загружается почему то, в справке у них там при создании проекта есть отдельный пункт ArcGIS проектов, у меня его нет
3. Кое что получилось уже, с помощью этого:
Dim pAppROT As AppROT = New AppROT
Dim pAppRef As AppRef = pAppROT.Item(0)
Dim pApplication As IApplication = pAppRef
Dim pMxDocument As IMxDocument = pApplication.Document
Мне удалось получить доступ к текущему запущенному приложению
Как написано в справке:
Dim Type As Type = Type.GetTypeFromProgID("esriFramework.AppRef")
Dim pObject As System.Object = Activator.CreateInstance(Type)
Dim pApplication As IApplication = pObject
почему то не работает, выдает ошибку:
Создание экземпляра COM-компонента с CLSID {E1740EC5-9513-11D2-A2DF-0000F8774FB5} при помощи интерфейса IClassFactory завершилось со сбоем из-за следующей ошибки: 8000ffff.

Хочется чтобы при нажатии на кнопку на панели инструментов ArcGIS выводилась форма созданная в Visual Studio и оставалась возможность навигации по карте остальными инструментами ArcGIS.

Расстояние из градусов в метры

Tue, 31 Jul 2012 08:11:46 +0000

День добрый!
Вопрос вот в чем, я получаю расстояние между двух объектов с помощью
pProximityOperator.ReturnDistance
А оно в градусах, а как мне получить это же расстояние в метрах?

где документация по ArcObjects?

Mon, 30 Jul 2012 02:10:49 +0000

А вот такой вопрос по поводу документации- на сайте
Data+ в разделе "Введение в ArcObjects"
(http://www.dataplus.ru/Arcrev/Number_19/15_object.html)
написано(дословно)-"Дополнительную информацию можно почерпнуть из входящей в комплект ArcGIS книги ESRI «Изучение ArcObjects» (Exploring Arcobjects), которая рассматривает каждую из этих подсистем более детально."
Я такой книги не нашла, хотя ArcGIS у нас куплен официально..
Это что-дезинформация?
Откликнитесь пожалуйста, кто нашёл в комплекте поставки такую книгу?

Индексирование таблицы

Wed, 25 Jul 2012 12:00:58 +0000

При работе с таблицами столкнулся с такой проблемой. У каждой таблицы есть индексное поле, ObjectID обычно называется, при удалении из таблицы строки а позже при добавлении новой, получается что пропущен один и индекс...
В последствии при работе с таблицей в цикле выскакивает ошибка
Run-time Error ...

Пример цикла:

For i = 1 To pTable.RowCount(Nothing)

    Dim pFeatureT As IFeature
    Set pFeatureT = pTable.GetRow(i)
    Dim pPointT As iPoint
    Set pPointT = pFeatureT.Shape
        If pPointT.x = pPoint.x And pPointT.Y = pPoint.Y Then
        MsgBox "Error"
        Exit Sub
    Else
        End If
Я так думаю надо проиндексировать таблицу или как то в коде обходить эту ошибку, может кто то сталкивался с этой проблемой и знает как ее лучше решить?

где он - этот ArcObjects?

Wed, 25 Jul 2012 08:32:24 +0000

Помогите разобраться с ArcObjects. У меня на рабочем столе установлен ArcGIS Desktop-значит и ArcObjects тоже
должен быть?(я так понимаю это же его неотемлемая часть)Или его отдельно надо приобретать и устанавливать?
Если он есть-как к нему обратиться, из какого пункта меню? Где этот список обьектов ArcObjects по классам, с их методами и свойствами?
В Обозревателе обьектов( редактор Visual Basic)- в окне списка библиотек слова ArcObjects нет...

Перейти к точке

Fri, 13 Jul 2012 11:28:41 +0000

Добрый день! В ArcGIS есть инструмент "Перейти к точке XY"
С помощью какого интерфейса можно сделать нечто похожее, особенно интересует как "перейти к" и "подсветить".
Самому вот что удалось:

Dim pActiveViewe As IActiveView
Set pActiveViewe = pMxDocument.ActiveView

Dim pScreenDisplayZoom As IScreenDisplayZoom
Set pScreenDisplayZoom = pActiveViewe.ScreenDisplay
pScreenDisplayZoom.ZoomMoveTo pPoint

pActiveViewe.Refresh

Только почему то ничего не происходит при выполнении этого кода, но и ошибок не выдает!

Редактирование высоты точки выделенной линии

Tue, 12 Jun 2012 11:57:56 +0000

Привет всем.
Есть у меня на карте в ArcScene линейный слой. Нужно в каждой выделенной линии данного слоя у одной из точек (пусть будет 1я точка) изменить Z-координату на некое число, пусть будет 55. Вот.
Выделенные линии я могу получить, конвертирую их в IPointCollection, могу получить высоту каждой точки. А как изменить-то высоту?
Вот как я делаю:

 
            IPoint TestPoint;
            TestPoint = pointCollection.get_Point(0);
            TestPoint.X = pointCollection.get_Point(0).X;
            TestPoint.Y = pointCollection.get_Point(0).Y;
            TestPoint.Z = pointCollection.get_Point(0).Z + zOffset;

            //MessageBox.Show("test.z = " + TestPoint.Z.ToString());

            var transform3D = (ITransform3D)TestPoint;
            transform3D.Move3D(0, 0, zOffset);

            var newTestPoint = (IPoint)transform3D;
            
            pointCollection.ReplacePoints(0, 1, 1, newTestPoint);

однако, после выполнения данного участка кода ничего не изменяется в координатах.

Также пробовал через IGeometryBridge:




            IPoint[] array = new IPoint[1];

            array[0] = newTestPoint;

            IGeometryBridge testBridge = new GeometryEnvironmentClass();
            //MessageBox.Show("until testBridge");
            try
            {
                testBridge.ReplacePoints(pointCollection, 0, 1, array);
            }
            catch (Exception ex)
            {
                MessageBox.Show(ex.ToString());
            }
            //MessageBox.Show("after testBridge");

Тут вообще беда - постоянно выскакивает Exception...

В какие полигоны попадает точка?

Thu, 24 May 2012 11:20:22 +0000

Добрый день форумчане! Сразу оговорюсь новичек, только начал читать книгу Exploring ArcObjects, однако процесс замедляется из за необходимости перевода. Передо мной стоит следующая задача:
Пользователь вводит координаты точки в диалоговом окне, скрипт должен добавить точку в существующий слой или в новый слой(не суть) и вывести сообщение, содержащее информацию о том в какие полигоны из определенного слоя попадает точка. Как создать точку я вроде разобрался, а вот со второй частью встрял. Плиз, направьте хотя бы в какую сторону копать, может есть примеры какие то...

Приближение к слою

Thu, 26 Apr 2012 09:13:22 +0000

Есть несколько слоёв. Необходимо программно, по очереди производить приближение к слою и экспортировать в JPG. С экспортом понятно, не получается приблизить к слою .

использую оператор

pActiveView.Extent = pMap.Layer(0).AreaOfInterest

Вручную приближает нормально (Zoom To Layer), программно не получается (ощущение что все слои вмещает в поле)

Заполнение атрибутивной таблицы данными

Mon, 23 Apr 2012 10:19:38 +0000

Есть Слой A В ней есть точки и атрибутивное поле X с некоторыми значениями. Есть несколько кнопок. При нажатии на кнопку данные в поле X заполняются данными с другой некоторой таблице MS access.Потом Карта обновляется. Напишите пожалуйста пример на C#

c# Raster to MrSID

Thu, 19 Apr 2012 11:15:37 +0000

Здравствуйте!
Никак не могу перевести код vb на с#.
в коде хочу tif-файл перекодировать в формат *.sid
на vb все работает прекрасно!
был бы рад помощи, заранее спасибо!

        static void Main(string[] args)
        {
            //ESRI License Initializer generated code.
            m_AOLicenseInitializer.InitializeApplication(new esriLicenseProductCode[] { esriLicenseProductCode.esriLicenseProductCodeArcInfo },
            new esriLicenseExtensionCode[] { });
            int i = 0;
            IGxCatalog pGxCatalog = new GxCatalog();

            //args[0].ToString() = "c:\\scan\\img00001.tif"
            IGxObject pGxObj = (IGxObject)pGxCatalog.GetObjectFromFullName(args[0].ToString(), out i);

            IGxObjectArray pGxArr = new GxObjectArray();
            //IGxObjectArray pGxArray = (IGxObjectArray)pGxObj;
            pGxArr.Insert(-1, pGxObj);

            //IRasterWorkspace pWsr = OpenRasterWorkspace(args[1].ToString());
            //IRasterDataset rasterDataset = pWsr.OpenRasterDataset("img00001.tif");
            IWorkspace pWs;
            IWorkspaceFactory pWSF = new RasterWorkspaceFactory();
            //args[1].ToString() = "c:\\scan"
            pWs = pWSF.OpenFromFile(args[1].ToString(), 0);

            IRasterEncoder pSid = new SidEncoder();

            pSid.Datasets = (IGxObjectArray)pGxArr;
            //args[3] = 50
            pSid.EncodingRatio = (float)Convert.ToDouble(args[3]);
            //Int32[] pBandArray = new Int32[3];
            //long[] pBandArray = new long[3];
            int[] pBandArray = new int[3];
            //System.
            pBandArray[0] = 0;
            pBandArray[1] = 1;
            pBandArray[2] = 2;

            pSid.BandIndices = (object)pBandArray;
           if (pSid.CanEncode() == esriRasterCanEncodeResult.esriRasterCanEncodeResultCanBeEncoded)
            { pSid.Encode("qqq.sid", pWs); }
        }
    выдает такую ошибку
band index 154386672 not available in input dataset

ArcScene add-in

Tue, 17 Apr 2012 17:14:11 +0000

Потихоньку пытаюсь разобраться с ArcObjects, но пока не совсем всё гладко, как хотелось бы. Не подскажете (можно куском кода, можно ссылкой на литературу, где есть возможность найти ответ), как реализовать простую операцию Rotate для какого-либо выделенного объекта в ArcScene? Желательно на C#.
То есть есть несколько слоёв, в одном из них - объекты, сделанные, скажем, в SketchUp, один из которых выделен. Есть самописная форма с двумя кнопками, при нажатии на которые объект вращается либо против часовой, либо по часовой стрелке соответственно.

Создание инструментов для ArcMap на Java

Wed, 04 Apr 2012 05:48:47 +0000

Добрый день!
Помогите пожалуйста...
Мне нужно создать несколько инструментов и вставить их в Toolbar ArcMap 9.3.1 (в крайнем случае ArcMap 10)
На начальном уровне владею Java.
С чего начать?
Как доступиться до объектов загруженого приложения?
Как подключать jar-библиотеку?

Не работает топологический оператор в ArcGIS 10

Thu, 29 Mar 2012 07:05:17 +0000

Передо мной слоит задача: разбить круг на секторы. Использовала топологический оператор ITopologicalOperator для ArcGIS v.9, метод Cut. Когда перешли на ArcGIS v.10, после перекомпиляции программы она стала падать в случаях, если сектор узкий. В тех. поддержке мне предложили использовать новый топологический оператор. Попробовала ITopologicalOperator 1-5. На объектах, ниже версии 3, программа падает, а когда использую ITopologicalOperator4 или ITopologicalOperator5, операция:
"ITopologicalOperator5Ptr pTopoOp = Circle"
выдает, что pTopoOp = NULL. И отрезать сектор я снова не могу. Подскажите, это баг аркобъектов или фича? Как мне ее "побороть"?

ArcObjects

Tue, 06 Mar 2012 18:22:23 +0000

Здравствуйте, форумчане! Дело в том, что мне для диплома нужно разработать приложение с применением ArcObjects. Так вот у меня такой вопрос- пользователям приложения нужно ли будет какую-то лицензию иметь на ArcObjects, если у них нет ArcGis, чтобы работать с моим приложением? Может быть вопрос немного глупо звучит, просто я только начинаю по-настоящему осваивать программирование в этой области...Заранее спасибо.