Hide Table of Contents

Set Custom Stock Body in Machined Part Example (VB.NET)

This example shows how to set a custom stock body in a machined part.

'-----------------------------------------------
' Preconditions:
' 1. Verify that the specified:
'    * part documents to open and reference exist.
'    * Costing template exists by clicking
'      Tools > Options > System Options > File Locations 
'      and selecting Costing templates in Show folders for 
'      in SOLIDWORKS. Click Cancel to close the dialog.
' 2. Add a reference to SolidWorks.Interop.sldcostingapi.dll.
' 3. Open the Immediate window.
' 4. Run the macro.
'
' Postconditions:
' 1. Opens the specified part document.
' 2. Creates common and machining Costing analyses, which can
'    take one or more minutes to complete.
' 3. Sets and gets custom stock body Costing information and 
'    updates the estimated cost to manufacture the part, 
'    which can take one or more minutes to complete.
' 4. Examine the Immediate window
'
NOTE: Because the part is used elsewhere, do not
' save any changes when closing it.
'------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System.Diagnostics
Imports SolidWorks.Interop.sldcostingapi
 
Imports System
 
Partial Class SolidWorksMacro
 
    Public Sub Main()
 
        Dim swModel As ModelDoc2
        Dim swModelDocExt As ModelDocExtension
        Dim swCosting As CostManager
        Dim swCostingPart As CostPart
        Dim swCostingBody As CostBody
        Dim swCostingModel As Object
        Dim swCostingAnalysis As CostAnalysis
        Dim swCostingMachining As CostAnalysisMachining
        Dim fileName As String
        Dim errors As Integer
        Dim warnings As Integer
        Dim nbrCostingBodies As Integer
        Dim costingBodies As Object
        Dim costingBodyName As String
        Dim i As Integer
        Dim isBody As Boolean
 
        ' Open part specified document
	fileName = "C:\Users\Public\Documents\SOLIDWORKS\SOLIDWORKS 2018\samples\tutorial\api\clamp1.sldprt"
        swModel = swApp.OpenDoc6(fileName, swDocumentTypes_e.swDocPART, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)
        swModelDocExt = swModel.Extension
 
        ' Get CostingManager
        swCosting = swModelDocExt.GetCostingManager
        swCosting.WaitForUIUpdate()
 
        ' Get Costing part
        swCostingModel = swCosting.CostingModel
        swCostingPart = swCostingModel
 
        ' Create common Costing analysis
        swCostingAnalysis = swCostingPart.CreateCostAnalysis("C:\Program Files\SolidWorks Corp\SolidWorks\lang\english\costing templates\multibodytemplate_default(englishstandard).sldctc")
 
        ' Get common Costing analysis data
        Debug.Print("Common Costing analysis data:")
        Debug.Print("    Template name:  " & swCostingAnalysis.CostingTemplateName)
        Debug.Print("    Currency code: " & swCostingAnalysis.CurrencyCode)
        Debug.Print("    Currency name: " & swCostingAnalysis.CurrencyName)
        Debug.Print("    Currency separator: " & swCostingAnalysis.CurrencySeparator)
        Debug.Print("    Total manufacturing cost: " & swCostingAnalysis.GetManufacturingCost)
        Debug.Print("    Material costs: " & swCostingAnalysis.GetMaterialCost)
        Debug.Print("    Setup cost: " & swCostingAnalysis.GetSetupCost)
        Debug.Print("    Total cost to charge: " & swCostingAnalysis.GetTotalCostToCharge)
        Debug.Print("    Total cost to manufacture: " & swCostingAnalysis.GetTotalCostToManufacture)
        Debug.Print("    Lot size: " & swCostingAnalysis.LotSize)
        Debug.Print("    Total quantity: " & swCostingAnalysis.TotalQuantity)
        Debug.Print("")
 
        ' Get Costing bodies
        nbrCostingBodies = swCostingPart.GetBodyCount
        isBody = False
        If (nbrCostingBodies > 0) Then
            Debug.Print("Costing bodies:")
            Debug.Print("    Number of Costing bodies: " & nbrCostingBodies)
            costingBodies = swCostingPart.GetBodies
            For i = 0 To (nbrCostingBodies - 1)
                swCostingBody = costingBodies(i)
                costingBodyName = swCostingBody.GetName
                Debug.Print("    Name of Costing body: " & costingBodyName)
                ' Make sure body is machining body
                If (swCostingBody.GetBodyType = swcBodyType_e.swcBodyType_Machined) Then
                    isBody = True
                    ' Determine analysis status of Costing body
                    Select Case swCostingBody.BodyStatus
                        Case swcBodyStatus_e.swcBodyStatus_NotAnalysed
                            ' Create Costing analysis
                            swCostingAnalysis = swCostingBody.CreateCostAnalysis("C:\Program Files\SolidWorks Corp\SolidWorks\lang\english\costing templates\machiningtemplate_default(englishstandard).sldcts")
                            Debug.Print("    Creating machining Costing analysis for: " & swCostingBody.GetName)
                        Case swcBodyStatus_e.swcBodyStatus_Analysed
                            ' Get Costing analysis
                            swCostingAnalysis = swCostingBody.GetCostAnalysis
                            Debug.Print("    Getting machining Costing analysis for: " & swCostingBody.GetName)
                        Case swcBodyStatus_e.swcBodyStatus_Excluded
                            ' Body excluded from Costing analysis
                            Debug.Print("    Excluded from machining Costing analysis: " & swCostingBody.GetName)
                        Case swcBodyStatus_e.swcBodyStatus_AssignedCustomCost
                            ' Body has an assigned custom cost
                            Debug.Print("    Custom cost assigned: " & swCostingBody.GetName)
                    End Select
                    Debug.Print("")
                End If
            Next i
        End If
 
        If Not isBody Then
            Debug.Print("")
            Debug.Print("No bodies in part! Exiting macro.")
            Exit Sub
        End If
 
        ' Get machining Costing analysis data
        swCostingMachining = swCostingAnalysis.GetSpecificAnalysis
        Debug.Print("Machining Costing analysis: ")
        Debug.Print("    Current material: " & swCostingMachining.CurrentMaterial)
        Debug.Print("    Current material class: " & swCostingMachining.CurrentMaterialClass)
        Debug.Print("    Current plate thickness: " & swCostingMachining.CurrentPlateThickness)
        Debug.Print("")
 
        ' Set and get custom stock body Costing information
        swCostingMachining.CurrentStockType = swcStockType_e.swcStockType_Custom
        Debug.Print("Custom stock body Costing information:")
        swCostingMachining.CustomStockBodyName = "C:\Users\Public\Documents\SOLIDWORKS\SOLIDWORKS 2018\samples\tutorial\api\clamp2.sldprt"
        Debug.Print("    Body: " & swCostingMachining.CustomStockBodyName)
        swCostingMachining.CustomStockCostInfoType = swcCustomStockCostInfoType_e.swcCustomStockCostType_CustomCost
        Debug.Print("    Information type: " & swCostingMachining.CustomStockCostInfoType)
        swCostingMachining.CustomStockCustomCost = 3.53
        Debug.Print("    Cost: " & swCostingMachining.CustomStockCustomCost)
        swCostingMachining.CustomStockImportType = swcCustomStockImportType_e.swcCustomStockImportType_ReferencePart
        Debug.Print("    Import type: " & swCostingMachining.CustomStockImportType)
        Debug.Print ("")

        ' Updated estimated total cost to manufacture the part
        Debug.Print ("Updated estimated total cost to manufacture: " & swCostingAnalysis.GetTotalCostToManufacture)
 
 
 
 
    End Sub
 
    ''' <summary>
    ''' The SldWorks swApp variable is pre-assigned for you.
    ''' </summary>
    Public swApp As SldWorks
 
 
End Class


Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required

 
*Email:  
Subject:   Feedback on Help Topics
Page:   Set Custom Stock Body in Machined Part Example (VB.NET)
*Comment:  
*   I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Print Topic

Select the scope of content to print:




x

We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

 Never show this message again
x

Web Help Content Version: API Help (English only) 2024 SP05

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.