Elevation Lisp?

[gapple]

Hi. Glad to see the forums are back!!!
Can anybody point me to a lisp routine that will make all lines & arcs the same elevation as the CURRENT ucs? The autocad "flatten" command, as well as a lisp routine I found on the internet by the same name, only flattens to WORLD ucs...

Thanks!