nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

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

MOHAMMEDHABBOUB

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

Najděte více příspěvků označených jako

Accepted answers

Hornbydd

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

All comments

MOHAMMEDHABBOUB

Hornbydd,

thanks a lot it works

. the problem is that i did not add the toolbox to arcmap toolboxes.:rolleyes:

Thanks again 🙂

MOHAMMEDHABBOUB

Hello,

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

Thanks

1.png

2.png

Hornbydd

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("xyz")

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

Duncan

MOHAMMEDHABBOUB

This is what I got 😞

I saved the toolbox in

\
Toolbox name: Drastic_Model.tbx
Model Name: Model5

see image

Untitled.png

Hornbydd

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

MOHAMMEDHABBOUB

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

1.png

Hornbydd

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

MOHAMMEDHABBOUB

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?

error.gif

MOHAMMEDHABBOUB

anyone can help?

Připojte se k diskusi

Přihlášení členové mohou přispívat, sledovat aktualizace a další. Jste tu noví? Zaregistrujte si bezplatný účet.

Rychlé odkazy

Community Help
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.