Mirrored Part But Link To Original Part

[isocam]

Can anybody help?

I have the following VBA macro that mirrors a part (ipt)

Public Function CreateMirrorPart()
    Dim oDoc As PartDocument

    Set oDoc = ThisApplication.ActiveDocument

    Dim oCol As ObjectCollection

    Set oCol = ThisApplication.TransientObjects.CreateObjectCollection

    oCol.Add oDoc.ComponentDefinition.SurfaceBodies(1)

    Dim oPlane As WorkPlane

    Set oPlane = oDoc.ComponentDefinition.WorkPlanes(1)

    Dim oMirror As MirrorFeature

    Set oMirror = oDoc.ComponentDefinition.Features.MirrorFeatures.Add(oCol, oPlane, True, kOptimizedCompute)

    oMirror.NewBodyOperation = True
End Function

I want to modify the VBA macro so that the mirrored part automatically updates if the original part is modified.

Can anybody update the above macro to allow me to do that?

Many thanks in advance!!!!

Darren

[k14348]

Hi,

    Hope below code solve your issue.

Option Explicit

Public Function CreateMirrorPart()
    
    'Create Mirror Part and remove orginal part.
    
    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument

    Dim oCol As ObjectCollection
    Set oCol = ThisApplication.TransientObjects.CreateObjectCollection

    oCol.Add oDoc.ComponentDefinition.SurfaceBodies(1)

    Dim oPlane As WorkPlane
    Set oPlane = oDoc.ComponentDefinition.WorkPlanes(1)

    Dim oMirror As MirrorFeature
    Set oMirror = oDoc.ComponentDefinition.Features.MirrorFeatures.Add(oCol, oPlane, False, kOptimizedCompute)

    oMirror.NewBodyOperation = True

End Function

-Karth

[WCrihfield]

I believe in your "Set oMirror = " line, the "Add" portion should be ".AddByDefinition(oMirrorFeatureDefinition)"

They you would, of course, have to define the oMirrorFeatureDefinition, before that line.

[WCrihfield]

@isocam 

I also think that if you want the original to always be the same as the mirrored one, you should have this code name the feature.  Then earlier in the code, check to see if it already exists, if so, either delete & recreate it, or edit its definition.