Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
FINET_Laurent
in reply to: Daan_M

Hi @Daan_M,

 

Your code looks promising. :grinning_face_with_big_eyes: 

I don't have much time to addapt your code, so here is a small example I wrote to explain how to do the mirror :

Dim file As String = "X:\XX\XXXXX\XXXXX\XXXXXXX\XXXXX\XXXXXX\Door plate 3.ipt"

Dim doc As Inventor.PartDocument = ThisApplication.ActiveDocument
Dim pcd As Inventor.PartComponentDefinition = doc.ComponentDefinition

Dim def As Inventor.DerivedPartDefinition = pcd.ReferenceComponents.DerivedPartComponents.CreateUniformScaleDef(file)
def.MirrorPlane = kDerivedPartMirrorPlaneYZ

pcd.ReferenceComponents.DerivedPartComponents.Add(def)

 

Kind regards,

FINET L.

If this post solved your question, please kindly mark it as "Solution"

If this post helped out in any way to solve your question, please drop a "Like"

@LinkedIn     @JohnCockerill