Thema Datum  Von Nutzer Rating
Antwort
Rot Script
18.11.2010 07:23:07 Christin
Solved

Ansicht des Beitrags:
Von:
Christin
Datum:
18.11.2010 07:23:07
Views:
1185
Rating: Antwort:
 Nein
Thema:
Script
Hey Jungs,

ich habe da mal ne kleine Frage.
Mir liegt eine VBA Eingabe vor und nun soll ich erklären was sie bewirkt und über welche Schnittstellen diese läuft.

1.If pMxDoc.FocusMap.SelectionCount = 0 Then Exit Sub

(Das bedeutet meiner Meinung nach das wenn kein augewählter Layer gefunden wird, die Abfrage verlassen wird und es läuft über die FocusMap Schnittstelle)

2.strBufferDistance = InputBox("Enter Distance:", "Buffer")
If strBufferDistance = "" Or Not IsNumeric(strBufferDistance) Then Exit Sub

(Bedeutung das die Eingabe eines Buffers über eine InputBox abläuft, wo man die entsprechende Distanz eingibt. Falls dann eine Eingabe vorgenommen wird die keine Zahlen enthält wird die Abfrage abgebrochen.
Ablauf über InputBox Schnittstelle)

3.Set pEnumFeature = pMxDoc.FocusMap.FeatureSelection
pEnumFeature.Reset
Set pFeature = pEnumFeature.Next
Do While Not pFeature Is Nothing
Set pTopoOp = pFeature.Shape
Set pElement = New PolygonElement
pElement.Geometry = pTopoOp.Buffer(CInt(strBufferDistance))
pGraphicsContainer.AddElement pElement, 0
Set pFeature = pEnumFeature.Next
Loop

Bedeutung???
Schnittstellen??

4.pActiveView.PartialRefresh esriViewGraphics, Nothing, Nothing
End Sub

Bedeutung??
Schnittstelle??

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Script
18.11.2010 07:23:07 Christin
Solved