Linienzugsymbol einfügen entlang aller Linienzüge vom Typ Fahrbahnrand
count=0
for linienzug in list(Application.Project.GetObjects().WhereObjectClass('LineString').WhereObjectType('Fahrbahnrand')):
geom = linienzug.Geometry
for i in range(0, len(geom)-1) :
(startX,startY,startZ,startB)=geom[i]
(endX,endY,endZ,endB)=geom[i+1]
meanX = (startX+endX)/2.0
meanY = (startY+endY)/2.0
if Application.Project.LinestringSymbolNew('Asphaltrand',(meanX,meanY),linienzug).Ok:
count+=1
if count > 0:
print (str(count) + ' Symbole eingefügt.' )
