AnsweredAssumed Answered

CreateSectionViewAt6

Question asked by Digvijay Taunk on Dec 9, 2015
Latest reply on Dec 10, 2015 by Matthias Krichbaum

Hi all,

Try searching this method "CreateSectionViewAt6" in API help, its not there, but when you record a macro to create a section view, it is using this method with different number of arguments than CreateSectionViewAt5.

 

Basically I am not able to create a section view of assembly with some parts excluded. Passing the components object for the argument "ExcludedComponents" is not giving me any different result at all.

 

Code I am writing is:

 

 Status = DrawDoc.ActivateView("View1")
    swView = DrawDoc.ActiveDrawingView

        swSketchSegment = ModelDoc.SketchManager.CreateLine(X1, Y1, 0.0#, X2, Y2, 0.0#)
  Dim excludedComponents As Object
        excludedComponents = GetExcludeComp(swView)


        swView = DrawDoc.CreateSectionViewAt5(0.2, 0.14, 0, "A", 1, excludedComponents, 0)
        swSectionView = swView.GetSection


        ' Set some section-view settings
        swSectionView.SetAutoHatch(True)
        swSectionView.SetLabel2("A")
        swSectionView.SetDisplayOnlySurfaceCut(False)
        swSectionView.SetPartialSection(True)
        swSectionView.SetReversedCutDirection(True)
        swSectionView.SetScaleWithModelChanges(True)
        swSectionView.CutSurfaceBodies = True
        swSectionView.DisplaySurfaceBodies = True
        swSectionView.ExcludeSliceSectionBodies = True
        swSectionView.SetExcludedComponents(excludedComponents)


        ModelDoc.ForceRebuild3(False)

 Private Function GetExcludeComp(swView As View) As Object
        Dim RefComp As Object
        Dim RefModelDoc As ModelDoc2 = swView.ReferencedDocument
        Dim AssmDoc As AssemblyDoc

        If RefModelDoc.GetType = swDocumentTypes_e.swDocASSEMBLY Then
            AssmDoc = RefModelDoc
            RefComp = AssmDoc.GetComponents(False)
        End If
        Dim ExcludeComp(0) As Object

        Dim Count As Integer = 0

        For Each Comp As Component2 In RefComp
           'ReDim Preserve ExcludeComp(Count)
            If Not Comp.Name2.Equals(UCase(Part) & "-1") Then
                ExcludeComp(Count) = Comp ' Adding all Components other that "Part-1"
                Count += 1
            End If
        Next
        Return ExcludeComp
    End Function

Outcomes