quick move of a text within a closed polyline

[Mano63]

Good morning to all,
I ask help to accelerate the execution of the shift of texts from the geometric center of closed polylines (centinaia per day!):
as illustrated (I hope clearly), with a click in the point indicated by the yellow arrow (... generic point, just be it inside the dial highlighted by the dash) I would like to get the shift of the text in the position indicated in the diagrams "3 - final state".
If possible, to speed up work, the command should remain active to allow sequence shifts.

I add that the polylines I use are always on layer called "post" and the text is always on layer called "mq".

I attach a dwg to facilitate evidence.
Thank you in advance!

 

[sgreender]

What do you need?
the object with the text initially in middle nn can be a block... at that point select all the blocks and change the coordinate of the text.
or a multi-line text and edit in “high right” or “low left”.
or you can create something to select all texts and move them to @lung<angle to get to the location that interests you.
are tips thrown a little them, without actually knowing that you have to do

 

[rpor66]

if you want to make it always active add _multiple before the command.
Good job.

 

[Mano63]

@rpor66Great! 1000 thanks!@sgreender: thanks also to you for the interest shown. My planes are populated by polylines closed a different one from the other. to get as quickly as possible the indication for each of the surface square meters I use a lisp that writes to me the area of all the selected polylines in the geometric center of each of them. a first problem was that these texts, occupying the geometric center were overlapping with other texts already present inside the polylines. a second problem was that some inner corners of polylines are occupied by texts that identify the various areas. with the command of rpor66 I can "draw" the text that expresses the squares towards a corner free from other texts/objects inside the various polylines. Unfortunately, using blockages, this would complicate. . .
Thanks again to both of you!

 

[Mano63]

Sorry, rpor.
in practice your lisp gives me a little problem. I attach a dwg for a test. Unfortunately, in the circled situation (see below)
I move the cyan color text on "npost" layers (indicated by the arrow). the top would be that the command only acts on the texts of the "mq" layer.
I wonder too much?
Thank you.

 

[rpor66]

aggiorna con
(setq salt (ssget "_w" p3 p4 (list (cons 0 "text") (cons 8 "mq")))

 

[Mano63]

updated, thank you!
Now it works beautifully!