Dual input Dialog box?

Hints, tips and tricks for newbies

Moderators: Dorian (MJT support), JRL

Post Reply
Edwin67-11-12

Dual input Dialog box?

Post by Edwin67-11-12 » Wed Dec 08, 2004 9:45 pm

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.

-=DJ=-
Newbie
Posts: 18
Joined: Sun Mar 27, 2005 10:32 pm

Post by -=DJ=- » Mon Apr 04, 2005 11:56 pm

I know this is a little but what the heck it might help some else. :wink:
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

Post Reply
Sign up to our newsletter for free automation tips, tricks & discounts