09-28-2023
06:33 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-28-2023
06:33 AM
Are we talking about this ? (sorry for baguette language) :
Here above a part with two solids. The folowing code is giving the correct output :
Dim file As String = "X:\XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\Pièce2.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
Dim der As Inventor.DerivedPartComponent = pcd.ReferenceComponents.DerivedPartComponents.Add(def)
der.BreakLinkToFile()
Can you maybe provide a part that is not working ?
Maybe add this line ? :
def.IncludeAllSolids
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"