09-28-2023
01:59 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-28-2023
01:59 AM
Hi @Daan_M,
Your code looks promising.
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"