
' 22.06.2006
' FFH-Polygonanzeige unter ArcGIS 9.x'
' Schilling-NLWKN
'
' Das FFH-Eingabeprogramm erzeugt eine Datei mit einer Polygonnummer
' Diese wird in der Datei und dem Pfad c:\temp\Polygonnr.txt abgelegt.
' Falls der Pfad/Dateiname anders lautet muss hier im Programm die Zeile cFilename = "c:\temp\Polygonnr.txt" editiert werden.
' 
'

Private Sub UIButtonControl1_Click()


Dim pDoc As IMxDocument
Dim pmap As IMap
Dim pfeaturelayer As IFeatureLayer
Dim pfeatureselection As IFeatureSelection
Dim pqueryfilter As IQueryFilter
Dim cMyQuery As String
Dim mynr As String
Dim cffhnr As String

Dim cFilename As String

cffhnr = "nicht gefunden"

'Bitte die folgende Zeile anpassen:
'Beispiel: cFilename = "c:\temp\Polygonnr.txt"
cFilename = "c:\temp\Polygonnr.txt"


Open cFilename For Input As #1
Do Until EOF(1)
  Input #1, cffhnr
Loop
Close #1

'MsgBox cffhnr



Set pDoc = ThisDocument
Set pmap = pDoc.FocusMap
mynr = cffhnr ' "00500400420"
cMyQuery = "Polygonnr = " & "'" & mynr & "'"

If Not TypeOf pmap.Layer(0) Is IFeatureLayer Then Exit Sub
Set pfeaturelayer = pmap.Layer(0)
Set pfeatureselection = pfeaturelayer

Set pqueryfilter = New QueryFilter
pqueryfilter.WhereClause = cMyQuery


Dim pColor As IRgbColor
Set pColor = New RgbColor
pColor.Red = 255
pColor.Green = 255
pColor.Blue = 127
Set pfeatureselection.SelectionColor = pColor

'Selektion ausfhren:
pfeatureselection.SelectFeatures pqueryfilter, esriSelectionResultNew, False

' pDoc.ActiveView.Refresh


pDoc.CurrentContentsView.ContextItem = pDoc.FocusMap.Layer(0)
    ThisDocument.CommandBars.Find(arcid.Layer_ZoomToSelection).Execute


pDoc.ActiveView.Refresh


End Sub

' ******************************************************************************

Sub Hyperlink(pLink, pLayer)

  ' Makro zum Aufruf des FFH-Eingabeprogramm aus ArcGis 9
  
  ' Das Makro-Skript mu in das Modul eingebunden werden:
  ' Visual Basic -> Projekt(ZeigFFHPolygon.mxd) -> Module -> Neue_Makros
  

  Dim pHyperlink As IHyperlink
  Set pHyperlink = pLink
  Dim pFLayer As IFeatureLayer
  Set pFLayer = pLayer



' Bitte die folgenden Zeilen anpassen:
  
  ' Pfadangabe zum FFHPick-Programm (am Ende mit Backslash abschliessen):
  'Beispiel:  cFFHProgrammPfad = "d:\ffhmon05\"
  cFFHProgrammPfad = "d:\ffhmon05\"
  
  ' Programmname:
  ' Beispiel: cFFHProgrammName = "ffh6pick.exe"
  cFFHProgrammName = "ffh6pick.exe"
  
  ' Pfadangabe zum FFH-Projekt (am Ende mit Backslash abschliessen):
  ' Beispiel: cFFHProjektPfad = "d:\ffhmon05\projekte\ffh038_1\"
  cFFHProjektPfad = "d:\ffhmon05\projekte\ffh038_1\"
    
 ' Bitte bis hier anpassen
  
  
  
  cpolygonnr = pHyperlink.Link
  cparameter = cFFHProgrammPfad & cFFHProgrammName & " " & cpolygonnr & " " & cFFHProjektPfad & " " & cFFHProgrammPfad
  Shell (cparameter)
  
 
End Sub




