Change angles of Mtext to new Angles
I have an isometric drawing with lengths and diameters along it's lines.
All mtext put at 150 angles (which is upside down) should become 330.
All mtext put at 270 angles (which is the wrong way round) should become 90.
I have put together some code, but it seems there is no way of getting the rotation of an object without showing the program 2 points.Is there any way to get the angle straight away? I don't think .getangle or .anglefromXaxis will get me anywhere.
(entget (car (entsel))) gives me no clue as to where to get the angles from.
Perhaps the radians value is stored somewhere so I can pick it up from there?
This is what I've got so far:
Code:
Dim LongDiamTekst as AcadMtext
Dim Degrees as Single
Dim Radians as Single
Dim Pi As String
Pi = "3,14159265"
Degrees = Radians * 57.29578
Radians = ?????
If Degrees > 145 Then
If Degrees < 155 Then
LongDiamTekst.Rotation = (Pi / 180# * 330#)
End If
End If
Re: Change angles of Mtext to new Angles
The Rotation property stores the angle. First set Degrees to the extisting Rotation prop. All angles are stored in radians.
Re: Change angles of Mtext to new Angles
Thank you. I worked it out with your advice, and am very happy now.