Jag vet inte exakt hur man gör men lite kan jag kanske bidra med. Här har du koden för att få fram en punkt roterad ett visst antal radianer runt en mittpunkt:Sv: rotera
Det bästa vore nog att ta och leta upp en algoritm för att beräkna kordinater på en cirkel. Då blir det rätt lätt om linjen ska rotera som en klockas visare.
Men om båda ändarna ska röra på sig så blir det lite svårare. För att få det symmetriskt måste man beräkna en punkt till på cirkeln då linjen går genom mittpunkten.
Hoppas du blev hjälpt!!
/ CarlSv: rotera
<code>
Type Point
x As Double
y As Double
End Type
Function Rotated(MidPoint As Point, Radius As Double, Angle As Double) As Point
Rotated.x = MidPoint.x + Radius * Cos(Angle)
Rotated.y = MidPoint.y + Radius * Sin(Angle)
End Function
</code>
Naturligtvis bör du anpassa denna kod på något vis.
/Niklas Jansson