https://forums.autodesk.com/t5/inventor-forum/am-i-the-only-one/m-p/5761739#M366011 <P>Here is a more complete code I made to batch change the View Justification in idw's.</P><P>&nbsp;</P><P>The only catch is that it should be run from a document that you don't want to change (although it wont change that document in any way) unless you are fine doing that document manually.</P><P>&nbsp;</P><P>ie; Add this rule as an External Rule, then run it from a blank template file.</P><P>&nbsp;</P><PRE>''''Batch opens documents with deferred updates and changes view justification to fixed. - Does this invisibly and saves files afterwards<BR /><BR /><BR />Sub Main() Dim oMultiList As New List(Of String) Dim oDoc As Document Dim oActiveDoc As Document = ThisApplication.ActiveDocument Dim oOptions As NameValueMap oOptions = ThisApplication.TransientObjects.CreateNameValueMap oOptions.Value("DeferUpdates") = True oMultiList=FBrowseMulti For j=0 To oMultiList.Count-1 oDoc=ThisApplication.Documents.OpenWithOptions(oMultiList.Item(j),oOptions, False) If oDoc.FullFileName = oActiveDoc.FullFileName MsgBox("Cannot open active document as deferred; Please change views manually!") Else FixViewJustification(oDoc) oDoc.Save oDoc.Close End If Next End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''' Sub FixViewJustification(oDoc As Document) Dim oSheet As Sheet Dim oView As DrawingView For Each oSheet In oDoc.Sheets &nbsp; &nbsp; &nbsp; &nbsp; 'oSheet.Activate For Each oView In oSheet.DrawingViews If oView.Aligned = True Or oView.ViewType = DrawingViewTypeEnum.kSectionDrawingViewType 'Do Nothing Else &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;oView.ViewJustification() =&nbsp;ViewJustificationEnum.kFixedViewJustification End If &nbsp; &nbsp; &nbsp; &nbsp; Next Next End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function FBrowseMulti Dim oMultiList As New List(Of String) Dim oFileDlg As FileDialog Call ThisApplication.CreateFileDialog(oFileDlg) With oFileDlg .FilterIndex = 1 .MultiSelectEnabled = True .CancelError = True On Error Resume Next .Filter = "Inventor Files (*.idw;)|*.idw|All Files (*.*)|*.*" .DialogTitle = "Select .idw Files To Include In Drawing List" .ShowOpen End With If Err.Number &lt;&gt; 0 Then MsgBox("Error Exists") ElseIf Not oFileDlg.FileName = "" Then Dim fNames As Object fNames = Split(oFileDlg.FileName, "|") Dim curName As Object For Each curName In fNames oMultiList.Add(curName) Next curName End If Return oMultiList End Function</PRE> Fri, 07 Aug 2015 14:38:02 GMT MechMachineMan 2015-08-07T14:38:02Z