SnapRotationAngle

Hello all

I am rotating the snapangle of the drawing using the
SnapRotationAngle property of the active view port.
It works fine but the problem i am facing is that the drawing
changes its zoom display ( it automatically does zoom all).Is
there anyway to prevent this.

I require similar to autocad snap command and rotate option

Dim newBasePoint(0 To 1) As Double
rotationangle=0.5
ThisDrawing.ActiveViewport.SnapBasePoint = newBasePoint
ThisDrawing.Regen acActiveViewport
' Change the snap rotation angle
ThisDrawing.ActiveViewport.SnapRotationAngle = rotationangle

' reset the viewport
ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport

Thanks in advance
Regards
Sri

 

Is there any way to do this.

regards
Sri

 

hi i got it in another way.
The system variable snapang does it well.

regards
Sri