topic Re: Is it possible to start a model directly from an ArcMap-Toolbar? in ArcObjects SDK Questions

Is it possible to start a model directly from an ArcMap-Toolbar?

MOHAMMEDHABBOUB — Thu, 03 May 2012 02:08:21 GMT

Hello,

Is it possible to start a model (generated from model builder) directly from an ArcMap-Toolbar? I don't want to start the toolbox just for one frequently used tool.
I have 9.3 edition 🙂

thanks

Re: Is it possible to start a model directly from an ArcMap-Toolbar?

MOHAMMEDHABBOUB — Thu, 03 May 2012 07:50:07 GMT

anyone can help?

Re: Is it possible to start a model directly from an ArcMap-Toolbar?

MOHAMMEDHABBOUB — Thu, 03 May 2012 17:08:36 GMT

Hi,
I have wrote this code, but an error appears (see image):

Option Explicit
Private Sub UIButtonControl1_Click()
Public Sub Test()

Dim pGP As Object

Set pGP = CreateObject("esriGeoprocessing.GPDispatch.1")

On Error GoTo EH

pGP.AddToolbox ("D:\DRASTIC_MODEL.tbx")

pGP.MyModel

Exit Sub

EH:

MsgBox pGP.GetMessages(), vbOKOnly, "Test"

End Sub

End Sub

reference: http://support.esri.com/en/knowledgebase/techarticles/detail/31110

Anyone can help?

Re: Is it possible to start a model directly from an ArcMap-Toolbar?

DuncanHornby — Fri, 04 May 2012 15:28:42 GMT

Mohammed,

Below is some VBA I used to execute a custom model in a toolbox, this should get you going.

Duncan

      ' Create workspacefactory     Dim pToolboxWorkspaceFactory As IWorkspaceFactory     Set pToolboxWorkspaceFactory = New esriGeoprocessing.ToolboxWorkspaceFactory          'Open a toolbox workspace     Dim pToolboxWorkspace As IToolboxWorkspace     Set pToolboxWorkspace = pToolboxWorkspaceFactory.OpenFromFile(g_ToolBoxPath, 0)          ' Connect to tool     Dim pGPToolBox As IGPToolbox     Set pGPToolBox = pToolboxWorkspace.OpenToolbox("WFD49e Processing Tools Enhanced.tbx")     Dim pGPTool As IGPTool     Set pGPTool = pGPToolBox.OpenTool("mdSubSetFloodplain")      ' Run tool     Dim pGPToolCommandHelper As IGPToolCommandHelper     Set pGPToolCommandHelper = New GPToolCommandHelper     pGPToolCommandHelper.SetTool pGPTool     pGPToolCommandHelper.Invoke Nothing      ' Destroy objects     Set pToolboxWorkspaceFactory = Nothing     Set pToolboxWorkspace = Nothing     Set pGPToolBox = Nothing     Set pGPTool = Nothing     Set pGPToolCommandHelper = Nothing

Re: Is it possible to start a model directly from an ArcMap-Toolbar?

MOHAMMEDHABBOUB — Sun, 06 May 2012 17:19:28 GMT

Hello Hornbydd,

first of all thanks for responding:

consedering that toolbox name:DRASTIC_MODEL, Model name: Model8

I worte the following :

Private Sub UIButtonControl1_Click()
' Create workspacefactory
Dim pToolboxWorkspaceFactory As IWorkspaceFactory
Set pToolboxWorkspaceFactory = New esriGeoprocessing.ToolboxWorkspaceFactory

'Open a toolbox workspace
Dim pToolboxWorkspace As IToolboxWorkspace
Set pToolboxWorkspace = pToolboxWorkspaceFactory.OpenFromFile (g_ToolBoxPath, 0)

' Connect to tool
Dim pGPToolBox As IGPToolbox
Set pGPToolBox = pToolboxWorkspace.OpenToolbox(" DRASTIC_MODEL.tbx")
Dim pGPTool As IGPTool
Set pGPTool = pGPToolBox.OpenTool(" Model8")

' Run tool
Dim pGPToolCommandHelper As IGPToolCommandHelper
Set pGPToolCommandHelper = New GPToolCommandHelper
pGPToolCommandHelper.SetTool pGPTool
pGPToolCommandHelper.Invoke Nothing

' Destroy objects
Set pToolboxWorkspaceFactory = Nothing
Set pToolboxWorkspace = Nothing
Set pGPToolBox = Nothing
Set pGPTool = Nothing
Set pGPToolCommandHelper = Nothing
End Sub

Note: what does blue text mean (I a beginner in VBA)
Is there any any else modification? because error appears as illustrated in image

Re: Is it possible to start a model directly from an ArcMap-Toolbar?

DuncanHornby — Mon, 07 May 2012 00:11:52 GMT

You need to replace my variable string g_ToolBoxPath with the folder where the tool box is. For example "C:\XYZ\ModelTools"

Re: Is it possible to start a model directly from an ArcMap-Toolbar?

MOHAMMEDHABBOUB — Mon, 07 May 2012 02:06:29 GMT

This is what I got 😞

I saved the toolbox in D:\
Toolbox name: Drastic_Model.tbx
Model Name: Model5

see image

Re: Is it possible to start a model directly from an ArcMap-Toolbar?

DuncanHornby — Mon, 07 May 2012 14:15:28 GMT

Are you using the correct name for the model? For this line of code to be correct you need to be using the name not the label of your model.

Set pGPTool = pGPToolBox.OpenTool("xxx")

In toolbox right click on your model and go to properties. You should be using the model NAME not the LABEL.

Duncan

Re: Is it possible to start a model directly from an ArcMap-Toolbar?

MOHAMMEDHABBOUB — Mon, 07 May 2012 16:12:11 GMT

Hello,

I don't know why is does not work. please see attached and check if there is some thing wrong

Thanks

Re: Is it possible to start a model directly from an ArcMap-Toolbar?

MOHAMMEDHABBOUB — Mon, 07 May 2012 16:19:38 GMT

Hornbydd,

thanks a lot it works :). the problem is that i did not add the toolbox to arcmap toolboxes.:rolleyes:

Thanks again 🙂