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.