rotate two sets lines

[Angelo2449]

Hello everyone,
I have already published a question for this subject, I propose it with in detail.
the lines to be rotated are expressed with :

 (command "_line" primogpslat xyt2gpslat "")
 (setq primalinea (entlast))
 (command "_line" primogpslat xypfgpslat "")
 (setq secondalinea (entlast))

the rotation center is:

primogpslat

the rotation direction is determined from the point

♪

both lines must be rotated of the same angle.
I have already rotated the first line with the command:

(command "_rotate" primalinea "" primogpslat "_r" primogpslat xyt2gpslat secondogpslat "")

But with two?
Thank you.

 

[Cristallo]

is the same rotation point?
if it's the same between primaline e "" insert the second line

something like that.
(command "_rotate" primalinea Second line "" primogpslat "_r" primogpslat xyt2gpslat secondogpslat "")

 

[Angelo2449]

thanks crystal,
It works great, it's so obvious that I didn't try it!
Thanks again.

 

[Cristallo]