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