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 / 600_5_AskData.d3m < prev    next >
Encoding:
Text File  |  2003-09-29  |  1.7 KB  |  56 lines
  1. ' This is the fifth macro in the 600 series, 
  2. '
  3. ' It prompts users for the data, and saves the results to the
  4. ' data file, and the other programs use these values as defaults.
  5. ' 
  6. ' This macro changes user defaults for the area boxes.
  7. '
  8.         ' Prompt user for Additional Length 
  9.             Sys$(41) = "Add to Length Meters? . . ."
  10.             Input "How Much Additional Length? . . . (Enter for None)", AddLen
  11.             '
  12.         ' Check for Exit Condition on Input box
  13.             if Sys(999) = 1 then 
  14.                 Message "Program Stopped by User."
  15.                 End
  16.              endif
  17.         ' Prompt user for text height
  18.             Sys$(41) = "Text Height . . ."
  19.             Input "Enter the Text Height for the Info Box . . . (Enter = 1)", TH
  20.         ' Check for Exit Condition on Input box
  21.             if Sys(999) = 1 then 
  22.                 Message "Program Stopped by User."
  23.                 End
  24.             endif
  25.         ' Check for valid entries
  26.             if TH = 0 then TH = 1
  27.  
  28.         ' Prompt user for Panel Reduction
  29.             Sys$(41) = "Panel Subtraction . . ."
  30.             Input "Subtract how many Panels?, (Press Enter for None)", PanNum2
  31.         ' Check for Exit Condition on Input box
  32.             if Sys(999) = 1 then 
  33.                 Message "Program Stopped by User."
  34.             End
  35.             endif
  36.         ' # of Panels per Carton based on Room Type
  37.             Sys$(41) = "Panels per Carton. . ."
  38.             Input "Panels per Carton?, (Press Enter = 10)", PanNum4
  39.         ' Check for Exit Condition on Input box
  40.             if Sys(999) = 1 then 
  41.                 Message "Program Stopped by User."
  42.             End
  43.             endif
  44.             Precision 0
  45.             if PanNum4 = 0 then PanNum4 = 10
  46.             Close #1
  47.             open "o", 1, "*\sample macros\600.txt"
  48.             ' Write Values from ABOVE to file
  49.                 Print #1, AddLen
  50.                 Print #1, TH
  51.                 Print #1, PanNum2
  52.                 Print #1, PanNum4
  53.             ' Close ASCII text file
  54.                 Close #1
  55.             '
  56.