Flat Pattern View Should Match Folded Model

[beddes2000]

Hi ,

don't know if this is a topic for somebody.

If I make a flat pattern and make a projected view vertical or horizontal the folded model view is not available in this view, just the developed which is most of the time pretty much useless. I would like to see the elevation of the folded part in relation folded up or down as per flat pattern. I would say this would be a very good improvement and a huge step forward for Inventor.

[machiel.veldkamp]

Run this iLogic in your drawing. Select a flat pattern after that. It places a folded view right next to it. ____________________________________________ Sub Main() 'Get the active document Dim oDoc As Document = ThisApplication.ActiveDocument 'Exit if the document isn't drawing If oDoc.DocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then Exit Sub 'Get the correct sheet Dim oSheet As Sheet = oDoc.ActiveSheet 'Exit if the sheet have no views If oSheet.DrawingViews.Count = 0 Then Exit Sub 'Get the selection from user Dim oSelect As Object = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingViewFilter, "Pick a Flat Pattern view") 'Exit if nothing is selected If oSelect Is Nothing Then Exit Sub 'Get the view Dim oView As DrawingView = oSelect 'Get the first document from the view Dim oModel As Document = oSelect.ReferencedDocumentDescriptor.ReferencedDocument 'Exit if the referenced document isn't sheet metal If oModel.DocumentSubType.DocumentSubTypeID <> "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then Exit Sub 'Get the view position Dim oPosition As Point2d = oView.Position 'Get the view size Dim oSpace As Double = oView.Width 'Offset the position oPosition.X = oPosition.X + oSpace 'Get the view scale Dim oScale As Double = oView.Scale 'Set the view style Dim oViewStyle As DrawingViewStyleEnum = oView.ViewStyle 'Set the orientation Dim oOrientation As ViewOrientationTypeEnum = oView.Camera.ViewOrientationType Dim NewOrientation As ViewOrientationTypeEnum = TurnRight(oOrientation) 'Add the new view Dim oView2 As DrawingView If NewOrientation = ViewOrientationTypeEnum.kArbitraryViewOrientation Then oView2 = oSheet.DrawingViews.AddBaseView(oModel, oPosition, oScale, NewOrientation, oViewStyle, , oView.Camera) oView2.Align(oView, DrawingViewAlignmentEnum .kHorizontalViewAlignment) oView2.ShowLabel=False Else oView2 = oSheet.DrawingViews.AddBaseView(oModel, oPosition, oScale, NewOrientation, oViewStyle) oView2.Align(oView, DrawingViewAlignmentEnum .kHorizontalViewAlignment) oView2.ShowLabel=False End If End Sub Private Function TurnRight(oOrientation As ViewOrientationTypeEnum) As ViewOrientationTypeEnum Dim NOR As ViewOrientationTypeEnum Select Case oOrientation Case ViewOrientationTypeEnum.kFrontViewOrientation: NOR = ViewOrientationTypeEnum.kLeftViewOrientation Case ViewOrientationTypeEnum.kBackViewOrientation: NOR = ViewOrientationTypeEnum.kRightViewOrientation Case ViewOrientationTypeEnum.kTopViewOrientation: NOR = ViewOrientationTypeEnum.kFrontViewOrientation Case ViewOrientationTypeEnum.kBottomViewOrientation: NOR = ViewOrientationTypeEnum.kBackViewOrientation Case ViewOrientationTypeEnum.kLeftViewOrientation: NOR = ViewOrientationTypeEnum.kBackViewOrientation Case ViewOrientationTypeEnum.kRightViewOrientation: NOR = ViewOrientationTypeEnum.kFrontViewOrientation Case Else: NOR = oOrientation End Select Return NOR End Function

[beddes2000]

The iLogic rule is quite impressive...

Not exactly the outcome I would like to have