GenerateWireHarnessReport Method

Description

Syntax

Visual Basic
Public Sub GenerateWireHarnessReport( _ ByVal ReportType As AssemblyWireHarnessReportTypeConstants, _ Optional ByVal FileNameToSaveReport As Variant, _ Optional ByVal Selection As Variant, _ Optional ByVal Window As Variant, _ Optional ByVal NumberOfReportProperties As Variant, _ Optional ByVal AssemblyReportProperties As Variant, _ Optional ByVal NumberOfSortItems As Variant, _ Optional ByVal SortProperties As Variant, _ Optional ByVal SortOrder As Variant, _ Optional ByVal Justification As Variant, _ Optional ByVal UpdateTemplate As Variant _ )

Visual Basic

Public Sub GenerateWireHarnessReport( _
   ByVal ReportType As AssemblyWireHarnessReportTypeConstants, _
   Optional ByVal FileNameToSaveReport As Variant, _
   Optional ByVal Selection As Variant, _
   Optional ByVal Window As Variant, _
   Optional ByVal NumberOfReportProperties As Variant, _
   Optional ByVal AssemblyReportProperties As Variant, _
   Optional ByVal NumberOfSortItems As Variant, _
   Optional ByVal SortProperties As Variant, _
   Optional ByVal SortOrder As Variant, _
   Optional ByVal Justification As Variant, _
   Optional ByVal UpdateTemplate As Variant _
)

Parameters

ReportType

Value	Description
seAssemblyWireHarnessReportComponents
seAssemblyWireHarnessReportConnections

FileNameToSaveReport

Selection

Window

NumberOfReportProperties

AssemblyReportProperties

NumberOfSortItems

SortProperties

SortOrder

Justification

UpdateTemplate

Example

Example to use API 'GenerateWireHarnessReport'

Example (VB.NET)

Option Explicit On

Module Module1
    Dim objApp As SolidEdgeFramework.Application
    Dim objAsmDoc As SolidEdgeAssembly.AssemblyDocument
    Dim ReportType As SolidEdgeConstants.AssemblyWireHarnessReportTypeConstants = SolidEdgeConstants.AssemblyWireHarnessReportTypeConstants.seAssemblyWireHarnessReportComponents
    Dim Selection As SolidEdgeConstants.AssemblyWireHarnessReportTypeConstants = SolidEdgeConstants.AssemblyWireHarnessReportOnConstants.seAssemblyWireHarnessReportOnAll
    Dim Properties As Object
    Dim NumProperties As Integer

    Dim NumSortProperties As Integer = 1
    Dim SortProperties(1) As Integer
    Dim SortOrder(1) As SolidEdgeConstants.AssemblyWireHarnessSortOrderConstants

    Sub Main()
        objApp = GetObject(, "SolidEdge.Application")
        objAsmDoc = objApp.ActiveDocument

        objAsmDoc.GenerateWireHarnessReport(SolidEdgeAssembly.AssemblyWireHarnessReportTypeConstants.seAssemblyWireHarnessReportConnections, "C:\Temp\HarnessReport.xls", SolidEdgeConstants.AssemblyWireHarnessReportOnConstants.seAssemblyWireHarnessReportOnAll, 0, 0, SolidEdgeConstants.AssemblyWireHarnessConnectionPropertiesConstants.seWireHarnessConnectionPropertyPartNumber, 0, SolidEdgeConstants.AssemblyWireHarnessConnectionPropertiesConstants.seWireHarnessConnectionPropertyCutLength, SolidEdgeConstants.AssemblyWireHarnessSortOrderConstants.seWireHarnessReportAscending, SolidEdgeConstants.AssemblyWireHarnessJustificationConstants.seWireHarnessReportCenter, Nothing)

        End

    End Sub

End Module