or, of course
Code:
tell application id "OGfl"
set lstSeln to (selection of front window)
set oShape to first item of lstSeln
tell front document
set oSecondCanvas to make new canvas
duplicate oShape to end of graphics of oSecondCanvas
end tell
end tell