home *** CD-ROM | disk | FTP | other *** search
- /* LEKCJA03.C
- //---------------------------------------------------------------------------
- Temat:
- Wybór pliku i wywoêanie rozkazów MegaCAD
- //---------------------------------------------------------------------------
- Funkcje:
- EXT(204) short GetFilename(
- EXT(206) void MegaCMD(
- //---------------------------------------------------------------------------
-
- EXT(204) short GetFilename( //
- char *title, // nazwa okna dialogowego
- char *fname); // nazwa katalugu
-
- Opis:
- Funkcja pozwala u╛ytkownikowi wybraå plik poprzez wskazanie jego nazwy.
- Wylistowane zostajÑ pliki umieszczone w katalogu 'fname'.
-
- Return:
- TRUE => po potwierdzeniu "ok"
- FALSE => po wybraniu "powrót"
-
- Przykêad wywoêania:
- if(GetFilename("Wybór rysunku",fname))
- //---------------------------------------------------------------------------
-
- EXT(206) void MegaCMD( //
- char *cmd); // rozkaz [argumenty]
-
- Opis:
- Funkcja pozwala wywoêaå rozkaz MegaCADa wraz z argumentami.
- Lista rozkazów znajduje si⌐ w pliku 'funcnam.ini'.
- Nie mo╛liwe jest wywoêanie aktywnego ju╛ rozkazu, to znaczy nie da si⌐
- z poziomu interpretera wywoêaå rozkazu 'InterP'.
-
- Przykêad wywoêania:
- MegaCMD(buf);
-
- */
- //---------------------------------------------------------------------------
- #include "std.h"
- #include "megatyp.h"
- #include "megacad.h"
- //---------------------------------------------------------------------------
- short main(char *filename,char *args)
- {
- char fname[200];
- char buf[200];
-
- strcpy(fname,"C:\\MEGACAD\\PRT\\*.PRT");
- if(GetFilename("Wybór rysunku",fname))
- {
- sprintf(buf,"%s%s","PrtLoad ",fname);
- Message("wykonany zostanie rozkaz:",
- buf,NULL,NULL,"ok",3);
- MegaCMD(buf);
- }
- return(0);
- }
- //---------------------------------------------------------------------------
-