Identify

Question

Хочу через VB написать прогу для идентификации обьектов, в ARCGISe VBA всё работает а вот в VB немогу разобраться.

Dim pMxDoc As IMxDocument

Set pMxDoc = Application.Document

Set pActiveView = pMxDoc.FocusMap

помогите кто знает

Answer 1

Dim pApp As ImxApplication (mx - это для ArcGis, gx - это для ArcCatalog)
Dim pMxDocument As IMxDocument

Set pApp = Application
Set pMxDocument = pApp.Document

...

Answer 2

Он не знает что такое pApp.Document , я программирую в Visual Basic, а не в среде ArcGis VBA

Answer 3

Dim pApp As IApplication

перепутал:)

Answer 4

 я думаю надо так 

  Dim pApp As IApplication
  Set pApp = New AppRef
  pApp.OpenDocument sFilePath        &nb sp; '  (Путь)

  Dim pDoc As IMxDocument
  Dim pMap As IMap
  Dim pIdentify As IIdentify
  Set pDoc = pApp.Document 
  Set pMap = pDoc.FocusMap
  Set pIdentify = pMap.Layer(0)

  А вот дальше чото немогу сообразить, давай вместе сообразим ведь всётаки  соседи, кстати в каких проетах работаешь, может мы даже одну работу делаем, потому что я и по Южному Казахстану работаю, так что жду ответа, если чо надо обращайся вместе поталкуем, пока

Answer 5

надо добавить в references

esri carto
     geometry
     system
     systemui
     framework
     arcmapui

Implements ITool
Implements ICommand

и VBA пример (developer help) заработает

Answer 6

Ты меня непонял, я создал свой интерфейс на visual Basic 6.0 и в нём хочу создать identify,  спасибо за помощь, хоть что ты и писал я это сам знал (ты брал примеры на VBA, они у меня все есть) и я уже разобрался как это сделать, вроде на форуме на этот вопрос никто не мог ответить. ладно пока если чо пиши