I used to have a cell placement tool that when i picked a cell, i could right click and it would rotate 90, then 90 again. I can't figure out how to do this in the button assignments. Does anybody know an easy way to do this? or an easy key in that will allow something like active angle=90+90+90, etc
Cole DeBolt said:Microstation V8i
Here's the VBA procedure I used to check the arithmetic...
Private Sub TestActiveAngle() Dim aa As Double aa = ActiveSettings.Angle Debug.Print "Active Angle=" & CStr(Degrees(aa)) ActiveSettings.Angle = ActiveSettings.Angle + Pi / 4 aa = ActiveSettings.Angle Debug.Print "Active Angle=" & CStr(Degrees(aa)) End Sub
For MicroStation V8, the key-in should be the second one I posted previously.
Regards, Jon Summers LA Solutions
I think you meant to write Pi/2