PartProgramMirror Method

Description

This allows you to create a mirror image copy in the X, Y, or Z axis of a measurement routine.

Syntax

Visual Basic
Public Function PartProgramMirror( _ ByVal szPartProgramPathName As String, _ ByVal szTargetProgramPathName As String, _ ByVal szReferencePathName As String, _ ByVal PartMirrorAxix As PAXISTYPE, _ ByVal ReporingMirrorOption As RPT_MIRROR_OPT, _ ByVal MachineMirrorAxis As PAXISTYPE _ ) As Boolean

Visual Basic

Public Function PartProgramMirror( _
   ByVal szPartProgramPathName As String, _
   ByVal szTargetProgramPathName As String, _
   ByVal szReferencePathName As String, _
   ByVal PartMirrorAxix As PAXISTYPE, _
   ByVal ReporingMirrorOption As RPT_MIRROR_OPT, _
   ByVal MachineMirrorAxis As PAXISTYPE _
) As Boolean

Parameters

szPartProgramPathName

The path to the measurement routine to mirror.

szTargetProgramPathName

The path to where the mirrored measurement routine will be stored.

szReferencePathName

This is a pathway to a reference measurement routine. This pulls out any quick fixture alignment data from the reference part and uses that information in the mirroring operation.

PartMirrorAxix

Value	Description
PCD_XAXIS	Mirrors the virtual machine's X axis.
PCD_YAXIS	Mirrors the virtual machine's Y axis.
PCD_ZAXIS	Mirrors the virtual machine's Z axis.

Defines the axis in which you want to mirror the measurement routine.

ReporingMirrorOption

Value	Description
RPT_MIRROR_HORIZONTAL	Mirrors CAD images horizontally.
RPT_MIRROR_NONE	Does not mirror CAD images at all.
RPT_MIRROR_VERTICAL	Mirrors CAD images vertically.

Defines how PC-DMIS mirrors CAD images in reports.

MachineMirrorAxis

Value	Description
PCD_XAXIS	Mirrors the virtual machine's X axis.
PCD_YAXIS	Mirrors the virtual machine's Y axis.
PCD_ZAXIS	Mirrors the virtual machine's Z axis.

Defines how PC-DMIS positions the mirror part on a virtual machine displayed in PC-DMIS's Graphics Display window.

Example

Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
Dim res As Object
Dim RPT_MIRROR_NONE As Object
Dim targetName As String
Dim app As PCDLRN.Application
app = CreateObject("PCDLRN.Application")
If app Is Nothing Then
Exit Sub
End If
CommonDialog1Save.Filter = "Measurement Routine (*.prg)|*.prg"
CommonDialog1Save.FileName = "C:\PCDMISW_2010\*.prg"
CommonDialog1Save.ShowDialog()
targetName = CommonDialog1Save.FileName
res = app.PartProgramMirror("C:\PCDMISW_2010\TestMirror.PRG", targetName, "", PCDLRN.PAXISTYPE.PCD_YAXIS, RPT_MIRROR_NONE, PCDLRN.PAXISTYPE.PCD_YAXIS)
End Sub