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