mirror derived part

mirror derived part

Anonymous
Not applicable
455 Views
1 Reply
Message 1 of 2

mirror derived part

Anonymous
Not applicable

 

Set test = ThisApplication.ActiveDocument.ComponentDefinitions.Item(1).ReferenceComponents.DerivedPartComponents.Item(1).Definition
test.mirrorplane= kDerivedPartMirrorPlaneXY

 

 

this seams like a simple thing but i cant get it for the life of me.

im trying to mirror a derived part . when i run this the watch says its mirrored but the part doesn’t change

ive learned how to do it when creating a part but nothing on modifying an existing part

0 Likes
456 Views
1 Reply
Reply (1)
Message 2 of 2

Anonymous
Not applicable

Finally got it

 

Sub IncludeParameterForDerivedPart()
    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument
   
    Dim oDerivedPartDef As DerivedPartDefinition
    Set oDerivedPartDef = oDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents(1).Definition
    

    oDerivedPartDef.MirrorPlane = kDerivedPartMirrorPlaneXY
    oDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents(1).Definition = oDerivedPartDef
End Sub

0 Likes