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 / 3D Acad Out.d3m < prev    next >
Encoding:
Text File  |  2003-09-29  |  1.7 KB  |  75 lines
  1. ' DesignCAD 3000 Batch AutoCAD Export for 3D Drawings Models
  2. ' 
  3. ' Since AutoCAD uses Z axis for Height, and the Y axis for depth
  4. ' each drawing is loaded, rotated 90 degrees on the X axis so it
  5. ' will "stand up" correctly in AutoCAD, then exported to DWG.
  6. '
  7. ' This means you should only use this macro on 3D models going to Acad.
  8. '
  9. ' Please follow these simple steps to get results
  10. '
  11. ' 1) Browse to your DesignCAD directory 
  12. ' 2) Goto DOS in that directory
  13. ' 3) Type Dir *.dc /b >Files.txt and press enter
  14. ' 5) Make an Export folder underneath the DesignCAD folder
  15. ' 5) Open DesignCAD
  16. ' 6) Press Q and go to the File Locations tab
  17. ' 7) For Drawing files, browse to the DesignCAD directory and save
  18. '    your changes, so that DesignCAD is looking there to open files.
  19. ' 8) While there, set the Export path to the Export directory you just
  20. '    created.
  21. ' 9) Run the program
  22. ' 10) Don't forget to erase the files.txt file after you run the macro.
  23. ' each time.
  24. '
  25. ' Set's the target file to open
  26.     Root$ = Sys$(20)
  27.     File$ = Root$ + "\" + "Files.txt"
  28. ' Opens the file
  29.     open "i", 1, File$
  30. ' Loop Until End of File
  31.     do while eof(1) = 0
  32.     input #1, A$
  33.     Path$ = Sys$(20)
  34.     B$ = Path$ + "\" +A$
  35. ' Opens the file, Fits it to Window
  36.     >Open
  37.       {
  38.     <Filename [B$]
  39.       }
  40. ' Fit file to window
  41.     >FitToAllWindow
  42.      {
  43.       }
  44. ' Select entire file
  45.     >SelectAll
  46.     {
  47.     }
  48. ' Rotate for AutoCAD
  49.     >Rotate
  50.     {
  51.     <Axis 0
  52.     ' [0 = x, 1 = y, 2 = z, 3 = 2-point, 4 = line, 5 = plane]
  53.     <Angle 90
  54.     }
  55. ' Makes Output File Strings
  56.     Bob = LEN(B$)
  57.     Bob = Bob -2
  58.     C$ = LEFT$(B$, Bob)
  59.     D$ = C$ + "DWG"
  60. ' Exports the file to DWG
  61.     >DwgOut
  62.      {
  63.     <Filename [D$]
  64.      }
  65. ' Closes each file
  66.     >Close
  67.      {
  68.     <SaveChanges 0
  69.     <FileName [B$]
  70.      }
  71.     loop
  72. ' End of file
  73. ' End of macro
  74. End
  75.