Message 1 of 3
Mirror Feature not working
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hello,
I am trying to mirror pattern, using MirrorFeatureDefinition. However, the command is returning nothing. Attached is my code. I would be really grateful for any help or comment on how to solve this. Or direction towards some other solution.
' Dim oDoc As AssemblyDocument = ThisDoc.Document Dim oPDC As Inventor.ComponentDefinition = oDoc.ComponentDefinition Dim oFeatures As Inventor.Features = oPDC.Features Dim oPatternClampse As OccurrencePattern oPatternClampse = oDoc.ComponentDefinition.OccurrencePatterns.Item("Clampse80x80") Dim oBjPlane As Object = oPDC.WorkPlanes.Item("My_New_Work_Plane") Dim oBjColPattern As Inventor.ObjectCollection = ThisApplication.TransientObjects.CreateObjectCollection oBjColPattern.Add(oPatternClampse) Dim oMirs As Inventor.MirrorFeatures = oFeatures.MirrorFeatures Dim oMirFeatDef As Inventor.MirrorFeatureDefinition oMirFeatDef = oFeatures.MirrorFeatures.CreateDefinition(oBjColPattern, oBjPlane) Logger.Info("oMirFeatDef = {0}", oMirFeatDef) Dim oMirFeat As Inventor.MirrorFeature oMirFeat = oMirs.AddByDefinition(oMirFeatDef) oMirFeat.Name = "Testing"