Text Object Angle Problem

[habakay]

Hi,

I search many forums but I can not find the solution.

I have many texts in my drawing with different angles. I try to add a new text object before these texts that contains ID number. What I want to do is these ID number texts have the same angle with old texts.

 

I use

NewAngle as Double

 

 

I can't assign Text angle value to "NewAngle" variable

 

Thanks for your help!

[habakay]

I found the solution. it's been very simple. Here is the answer;

 

dim angle as double

 

angle = Text_1.Rotation

Text_2.Rotate MidPoint, angle

Text_2.Update