home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November / PCWK1103B.iso / DesignCAD 3D Max PLUS trial 30 / DATA1.CAB / Example_Files / Sample_Macros / DWGOut.bsc < prev    next >
Encoding:
Text File  |  2003-09-29  |  1.2 KB  |  55 lines
  1. ' DesignCAD Pro 2000 DWG Batch Export Program
  2. ' 
  3. ' Please follow these steps to get results
  4. '
  5. ' 1) Browse to the target directory 
  6. ' 2) Goto DOS in that directory
  7. ' 3) Type Dir /b >Files.txt and press enter
  8. ' 4) Type Edit files.txt and remove the listing for
  9. '    files.txt in the files listing
  10. ' 5) Exit the DOS prompt and switch to D2k
  11. ' 6) Press Q and goto the File Locations tab
  12. ' 7) For Drawing files, browse to the target directory
  13. '    Note that too long a path will cause DesignCAD
  14. '    to report an error, so keep the path short.
  15. ' 8) Run the program
  16. ' 9) Don't forget to erase the files.txt file.
  17. '
  18. ' Set's the target file to open
  19.     Root$ = Sys$(20)
  20.     File$ = Root$ + "\" + "Files.txt"
  21. ' Opens the file
  22.     open "i", 1, File$
  23. ' Loop Until End of File
  24.     do while eof(1) = 0
  25.     input #1, A$
  26.     Path$ = Sys$(20)
  27.     B$ = Path$ + "\" +A$
  28. ' Opens the file, Fits it to Window
  29.     >Open
  30.       {
  31.     <Filename [B$]
  32.       }
  33.     >FitToAllWindow
  34.      {
  35.       }
  36. ' Makes Output File Strings
  37.     Bob = LEN(B$)
  38.     Bob = Bob -2
  39.     C$ = LEFT$(B$, Bob)
  40.     D$ = C$ + "DWG"
  41. ' Exports the file to DWG
  42.     >DwgOut
  43.      {
  44.     <Filename [D$]
  45.      }
  46. ' Closes each file
  47.     >Close
  48.      {
  49.     <SaveChanges 0
  50.     <FileName [B$]
  51.      }
  52.     loop
  53.     end
  54. ' End of file
  55.