Add Feature to MirrorFeature

By Adam Nagy

You tried to use this code, but it does not work:

Sub UpdateMirrorFeature()
  Dim ss As SelectSet
  Set ss = ThisApplication.ActiveDocument.SelectSet
  Dim mf As MirrorFeature
  Set mf = ss(1)
  Dim ptf As PunchToolFeature
  Set ptf = ss(2)
  Call mf.ParentFeaturesAdd(ptf)
End Sub

Sometimes the API is not completely intuitive and you run into a scenario similar to the one mentioned here - i.e. first you have to take the property object, modify it, then assign it back to the property.

First select the MirrorFeature then the Feature you want to add to it (make sure it is shown in the browser before the MirrorFeature otherwise it will not be available in the UI either to be added to that MirrorFeature), then run the code:

Sub UpdateMirrorFeature()
  Dim ss As SelectSet
  Set ss = ThisApplication.ActiveDocument.SelectSet
  Dim mf As MirrorFeature
  Set mf = ss(1)
  Dim ptf As PunchToolFeature
  Set ptf = ss(2)' Take the property object
  Dim oc As ObjectCollection
  Set oc = mf.ParentFeatures' Modify it
  Call oc.Add(ptf)' Assign it back to the property
  mf.ParentFeatures = oc
End Sub

And the result: