Le portail francophone de la géomatique

Private Sub Etude_auto_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)



Dim pmxdoc As IMxDocument
Set pmxdoc = ThisDocument



Dim pmap As IMap
Set pmap = pmxdoc.FocusMap



Dim ptable As ITable
Set ptable = pmap.Layer(0)



Dim psfilter As ISpatialFilter
Set psfilter = New SpatialFilter
Set psfilter.Geometry = pmxdoc.CurrentLocation
psfilter.SpatialRel = esriSpatialRelWithin



Dim pf_selec As IFeatureSelection
Set pf_selec = ptable

pf_selec.SelectFeatures psfilter, esriSelectionResultNew, False
pmxdoc.ActiveView.Refresh



Dim p_selset As ISelectionSet
Set p_selset = pf_selec.SelectionSet



Dim pcursor As ICursor
Set pcursor = ptable.Search(psfilter, False)



Dim prow As IRow
Set prow = pcursor.NextRow



Dim msg As String
msg = ""



Dim num_champ As Byte
num_champ = ptable.FindField("INSEE")



If prow Is Nothing Then
    msg = "Cliquez sur une commune svp!!"
Else
    Call opengptool
End If



MsgBox msg, , "selection"



End Sub






Sub opengptool()



Dim puid As New UID
Dim patbext As iarctoolboxextension
Dim patb As IArcToolbox
Dim ptool As IGPTool
Dim pparams As IArray
Dim pparameter As IGPParameter
Dim pparamedit As IGPParameterEdit
Dim pdatatype As IGPDataType
Dim svalue As String
Dim trackcancel As ITrackCancel
Dim penvmgr As IGPEnvironmentManager
Dim pmess As IGPMessages



puid = "esrigeoprocessingui.arctoolboxextension"



Set patbext = Application.FindExtensionByCLSID(puid)
Set patb = patbext.arctoolbox
Set ptool = patb.gettoolbynamestring("Etude_auto")
Set params = ptool.ParameterInfo



'premier paramètre

Set pparameter = pparams.Element(0)
Set pparamedit = pparameter
Set DataType = pparameter.DataType
svalue = ""
Set pparamedit.Value = pdatatype.CreateValue(svalue)



'second paramètre

Set pparameter = pparams.Element(1)
Set pparmedit = IGPParameter
Set DataType = pparameter.DataType
svalue = ""
Set pparamedit.Value = pdatatype.CreateValue(svalue)



Set ptrackcancel = New CancelTracker
Set penvmgr = New GPEnvironmentManager
Set pmess = ptool.Validate(pparams, False, penvmgr)
ptool.Execute pparams, ptrackcancel, penvmgr, pmess



End Sub