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

MOHAMMEDHABBOUB

Hello everybody,

I found a solution for this problem.. in fact it's another code (see image) and it works

reference: http://gis.stackexchange.com/questions/4952/run-model-arcmap-9-3-1

Done.jpg

All comments

MOHAMMEDHABBOUB

Anyone can help?

DanLee

The capability of adding your own toolbar and tools (models, scripts, or system tools) is in ArcGIS 10, but not in 9.3. What you can do is to create your own toolbox and add any of the above tools to it. This video shows how:
http://webhelp.esri.com/arcgisdesktop/9.2/tutorials/Spatial_10.htm

Hope that helps.

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

gpnobbir

You need to have two Sub or all the code in the Click event. Try this:

First, the Click event method:

Private Sub UIButtonControl1_Click()
    ' Call the Test method
    Test()
End Sub

The second method (Test) is the worker method:

Public Sub Test()
    ' Put all code here
    Dim pGP as Object
    ......
    .....
    EH:
    MsgBox pGP.GetMessages(), ......
End Sub

Let us know how it goes.

drugssquare-logo.jpg

MOHAMMEDHABBOUB

Hi,

Well, I'm not sure that I did it right..

In the first method, I did not get it (how could I call test() method?)... see image "FirstMethod"
In second method, EH error appeared ... see image"Secondmethod"

I know that I'm beginner in VB codes... but I have to learn

Thanks in advance

FirstMethod.jpg

SecondMethod.jpg

gpnobbir

Your whole code should like this:


Option Explicit

Private Sub UIButtonControl1_Click()
    ' Call the Test method
    Test()
End Sub

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
    MsgBox pGP.GetMessages(), vbOkOnly, "Success"
    Exit Sub

EH:
    MsgBox pGP.GetMessages(), vbOkOnly, "Error"

End Sub

Let us know what message do you get?

MOHAMMEDHABBOUB

error in "Test()" illustrated in image

error.jpg

gpnobbir

I don't have a VBA compiler right now. If you google with 'how to call a VB sub' you'll get plenty of examples. I guess the call to Test sub should be:

Private Sub UIButtonControl1_Click()
    Test
End Sub

Without the braces '(' and ')'.

MOHAMMEDHABBOUB

yes that's right, now both solutions (method 1 and 2) give the same result

error.jpg

gpnobbir

Let's take the issue off the forum. Email me at nahmed@esri.com - we'll post the summary once the issue is resolved. Thanks.

MOHAMMEDHABBOUB

Thanks a lot, 🙂

MOHAMMEDHABBOUB

Hello everybody,

I found a solution for this problem.. in fact it's another code (see image) and it works

reference: http://gis.stackexchange.com/questions/4952/run-model-arcmap-9-3-1

Done.jpg

MOHAMMEDHABBOUB

Thanks a lot, Mr. Nobbir Ahmed 🙂

Připojte se ke konverzaci

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.