Mirror Components Example (VBA)

This example shows how to mirror components in an assembly.

'----------------------------------------------------------------------------
' Preconditions: Open:
'    install_dir\samples\tutorial\advdrawings\98food processor.sldasm
'
' Postconditions:
' 1. Creates reference plane, PLANE4.
' 2. Creates feature, MirrorComponent1, that mirrors six assembly
'    components.
' 3. The mirror components are saved to files with suffix, "_TestMirror"
'    in the model folder.
' 4. Inspect the folder.
'
' NOTE: Because the model is used elsewhere, do not save changes to it.
' ---------------------------------------------------------------------------

Option Explicit

Sub main()
    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks
   

    Dim swModel As SldWorks.ModelDoc2
    Set swModel = swApp.ActiveDoc
   

    Dim boolstatus As Boolean
    boolstatus = swModel.Extension.SelectByID2("", "FACE", 0.104250921669188, -2.36987012272039E-04, -5.97199999999418E-02, True, 0, Nothing, 0)
    Dim myRefPlane As SldWorks.RefPlane
    Set myRefPlane = swModel.FeatureManager.InsertRefPlane(8, 0.01, 0, 0, 0, 0)
   

    Dim swAssem As SldWorks.AssemblyDoc
    Set swAssem = swModel
   

    Dim compsToInstance As Object
    Set compsToInstance = Nothing
   

    Dim filenames As Object
    Set filenames = Nothing
   

    Dim location As String
    location = ""
   

    Dim nameModifierType As swMirrorComponentNameModifier_e
    nameModifierType = swMirrorComponentName_Suffix
    Dim nameModifier As String
    nameModifier = "_TestMirror"
   

    Dim mirrorPlane As SldWorks.Feature
    Set mirrorPlane = swAssem.FeatureByName("PLANE4")
   

    Dim compsToMirror(0 To 5) As Object
    Set compsToMirror(0) = swAssem.GetComponentByName("gear- caddy-1")
    Set compsToMirror(1) = swAssem.GetComponentByName("middle-gear-1")
    Set compsToMirror(2) = swAssem.GetComponentByName("shaft gear-1")
    Set compsToMirror(3) = swAssem.GetComponentByName("middle-gear plate-1")
    Set compsToMirror(4) = swAssem.GetComponentByName("base plate-1")
    Set compsToMirror(5) = swAssem.GetComponentByName("shaft gear insert-1")
   

    Dim orientations As Object
    Set orientations = Nothing
   

    Dim orientAboutCoM As Boolean
    orientAboutCoM = True
   

    Dim createDerivedConfigs As Boolean
    createDerivedConfigs = False
   

    Dim importOptions As Long
    importOptions = swMirrorPartOptions_ImportSolids + swMirrorPartOptions_ImportCustomProperties + swMirrorPartOptions_ImportCosmeticThreads
   

    Dim breakLinks As Boolean
    breakLinks = False
    Dim preserveZAxis As Boolean
    preserveZAxis = True
   

    Dim vResult As Variant
    vResult = swAssem.MirrorComponents2(mirrorPlane, compsToInstance, orientations, orientAboutCoM, compsToMirror, _
        createDerivedConfigs, _
        filenames, nameModifierType, nameModifier, location, _
        importOptions, breakLinks, preserveZAxis)
   

End Sub