AnsweredAssumed Answered

Rotate drawing view/section view by 270°

Question asked by Janos Gyerman on Feb 23, 2017
Latest reply on Feb 24, 2017 by Janos Gyerman

Hi everyone,

 

I recorded a macro while I was rotating my view by 270°.

 

Sub main()

 

Set swApp = _

Application.SldWorks

Set Part = swApp.ActiveDoc

boolstatus = Part.ActivateView("Zeichenansicht2")

boolstatus = Part.Extension.SelectByID2("Zeichenansicht2", "DRAWINGVIEW", 0.096440340216781, 0.146814729127943, 0, False, 0, Nothing, 0)

boolstatus = Part.Extension.SelectByID2("Zeichenansicht2", "DRAWINGVIEW", 9.68147518869837E-02, 0.149997228324665, 0, False, 0, Nothing, 0)

boolstatus = Part.Extension.SelectByID2("Zeichenansicht2", "DRAWINGVIEW", 9.68147518869837E-02, 0.149997228324665, 0, False, 0, Nothing, 0)

boolstatus = Part.Extension.SelectByID2("Zeichenansicht2", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0)

boolstatus = Part.DrawingViewRotate(4.7123889803847)

boolstatus = Part.Extension.SelectByID2("Zeichenansicht2", "DRAWINGVIEW", 0.123585186306471, 0.131463850649635, 0, False, 0, Nothing, 0)

End Sub

 

It works on the same sheet but if I open another file and try to use the macro it  does not work.

 

I guess the name of the view, (view 1, view 2, etc) is saved on my macro so it is not relevant for different drawing where we have 5 different views...

I would like to have a macro for this if possible... preselect the view and apply to it...

 

Many thanks in advance...

Regards

Janos

Outcomes