' Name: ISOdate_upd
' Title: Layout ISO date text object updater
' Description: Update a date on the layout (previously labelled with ISOdate_obj)
' Author: Mike Silberbauer 2001-05

theLayout = av.GetActiveDoc
theDisplay = theLayout.GetDisplay

' Get the GraphicList for the Layout...
theGraphics = theLayout.GetGraphics
nowDate = Date.Now
nowDate.SetFormat("yyyy-MM-dd")
nowTime = Date.Now
nowTime.SetFormat("hhhh:m")
dtStamp = nowDate.asString++nowTime.AsString
theGraphicsList = theGraphics.FindAllByObjectTag("ISOdate")
if (theGraphicsList<>nil) then
  theGraphics.UnSelectAll
  g = 0
  for each g in theGraphicsList
    g.SetText(dtStamp)
  end
end
theGraphics.ClearSelected
theGraphics.Invalidate
return {}