This exports the measurement routine as an XML file.
Visual Basic |
---|
Public Sub ExportToXML( _ ByVal FileName As String _ ) |
- FileName
- This string is the full pathway specifying the location of the exported XML file.
Private Sub cmdExportXML_Click()
' These blocks of commands define the objects for use
Dim App As PCDLRN.Application
Set App = CreateObject("PCDLRN.Application")
App.Visible = True
MsgBox "This is an example of exporting the current measurement routine as an XML file. Click OK, when you have a measurement routine open that you want to export.", vbInformation, "XML Operations - Export"
Dim Part As PartProgram
Set Part = App.ActivePartProgram
'Exporting the measurement routine
Part.ExportToXML "d:\temp\exported_part_program.xml"
MsgBox "The measurement routine has been exported as an XML file."
End Sub