hexagon logo

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
  • 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
  • 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