VB и ArcGis

Question

    Добрый день. Есть ли возможность из проги написаной на VB запустить макрос в ArcScene допустим)

то что есть)
Dim myprocess As New Process()
myprocess.StartInfo.FileName = "C:\Program Files\ArcGIS\Bin\ArcScene.exe" --запускаю арксцену
myprocess.StartInfo.Arguments = "C:\123.sxd" -- даже нашел как открыть файл)
myprocess.start()

А вот как дальше запустить макрос хз) Может кто подскажет как или хоть где об этом можно прочитать. В программировании дуб дубом) Давно ничего не делал) А диплом сдавать надо)

Answer 1

Почитать можно здесь:
http://www.esricanada.com/EN_support/1243_6058.asp

Answer 2

Спасибо) Буду разбираться пока)

Answer 3

Все таки не получается запустить макрос в арксцене. Не могу найти в объектах ничего связанного с макросами. Может кто имел дело с этим и сможет наводку дать?

Answer 4

На водку не даём, самим не хватает, можем только проконсультировать!

Находите запущенный экземпляр ArcScene с помощью интерфейса IAppRot.
Для найденного экземпляра, используя интерфейс IVbaApplication и его метод RunVBAMacro, запускаете нужный макрос.
Строчек в пять-шесть, думаю, уложитесь. Почитайте справку, поищите в примере эти слова)

P.S. Тема диплома секретом не является? Можете огласить? Любопытно.

P.S.S. А чего у вас ник такой подозрительный O_o Он вообще про птичку или про что?
    

Answer 5

Эх, ладно, уговорили. Вот так это выглядит на VB.NET:

Dim pAppROT As IAppROT

pAppROT = New AppROTClass

Dim pVbaApplication As IVbaApplication

pVbaApplication = pAppROT.Item(0)

pVbaApplication.RunVBAMacro("Project", "Module1", "ShowMessage", Nothing)

Надо добавить ссылки на сборки ESRI.ArcGIS.Display и ESRI.ArcGIS.Framework. Кроме того, вероятно, придётся поменять название проекта, модуля и скрипта.
Плюс, думаю, вам надо дождаться ещё запуска ArcScene (либо повесить функционал на разные кнопки). А то код выполнится (точнее - не выполнится, а выкинет исключение) ещё до того, когда ArcScene успеет загрузиться.
Поэтому самое тупое, но рабочее решение, это вставить паузу

Threading.Thread.Sleep(10000)

Если комп старый, увеличьте число в скобках. Раз вы пишете

myprocess.StartInfo.FileName = "C:\Program Files\ArcGIS\Bin\ArcScene.exe

то вам, думаю, такое решение сгодится)
    

Answer 6

На водку не даём, самим не хватает, можем только проконсультировать!

Находите запущенный экземпляр ArcScene с помощью интерфейса IAppRot.
Для найденного экземпляра, используя интерфейс IVbaApplication и его метод RunVBAMacro, запускаете нужный макрос.
Строчек в пять-шесть, думаю, уложитесь. Почитайте справку, поищите в примере эти слова)

P.S. Тема диплома секретом не является? Можете огласить? Любопытно.

P.S.S. А чего у вас ник такой подозрительный O_o Он вообще про птичку или про что?
    

Методом научного тыка вчера подобное сделал) И все как ни странно заработало)) Спасибо вам)
Ник нормальный) вообще про птичку он) А тема дипломной геоинформационный сервис для каталогов недвижимости.
    

Answer 7

Эх, ладно, уговорили. Вот так это выглядит на VB.NET:

Dim pAppROT As IAppROT

pAppROT = New AppROTClass

Dim pVbaApplication As IVbaApplication

pVbaApplication = pAppROT.Item(0)

pVbaApplication.RunVBAMacro("Project", "Module1", "ShowMessage", Nothing)

Надо добавить ссылки на сборки ESRI.ArcGIS.Display и ESRI.ArcGIS.Framework. Кроме того, вероятно, придётся поменять название проекта, модуля и скрипта.
Плюс, думаю, вам надо дождаться ещё запуска ArcScene (либо повесить функционал на разные кнопки). А то код выполнится (точнее - не выполнится, а выкинет исключение) ещё до того, когда ArcScene успеет загрузиться.
Поэтому самое тупое, но рабочее решение, это вставить паузу

Threading.Thread.Sleep(10000)

Если комп старый, увеличьте число в скобках. Раз вы пишете

myprocess.StartInfo.FileName = "C:\Program Files\ArcGIS\Bin\ArcScene.exe

то вам, думаю, такое решение сгодится)
    

        Dim appROTEvent As AppROT
        m_ROT = New AppROTClass
        appROTEvent = m_ROT
        Dim pApp As IVbaApplication
       
        If m_ROT.Count = 0 Then
            MsgBox("There are no running ArcScene processes")
        Else
            pApp = m_ROT.Item(0)
            pApp.RunVBAMacro("Project", "Module2", "Piy", Nothing)
        End If   

Я вот как то так сделал) Вроде тоже нормально)

Answer 8

    Да и кстати пока функционал весь на разных кнопках) Поэтому слип не имеет смысла использовать) Дальше незнаю что скажут мне делать.

Answer 9