rotate view 1 su IDW

[ch_giacomo]

Good morning everyone

I'm asking for help with a rule, but I'm stuck by my very little experience.

I got to this point:

' Set a reference to the drawing document.
    ' This assumes a drawing document is active.
    Dim oDrawDoc As DrawingDocument
    	oDrawDoc = ThisApplication.ActiveDocument 
        
    'Set a reference to the active sheet.
    Dim oSheet As Sheet
    	oSheet = oDrawDoc.ActiveSheet
		
		 ' Select a drawing view.
    Dim oDrawingView As DrawingView = ActiveSheet.View("VISTA1").View

and what I would like is to rotate the already existing "view 1" into an IDW and set it to the ViewGoHome, hope I made myself clear.

I attach the result

[Andrii_Humeniuk]

Hi @ch_giacomo . This code changes the orientation of the camera:

Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument 
Dim oSheet As Sheet
oSheet = oDrawDoc.ActiveSheet
Dim oCamera As Camera = oSheet.DrawingViews.Item(1).Camera
oCamera.ViewOrientationType = 10766
oCamera.Apply()

 ViewOrientationTypeEnum List 

[ch_giacomo]

thanks for the help but I get an error or made a screen

[Andrii_Humeniuk]

Added check by view name "VISTA1". What version of the Inventor are you using?

Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument 
Dim oSheet As Sheet
oSheet = oDrawDoc.ActiveSheet
Dim oCamera As Camera
For Each oView As DrawingView In oSheet.DrawingViews
	If oView.Name = "VISTA1" Then
		oCamera = oView.Camera
		oCamera.ViewOrientationType = ViewOrientationTypeEnum.kSavedCameraViewOrientation
		oCamera.Apply()
	End If
Next

[ch_giacomo]

2019 VERSION

WITH THE NAME "VISTA1" IT GIVES ME AN ERROR

OR TRIED TO ENTER "VIEW1"
IT DOESN'T RETURN AN ERROR BUT THE RULE DOESN'T ROTATE THE VIEW, PRACTICALLY NOTHING HAPPENS AS YOU ROLL THE RULE.

[ch_giacomo]

Maybe it's the first part I wrote that could be wrong?

' Set a reference to the drawing document.
    ' This assumes a drawing document is active.
    Dim oDrawDoc As DrawingDocument
    	oDrawDoc = ThisApplication.ActiveDocument 
        
    'Set a reference to the active sheet.
    Dim oSheet As Sheet
    	oSheet = oDrawDoc.ActiveSheet
		
		 ' Select a drawing view.
    Dim oDrawingView As DrawingView = ActiveSheet.View("VISTA1").View

[Andrii_Humeniuk]

Check out this Link . I changed line 10, maybe that will help.

Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument 
Dim oSheet As Sheet
oSheet = oDrawDoc.ActiveSheet
Dim oCamera As Camera
For Each oView As DrawingView In oSheet.DrawingViews
	If oView.Name = "VISTA1" Then
		oCamera = oView.Camera
		oCamera.ViewOrientationType = ViewOrientationTypeEnum.kSavedCameraViewOrientation
		oCamera.ApplyWithoutTransition
	End If
Next

[ch_giacomo]

Thank you.
maybe I haven't been able to explain myself well.
I have many IDWs that have only one view "View1" and it is set differently between the various IDWs.. what I was looking for is by launching the rule that this view would be rotated as set in the "HOMEVIEWCUBE"

The link talks about a rule that changes the ViewCube... instead I'm talking about the view in the layout

[ch_giacomo]

I found this rule that almost does the desired result... maybe this is an excellent starting point to modify it so that the view rotates as hoped:

oView = ActiveSheet.View("VIEW2").View
Dim oDDoc As DrawingDocument = oView.Parent.Parent
oSS = oDDoc.SelectSet
oSS.Clear
oSS.Select(oView)
oCD = ThisApplication.CommandManager.ControlDefinitions.Item("DrawingViewRotateCtxCmd")
oSS.Select(oView)
oCD.Execute2(False)
AppActivate(ThisApplication.Caption)
System.Windows.Forms.SendKeys.SendWait("{DOWN}^A90{TAB}{UP}{ENTER}")

[ch_giacomo]

Solution found.
Thanks for taking the time.

https://forums.autodesk.com/t5/inventor-ilogic-and-vb-net-forum/rotate-drawing-view-with-included-sk...