Cell Placement angle scroll

Question

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

Barry Lothian · Accepted Answer

When pasting in the Immediate Window, you don't need the VBA Execute part 
 only this: 
 ActiveSettings.Angle = ActiveSettings.Angle + Pi / 2 
 When you paste in the Key-in, you use this: 
 vba execute ActiveSettings.Angle = ActiveSettings.Angle + Pi / 2

Jon Summers · Answer

Great! Please mark this thread as Answered .

Jan Šlegr · Answer

Hi Cole, 
 I know the answer is answered and I join the discussion lately. 
 In my opinion to call VBA is overkill for the discussed purpose. My solution is to use MicroStation calculator instead, which is standard functionality: 
 calculator tcb->actangle = (tcb->actangle + 90) 
 In fact, I treat both solutions (VBA and calculator) as not perfect, because the active angle value is increased with every use. It is not error, but I would prefer to really cycle values in 0 - 360 range. But it requires more complex VBA code and probably cannot be achieved using simple key-in. 
 With regards, 
 Jan

Cell Placement angle scroll

Top Replies