×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Mirror Copy first protrusions in VB

Mirror Copy first protrusions in VB

Mirror Copy first protrusions in VB

(OP)
I created the first protrusion of a piece using the addFiniteExtrudedProtrusion method, and the following ones using ExtrudedProtrusion.AddFinite (from parallel Refplanes added).
I tried to make a mirror copy of the first three features, but when I include the first or base feature (the first extruded protrusion), the mirror copy fails, so I have to mirror copy the last two and finish the part adding manually in VB what would be the mirror copy of the base protrusion.
I did already check the Number of Features.
So what is going on?

RE: Mirror Copy first protrusions in VB

  Hi,
  
  the 1st protrusion is created on the y/z-plane extending in the positive
  X direktion. 2 more protrusions are added to the model extending from
  the part also in the positive X direction. With this code I was able
  to mirror the whole thing about the y/z plane. Is that the thing you
  wanted to do in VB?
  
  
  Dim mApp As SolidEdgeFramework.Application
  Dim mPart As SolidEdgePart.PartDocument
  Dim mModel As Model
  '
  Set mApp = GetObject(, "SolidEdge.Application")
  Set mPart = mApp.ActiveDocument
  Set mModel = mPart.Models.Item(1)
  '
  ' 2 = y/z plane where 1st part is created and should be mirrored
  Call mModel.MirrorParts.Add(mPart.RefPlanes.Item(2))
 
The method that you probably used can be used to mirror
one or more *features* about a plane from one location
on the part to another
  
  dY

RE: Mirror Copy first protrusions in VB

Hi,

the foregoing does not mean that you can't use MirrorCopy which
will be more flexible in what to mirror. The following code
snippet will do the same as the code above (3 protrusions assumed):

  Dim arFeat(2) As Object   ' room for 3 elements
  '
  Set arFeat(0) = mModel.ExtrudedProtrusions(1)
  Set arFeat(1) = mModel.ExtrudedProtrusions(2)
  Set arFeat(2) = mModel.ExtrudedProtrusions(3)
  '
' feature copy/mirror of all three protrusions about the y/z plane
  Call mModel.MirrorCopies.Add(mPart.RefPlanes.Item(2), UBound(arFeat) + 1, arFeat)

dY

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources