New HatchPatterns, RasterImages, OLEs to Back; Select ... to send them back

[Anonymous]

Hello,
I wonder if there is possible, write two lisps:
1. All newly done Hatch Patterns, Raster Images, OLEs have the DrawOrder --> Back option.
2. Select Hatch Patterns, Raster Images, OLEs to change their DrawOrder to "Back".
I know, that there is a command HATCHTOBACK, which means "Send all the Hatch Patterns from entire drawing to back"
, but I want to have lisp for "Send ONLY SELECTED, NOT ALL Hatch Patterns to back".
I know about "HPDRAWORDER" command.

Here I found similar topic and an user made macro. But I prefer lisp.

http://www.theswamp.org/index.php?topic=10593.0

What do you know about it?

[Anonymous]

This lisp would be work like this:

Select all OLE Objects (QSELECT --> OLE Objects --> All) and then DrawOrder --> Under Objects, to send them under Lines and the Lines will be apparent (visible).

But the problem is, in this way I can't use the QSELECT command in lisp.