Zwei Linien gemeinsam drehen

[Angelo2449]

Hallo alle,
Ich habe bereits eine Frage zu diesem Thema veröffentlicht, ich schlage es ausführlich vor.
die zu drehenden Linien mit :

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

das Rotationszentrum ist:

primogpslat

die Drehrichtung aus dem Punkt bestimmt wird

♪

beide Linien müssen von gleichem Winkel gedreht werden.
Ich habe die erste Zeile bereits mit dem Befehl gedreht:

(Befehl "_rotate" Primalinea "" primogpslat "_r" primogpslat xyt2gpslat secondogpslat ")

Aber mit zwei?
Danke.

 

[Cristallo]

ist der gleiche Drehpunkt?
wenn es gleich ist zwischen Primalin e) " die zweite Linie einfügen

So was.
(Befehl "_rotate" Primalinea Zweite Zeile "" primogpslat "_r" primogpslat xyt2gpslat secondogpslat "")

 

[Angelo2449]

Dank Kristall,
Es funktioniert toll, es ist so offensichtlich, dass ich es nicht versucht habe!
Danke noch mal.

 

[Cristallo]