Hello all.
The purpose of my macro is to simply create a new directory with subfolders and Autocad files. All with corresponding user input Job number and job name. IE 05000 - House project.
Change Directory>G:\JOBFILES\2005\
Input>path,ENTER PROJECT_NUMBER : ie. 05000
Input>path2, ENTER PROJECT_NAME :
CreateDir>%path% - %path2%
Change Directory>%path% - %path2%
CreateDir>Construction documents
CreateDir>Correspondence
CreateDir>Existing plans
CreateDir>Pictures
CreateDir>Preliminary Design
CreateDir>Survey
Change Directory>G:\JOBFILES\2005\%path% - %path2%\Preliminary Design
CopyFile>G:\BLOCKS\xproject.dwg,G:\JOBFILES\2005\%path% - %path2%\Existing plans\
Change Directory>G:\JOBFILES\2005\%path% - %path2%\Construction documents
CopyFile>G:\BLOCKS\xproject.dwg,G:\JOBFILES\2005\%path% - %path2%\Construction documents
CopyFile>G:\ACAD2004-SUPPORT\acad.dwt,G:\JOBFILES\2005\%path% - %path2%\Construction documents\%path%-FP.DWG
CopyFile>G:\ACAD2004-SUPPORT\COVER.dwt,G:\JOBFILES\2005\%path% - %path2%\Construction documents\%path%-CVR.DWG
CopyFile>G:\ACAD2004-SUPPORT\[01]=24x36-SHEET.dwt,G:\JOBFILES\2005\%path% - %path2%\Construction documents\%path%-A1.DWG
How can I combine the two INPUT> so that the user only sees one dialog box.
As it is right now, two seperate dialog boxes have to be navigated..
Thanks for any and all help.
Dual input Dialog box?
Moderators: Dorian (MJT support), JRL
I know this is a little but what the heck it might help some else.
Using a dialog would be the way I go... I hope this solves your problem.
Dialog>Dialog1
Caption=Your Program
Top=250
Width=286
Left=344
Height=149
Label=Enter Path One,16,8
Label=Enter Path Two,24,56
Edit=msEdit1,16,24,121,Path1
Edit=msEdit2,16,80,121,Path2
Button=GO,152,48,57,25,1
Button=EXIT,216,48,57,25,2
EndDialog>Dialog1
show>Dialog1,r
if>r=1,start
if>r=2,exit
label>start
Change Directory>G:\JOBFILES\2005\
'Input>path,ENTER PROJECT_NUMBER : ie. 05000
'Input>path2, ENTER PROJECT_NAME :
CreateDir>%Dialog1.msEdit1% - %Dialog1.msEdit2%
Change Directory>%Dialog1.msEdit1% - %Dialog1.msEdit2%
CreateDir>Construction documents
CreateDir>Correspondence
CreateDir>Existing plans
CreateDir>Pictures
CreateDir>Preliminary Design
CreateDir>Survey
Change Directory>G:\JOBFILES\2005\%Dialog1.msEdit1% - %Dialog1.msEdit2%\Preliminary Design
CopyFile>G:\BLOCKS\xproject.dwg,G:\JOBFILES\2005\%Dialog1.msEdit1% - %Dialog1.msEdit2%\Existing plans\
Change Directory>G:\JOBFILES\2005\%Dialog1.msEdit1% - %Dialog1.msEdit2%\Construction documents
CopyFile>G:\BLOCKS\xproject.dwg,G:\JOBFILES\2005\%Dialog1.msEdit1% - %Dialog1.msEdit2%\Construction documents
CopyFile>G:\ACAD2004-SUPPORT\acad.dwt,G:\JOBFILES\2005\%Dialog1.msEdit1% - %Dialog1.msEdit2%\Construction documents\%Dialog1.msEdit1%-FP.DWG
CopyFile>G:\ACAD2004-SUPPORT\COVER.dwt,G:\JOBFILES\2005\%Dialog1.msEdit1% - %Dialog1.msEdit2%\Construction documents\%Dialog1.msEdit1%-CVR.DWG
CopyFile>G:\ACAD2004-SUPPORT\[01]=24x36-SHEET.dwt,G:\JOBFILES\2005\%Dialog1.msEdit1% - %Dialog1.msEdit2%\Construction documents\%Dialog1.msEdit1%-A1.DWG
label>exit
Using a dialog would be the way I go... I hope this solves your problem.
Dialog>Dialog1
Caption=Your Program
Top=250
Width=286
Left=344
Height=149
Label=Enter Path One,16,8
Label=Enter Path Two,24,56
Edit=msEdit1,16,24,121,Path1
Edit=msEdit2,16,80,121,Path2
Button=GO,152,48,57,25,1
Button=EXIT,216,48,57,25,2
EndDialog>Dialog1
show>Dialog1,r
if>r=1,start
if>r=2,exit
label>start
Change Directory>G:\JOBFILES\2005\
'Input>path,ENTER PROJECT_NUMBER : ie. 05000
'Input>path2, ENTER PROJECT_NAME :
CreateDir>%Dialog1.msEdit1% - %Dialog1.msEdit2%
Change Directory>%Dialog1.msEdit1% - %Dialog1.msEdit2%
CreateDir>Construction documents
CreateDir>Correspondence
CreateDir>Existing plans
CreateDir>Pictures
CreateDir>Preliminary Design
CreateDir>Survey
Change Directory>G:\JOBFILES\2005\%Dialog1.msEdit1% - %Dialog1.msEdit2%\Preliminary Design
CopyFile>G:\BLOCKS\xproject.dwg,G:\JOBFILES\2005\%Dialog1.msEdit1% - %Dialog1.msEdit2%\Existing plans\
Change Directory>G:\JOBFILES\2005\%Dialog1.msEdit1% - %Dialog1.msEdit2%\Construction documents
CopyFile>G:\BLOCKS\xproject.dwg,G:\JOBFILES\2005\%Dialog1.msEdit1% - %Dialog1.msEdit2%\Construction documents
CopyFile>G:\ACAD2004-SUPPORT\acad.dwt,G:\JOBFILES\2005\%Dialog1.msEdit1% - %Dialog1.msEdit2%\Construction documents\%Dialog1.msEdit1%-FP.DWG
CopyFile>G:\ACAD2004-SUPPORT\COVER.dwt,G:\JOBFILES\2005\%Dialog1.msEdit1% - %Dialog1.msEdit2%\Construction documents\%Dialog1.msEdit1%-CVR.DWG
CopyFile>G:\ACAD2004-SUPPORT\[01]=24x36-SHEET.dwt,G:\JOBFILES\2005\%Dialog1.msEdit1% - %Dialog1.msEdit2%\Construction documents\%Dialog1.msEdit1%-A1.DWG
label>exit