Using script to create folder for prg and save part program

Been reading up on the script manual (PC-DMIS) 3.6 Basic Language Reference Manual) trying to figure out how to get the script to create a folder for the report, the .prg, and any other files associated with the program by serial number of the part.

For example:
PART#_DESCRIPTION_SERIAL#_DATE_TIME

The goal is to write a script contained in the .prg that, upon execution of the part program, will create a folder in a specified directory with the variable filename using the inputs from the part program and save the .prg with the same name.

How would I pass the information from the operator inputs of the part program into the script to make this happen?

Parents

Rookie over 10 years ago

So what command (syntax) actually creates the folder I want? CreateObject?

Sub Main

' THIS SECTION DECLARES THE VARIABLES For THE FILENAME SAVE And FOLDER CREATE
' "SET" DECLARES THE VALUE OF THE VARIABLES
' "PART.GETVARIABLEVALUE" PULLS THE VARIABLE VALUE FROM THE .PRG UPON EXECUTION

Dim App As Object
Set App = CreateObject("PCDLRN.Application")

Dim PART As Object
Set Part = App.ActivePartProgram

'Declares PartProg As the Active part program

Set PartProg = App.ActivePartProgram

Set Cmds = Part.Commands

Set VSERIAL = PART.GETVARIABLEVALUE ("VSERIALNUMBER")

Set VDATE = PART.GETVARIABLEVALUE ("VDATE")

Set VTIME = PART.GETVARIABLEVALUE ("VTIME")

Set VPARTNUMBER = PART.GETVARIABLEVALUE ("VPART")

Set VDESCRIPTION = PART.GETVARIABLEVALUE ("VDESCRIPTION")

Set RESULTS = RESULTS

Set  VPROGRAMID = PART.GETVARIABLEVALUE ("VPROGRAMID")

'Creates the file folder path

Set FILENAME = CREATEOBJECT(VPART & "_" & VDESCRIPTION & "_" & VSERIALNUMBER & "_" & VDATE & "_" & VTIME)

Set FILEPATH = CREATEOBJECT("D:\CMM_PROGRAMS\" & VPART & "_" & VDESCRIPTION & "_" & VPROGRAMID & "\" & RESULTS & "\")

Set FOLDER = CREATEOBJECT(FILEPATH & FILENAME)

End Sub

Reply

Rookie over 10 years ago

So what command (syntax) actually creates the folder I want? CreateObject?

Sub Main

' THIS SECTION DECLARES THE VARIABLES For THE FILENAME SAVE And FOLDER CREATE
' "SET" DECLARES THE VALUE OF THE VARIABLES
' "PART.GETVARIABLEVALUE" PULLS THE VARIABLE VALUE FROM THE .PRG UPON EXECUTION

Dim App As Object
Set App = CreateObject("PCDLRN.Application")

Dim PART As Object
Set Part = App.ActivePartProgram

'Declares PartProg As the Active part program

Set PartProg = App.ActivePartProgram

Set Cmds = Part.Commands

Set VSERIAL = PART.GETVARIABLEVALUE ("VSERIALNUMBER")

Set VDATE = PART.GETVARIABLEVALUE ("VDATE")

Set VTIME = PART.GETVARIABLEVALUE ("VTIME")

Set VPARTNUMBER = PART.GETVARIABLEVALUE ("VPART")

Set VDESCRIPTION = PART.GETVARIABLEVALUE ("VDESCRIPTION")

Set RESULTS = RESULTS

Set  VPROGRAMID = PART.GETVARIABLEVALUE ("VPROGRAMID")

'Creates the file folder path

Set FILENAME = CREATEOBJECT(VPART & "_" & VDESCRIPTION & "_" & VSERIALNUMBER & "_" & VDATE & "_" & VTIME)

Set FILEPATH = CREATEOBJECT("D:\CMM_PROGRAMS\" & VPART & "_" & VDESCRIPTION & "_" & VPROGRAMID & "\" & RESULTS & "\")

Set FOLDER = CREATEOBJECT(FILEPATH & FILENAME)

End Sub

Children

No Data