Topic: Need help to combine two different routines into one program

[danglar]

I tried to combine two different routines into one program.
First routine align selected set of objects ( blocks and texts) along one X/Y/Z axis of a reference point and second one can rotate selected set of objects to
0 angle (see attached lisp)
I use a same set of objects for these routines and don't wont' to select objects twice..
I tried to use (ssget "L") function for second routine but something goes wrong..
Another question:
Is it possible to set different rotation angle for preselected set of entities by user prompt?
Any help will be very appreciated.

[roy_043]

Try using (ssget "P"). See here.

[danglar]

Thank you Roy_043.
Where I can put it?
I tried here:
(ssget "_:L" '((0 . "INSERT,MTEXT,MULTILEADER,TEXT")
and even here:
(setq ss (vla-get-activeselectionset *AcadDoc*)
but it's not help to me..

[danglar]

.. sorry I find my mistake:
 need to be:
(ssget "P" '((0 . "INSERT,MTEXT,MULTILEADER,TEXT")
thank you Roy!