Inventor 2017: Set Default Section Properties

[Anonymous]

Is there a way to set the default section properties, such as section depth to a default distance of 10mm, cut edges to smooth etc?

The settings shown I mean are shown in the screenshot.

[wayne.brill]

Hi Dave,

The Inventor API has the SectionDrawingView Object. See these properties in the API help:
FullSectionDepth, SectionDepth, IncludeSlice, SliceAllParts,  UseAlignedMethod, and IsBreakLineSmooth

However I am not sure if you are using the API to create or access the section views. Are you trying to just set those settings when using the user interface? So far I am not finding where those can be set. (in the API or UI)

Thanks,

Wayne

[wayne.brill · Accepted solution]

Hi Dave,

I have confirmation from a colleague in Engineering that it is not possible to define the default values for that "Edit Section Properties" dialog.

Please request this on the Inventor Idea station:

http://forums.autodesk.com/t5/inventor-ideastation/idb-p/v1232/tab/most-recent

Thanks,

Wayne

[frederic.vandenplas]

Hi,

I've done it for a detail view, be aware that i created this in VB.NET and i'm not sure it will work in vba or ilogic.

Also i've noticed that sometimes, depending on which view and how it's placed, buttons on the detailview form where altered by Inventor (for example, shaded view, not shaded)

It's the only way i could do this , not very neat.

 Private Sub CustomDetailView_OnExecute(Context As NameValueMap) Handles CustomDetailView.OnExecute
            Try
                Dim oDrawDoc As DrawingDocument = InvApp.ActiveDocument
                Dim oDrawingView As DrawingView

                If oDrawDoc.ActiveSheet.DrawingViews.Count > 1 Then
                    oDrawingView = InvApp.CommandManager.Pick(SelectionFilterEnum.kDrawingViewFilter, "Select view.")
                Else
                    oDrawingView = oDrawDoc.ActiveSheet.DrawingViews.Item(1)
                End If
                oDrawDoc.SelectSet.Select(oDrawingView)

                Dim oCommandMgr As CommandManager = InvApp.CommandManager
                Dim oControlDef As ControlDefinition = oCommandMgr.ControlDefinitions("DrawingDetailViewCmd")
                Call oControlDef.Execute()

                SendKeys.SendWait("{TAB}")
                SendKeys.SendWait(My.Settings.ActualScale)
                SendKeys.SendWait("+{TAB}")
                SendKeys.SendWait("+{TAB}")
                SendKeys.SendWait("+{TAB}")
                SendKeys.SendWait("+{TAB}")
                SendKeys.SendWait("+{TAB}")
                SendKeys.SendWait("{RIGHT}")

            Catch ex As Exception
                MsgBox(Err.Description & " " & Err.Number)
            End Try

        End Sub

For ages the community is asking for a way to define every inputbox setting...