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
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
Bentley Accredited Developer: iTwin Platform - AssociateLabyrinth Technology | dev.notes() | cad.point
Jan Šlegr said: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.
CONNECT key-in...
macro vba execute ActiveSettings.Angle = IIf(ActiveSettings.Angle > (2 * Pi), 0, ActiveSettings.Angle + Pi / 4);aa=
V8 key-in...
vba execute ActiveSettings.Angle = IIf(ActiveSettings.Angle > (2 * Pi), 0, ActiveSettings.Angle + Pi / 4);aa=
calculator tcb->actangle = (tcb->actangle >= 360)? 0: (tcb->actangle + 90);aa=
The key-in has ;aa= appended, which echoes the new active angle (AA) in MicroStation's status bar.
;aa=
AA
Regards, Jon Summers LA Solutions