PolyLineM erstellen

Danke werde ich gleich nachschauen.

Ich habe es zwischenzeitlich auch mit Edittools versucht. ET fragt folgende Felder ab.

- Select M field
- Select ID field defining a single polyline
- Select Order field

Die beiden letzteren sind klar. Ich gebe an welche Punkte alles zu einer Linie zusammengefasst werden sollen und in welcher Reihenfolge.
Was genau muss aber das M field enthalten?

Kannst du bitte das Skript hier rein kopieren? Ich bin nicht sicher, ob ich das gefunden habe, was du meinst. Für mich sieht es nur nach einzelnen Bausteinen aus.

Den Punkt PolylineM (Class) und Example gibt es bei mir in der deutschen Hilfe so nicht.


Das ist übrigends das o.g. Skript:

'-- Dieses Script (Zusammengesetzt aus Code der ArcScripts und aus dem ANUVA-Forum)
'-- macht aus dem obersten, aktiven Linienthema (Polyline) eine neue PolylineM.
'-- Es ignoriert Selektionen auf bestimmte Datensätze.
'-- Danach erfolgt eine Abfrage, in wie lange Abschnitte das neue PolylineMThema unterteilt werden soll.
'-- Ein weiteres neues Thema mit der Unterteilung in Abschnitte wird dann generiert.

'-- Get the active theme ...
theView = av.GetActiveDoc

theCount = theView.GetActiveThemes.Count
If (theCount = 0) then
msgbox.info("There is no active theme to process.","No active theme...")
exit
End

theTheme = theView.GetActiveThemes.Get(0)
theFtab = theTheme.GetFtab
theClassName = theFtab.GetShapeClass.GetClassName.AsString

'-- Only proceed with the active theme if it is PolyLine ...

If (theClassName = "PolyLine") then
theFieldList = theFtab.GetFields.Clone
theShapeField = theFtab.FindField("shape")

'-- Create a new shapefile with fields ...

theNewShapefile = Filedialog.Put("*.shp".AsFilename,"*.shp",
"Bitte geben Sie einen neuen Namen für ein 'Zwischenschritt'-Thema ein")
If (theNewShapefile = nil) then
exit
End

theNewFtab = Ftab.MakeNew(theNewShapefile,PolyLineM)

theNewFtab.StartEditingWithRecovery

'-- Populate the new shapefile with Fields ..


theFieldList.RemoveObj(theShapeField)

'-- ignore the shape field

theFieldCount = theFieldList.Count - 1
theNewShapeField = theNewFtab.FindField("shape")
theNewFieldList = theFieldList.DeepClone
theNewFtab.AddFields(theNewFieldList)

'-- Convert the PolyLines to PolyLineMs and add the measures ...


For each rec in theFtab
theShape = theFtab.ReturnValue(theShapeField,rec)
theShapeM = theShape.AsPolyLineM

'-- Get the attributes back ...

theNewRecnum = theNewFtab.AddRecord
theNewFtab.SetValue(theNewShapeField,theNewRecnum, theShapeM)

For each fld in (0..theFieldCount)
theVal = theFtab.ReturnValue(theFieldList.Get(fld),rec)
theNewFtab.SetValue(theNewFieldList.Get(fld),theNe wRecnum,theVal)

End

End

'-- For each rec...
Else

'-- If the current theme is not a PolyLine theme ...

msgbox.info (theTheme.GetName+" is a "+theClassName.AsString+" theme is not a PolyLine theme.", theTheme.GetName+" is not a PolyLine theme")
exit
End
'-- If (theClassName = "PolyLine") ...

theNewFtab.StopEditingWithRecovery(true)

'-- Add the new shapefile to the view if the user wants...

If (MsgBox.YesNo("Add shapefile as theme to the view?",
"Convert to Shapefile",true)) then
newFtheme = Ftheme.Make(theNewFtab)
theView.Addtheme(newFtheme)
newFtheme.Setvisible(true)

End


sh = theNewFtab.findfield("shape")
id = theNewFtab.findfield("ID")
if(id = nil) then exit end

frage="Wie lang sollen die Teilabschnitte sein?"
eing=msgbox.input(frage,"Eingabe","0")
if((eing="0")or(eing=nil))then exit end



neuer_name = Filedialog.Put("*.shp".AsFilename,"*.shp",
"Bitte geben Sie einen Neuen Namen für das Abschnitte-Shape ein")
If (neuer_name = nil) then
exit
End



neues_thema_dat = FTab.MakeNew(Neuer_name,PolylineM)
neues_thema_dat.Addfields({Field.Make("ID",#FIELD_ DECIMAL,6,0)})
M_shape = neues_thema_dat.FindField("shape")
neue_id = neues_thema_dat.FindField("ID")
neues_thema_dat.SetEditable(True)
t_lang=eing.asnumber
for each satz in theNewFtab
polyM_Line = theNewFtab.ReturnValue(sh,satz)
polyM_Line.SetMASLength
m_id = theNewFtab.ReturnValue(id,satz)
lang=polyM_Line.returnlength
anz=(lang/t_lang + 0.5).round
von=0
bis=t_lang
for each t in 1..anz
liste_MPunkte=polyM_Line.lineEvent(von,bis,0).asmu ltipoint.aslist
neue_PolyLineM = PolyLineM.Make({liste_MPunkte})
Rec = neues_thema_dat.AddRecord
neues_thema_dat.SetValue(M_shape,Rec,neue_PolyLine M)
neues_thema_dat.SetValue(neue_id,Rec,m_id)
von=bis
if((von+t_lang) > lang)
then
bis=lang
else
bis=t_lang * (t+1)
end
end 'ende der iterativen schleife alle teilstücke
end 'ende der iterativen schleife alle polylines
neues_thema_dat.SetEditable(False)
neues_thema = FTheme.Make(neues_thema_dat)
av.getActiveDoc.Addtheme(neues_thema)
neues_thema.setactive(true)
neues_thema.setvisible(true)

Vielen Dank. Nein ist nicht installiert. Läuft das Skript nur mit? Es bringt bei mir den Fehler "Unbekanntes Objekt: theNe"


"Das M-Feld enthält den 'Measure'-Wert, der in die Geometrie übernommen werden soll (z.B. Distanz oder Zeit)."

Was genau ist damit gemeint? Wenn ich ein Punkteshape habe, dann ist die Distanz doch schon durch die Lage der Punkte vorgegeben? Oder sind damit die Intervalle gemeint?

Vielen Dank, das Skript funktioniert jetzt. Allerdings mit dem gleichen Ergebnis.