move all autocad object vertices to snap grid point lisp

[bsmith374]

I would like to extend the functionality of the txtsnap.lsp posted here at thread687-1241553
It works great on text but i would also like to adjust endpoints of lines and plines as well as block insertion points to fall on our standard grid spacing of .025" for electrical drawings. I think this is possible but i am not much of a lisper.

Thanks