Dmis to create a folder????

Wondering can PC-Dmis create a folder and then save PDFs to that folder under part number????
e.g.:
writing to G:\CMM\Data\ "new folder" \ "part number"

P

Parents

granpagus over 12 years ago

This is my method, kludged from various contributers here.

Assemble string containing desired path/folder. I use operator input assigne to variables. Run basic script to create.

assign/job_path="n:\inspection plans\\"+customer+"\\"+partnumber+"\\"+jobnumber
csub_creatdir=script/filename= z:\scripts\createdirectory.bas
            function/main,show=yes,arg1=job_path,,
            startscript/
            endscript/

            assign/report_path=job_path+"\\"+operation
csub_creatdir=script/filename= z:\scripts\createdirectory.bas
            function/main,show=yes,arg1=report_path,,
            startscript/
            endscript/

Create string for name of pdf.

ASSIGN/RPT_FILE=REPORT_PATH+"\\"+JOBNUMBER+"_"+DATETIMESTAMP+"_"+SERNUMBER+".pdf"

Use print command to create and save pdf.

CMNT_PRINT =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            PRINT REPORT?
            IF/CMNT_PRINT.INPUT=="NO"
            PRINT/REPORT,EXEC MODE=END,$
              TO_FILE=ON,OVERWRITE=RPT_FILE,$
              TO_PRINTER=OFF,$
              TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
              REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
              PREVIOUS_RUNS=DELETE_INSTANCES
            END_IF/
            ELSE/
            PRINT/REPORT,EXEC MODE=END,$
              TO_FILE=ON,OVERWRITE=RPT_FILE,$
              TO_PRINTER=ON,$
              TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
              REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
              PREVIOUS_RUNS=DELETE_INSTANCES
            END_ELSE/

Basic script.
CREATEDIRECTORY.BAS

Sub Main(PathName As String)
	On Error Resume Next
	MkDir PathName
End Sub

Reply

granpagus over 12 years ago

This is my method, kludged from various contributers here.

Assemble string containing desired path/folder. I use operator input assigne to variables. Run basic script to create.

assign/job_path="n:\inspection plans\\"+customer+"\\"+partnumber+"\\"+jobnumber
csub_creatdir=script/filename= z:\scripts\createdirectory.bas
            function/main,show=yes,arg1=job_path,,
            startscript/
            endscript/

            assign/report_path=job_path+"\\"+operation
csub_creatdir=script/filename= z:\scripts\createdirectory.bas
            function/main,show=yes,arg1=report_path,,
            startscript/
            endscript/

Create string for name of pdf.

ASSIGN/RPT_FILE=REPORT_PATH+"\\"+JOBNUMBER+"_"+DATETIMESTAMP+"_"+SERNUMBER+".pdf"

Use print command to create and save pdf.

CMNT_PRINT =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            PRINT REPORT?
            IF/CMNT_PRINT.INPUT=="NO"
            PRINT/REPORT,EXEC MODE=END,$
              TO_FILE=ON,OVERWRITE=RPT_FILE,$
              TO_PRINTER=OFF,$
              TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
              REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
              PREVIOUS_RUNS=DELETE_INSTANCES
            END_IF/
            ELSE/
            PRINT/REPORT,EXEC MODE=END,$
              TO_FILE=ON,OVERWRITE=RPT_FILE,$
              TO_PRINTER=ON,$
              TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
              REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
              PREVIOUS_RUNS=DELETE_INSTANCES
            END_ELSE/

Basic script.
CREATEDIRECTORY.BAS

Sub Main(PathName As String)
	On Error Resume Next
	MkDir PathName
End Sub

Children

No Data