Mirror Method

Description

Copies the referenced object about an axis.

Syntax

Visual Basic
Public Function Mirror( _ ByVal x1 As Double, _ ByVal y1 As Double, _ ByVal x2 As Double, _ ByVal y2 As Double, _ Optional ByVal BooleanCopyFlag As Variant _ ) As Object

Parameters

x1: Specifies the x coordinate of the first point on the mirror axis.
y1: Specifies the y coordinate of the first point on the mirror axis.
x2: Specifies the x coordinate of the second point on the mirror axis.
y2: Specifies the y coordinate of the second point on the mirror axis.
BooleanCopyFlag: Specifies whether or not the copied object will be active.

Example

Example (Visual Basic)

Private Sub Form_Load()
    Dim objApp As SolidEdgeFrameWork.Application
    Dim objDoc As SolidEdgeDraft.DraftDocument
    Dim objSheet As SolidEdgeDraft.Sheet
    Dim objPoints As solidedgeframeworksupport.Points2d
    Dim objPoint As solidedgeframeworksupport.Point2d
    Dim objPointMirrored As solidedgeframeworksupport.Point2d
    Dim dblMirroredX As Double, dblmirroredY As Double
    ' Report errors
    Const PI = 3.14159265358979
    ' Create/get the application with specific settings
    On Error Resume Next
    Set objApp = GetObject(, "SolidEdge.Application")
    If Err Then
        Err.Clear
        Set objApp = CreateObject("SolidEdge.Application")
        Set objDoc = objApp.Documents.Add("SolidEdge.DraftDocument")
        objApp.Visible = True
    Else
        Set objDoc = objApp.ActiveDocument
    End If
    'getting the Active Sheet object
    Set objSheet = objDoc.ActiveSheet
    'Create Points collection
    Set objPoints = objSheet.Points2d
    'Create Point
    Set objPoint = objPoints.Add(x:=0.25, y:=0.25)
    'Get Mirrored object
    Set objPointMirrored = objPoint.Mirror(x1:=0.3, y1:=0.3, x2:=0.3, y2:=0.5)



    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objSheet = Nothing
    Set objPoints = Nothing
    Set objPoint = Nothing
    Set objPointMirrored = Nothing
End Sub