<pre>on alignParts layer,attribut,valeur  if layer is empty then return "Layer parameter is empty."  if attribut is empty then return "Attribut parameter is empty."  if valeur is empty then return "Value parameter is empty."  toComputer  put selectedParts(layer) into theParts  if theParts is not empty then    repeat with x = 1 to the number of lines in theParts      put line x of theParts into theObject      put quote & valeur & quote into theValue      do "set" && attribut && "of" && theObject && "to" && theValue    end repeat  end ifend alignParts</pre>