home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2002 April / maximum-cd-2002-04.iso / Software / Apps / gmax / gmaxinst.exe / gmaxsetup11.cab / Macro_ModifierStackTools.mcr < prev    next >
Encoding:
Text File  |  2001-09-12  |  3.9 KB  |  167 lines
  1. -- Convert To: MacroScript File
  2. --
  3. -- Created:          May 15 2000
  4. -- Last Updated:     10 6 2000
  5. --
  6. -- Author :   Frank DeLise
  7. -- Version:  3ds max 4
  8. --
  9. -- 
  10. -- This script enables all surface conversions through Macroscripts.
  11. --***********************************************************************************************
  12. -- MODIFY THIS AT YOUR OWN RISK
  13. -- 
  14.  
  15.  
  16. MacroScript Collapse_Stack 
  17.     ButtonText:"Collapse Stack" 
  18.     Category:"Modifier Stack" 
  19.     internalCategory:"Modifier Stack" 
  20.     Tooltip:"Collapse Stack" 
  21.     -- Needs Icon
  22.     --Icon:#("Max_edit_modifiers",1)
  23. (    
  24.     
  25.     On isEnabled return Try(Filters.Are_Modifiers_Applied())Catch()
  26.     On isVisible return Try(Filters.Are_Modifiers_Applied())Catch() 
  27.     On Execute Do    
  28.     (
  29.         Undo on 
  30.         (
  31.             if SubObjectLevel == undefined then Max Modify Mode
  32.             For i in 1 to selection.count do
  33.             (
  34.                 Try(CollapseStack Selection[i])Catch()
  35.             )        
  36.         ) 
  37.     
  38.     )
  39.     
  40. )
  41.  
  42.  
  43. MacroScript Modify_Mode 
  44.     ButtonText:"Modify Mode" 
  45.     Category:"Modifier Stack" 
  46.     internalCategory:"Modifier Stack" 
  47.     Tooltip:"Modify Mode" 
  48.     -- Needs Icon
  49.     --Icon:#("Max_edit_modifiers",1)
  50. (    
  51.     
  52.     On isEnabled return (Try(getCommandPanelTaskMode() != #modify)Catch())
  53.     On isVisible return (Try(getCommandPanelTaskMode() != #modify)Catch()) 
  54.     On Execute Do    
  55.     (
  56.         Max Modify Mode 
  57.     
  58.     )
  59.     
  60. )
  61. MacroScript Create_Mode 
  62.     ButtonText:"Create Mode" 
  63.     Category:"Modifier Stack" 
  64.     internalCategory:"Modifier Stack" 
  65.     Tooltip:"Create Mode" 
  66.     -- Needs Icon
  67.     --Icon:#("Max_edit_modifiers",1)
  68. (    
  69.     
  70.     On isEnabled return (Try(getCommandPanelTaskMode() != #create)Catch())
  71.     On isVisible return (Try(getCommandPanelTaskMode() != #create)Catch()) 
  72.     On Execute Do    
  73.     (
  74.         Max Create Mode 
  75.     
  76.     )
  77.     
  78. )
  79.  
  80.  
  81. MacroScript Convert_to_Mesh 
  82.     ButtonText:"Convert to Editable Mesh" 
  83.     Category:"Modifier Stack" 
  84.     internalCategory:"Modifier Stack" 
  85.     Tooltip:"Convert to Editable Mesh" 
  86.     Icon:#("Max_edit_modifiers",1)
  87. (    
  88.  
  89.     On isEnabled return (Try(Selection.count != 0 and CanConvertTo Selection[1] Mesh)Catch())
  90.     On isVisible return (Try(Selection.count != 0 and CanConvertTo Selection[1] Mesh)Catch()) 
  91.     On Execute Do    
  92.     (
  93.         for i in 1 to selection.count do
  94.         (
  95.             Try(ConvertToMesh Selection[i])Catch() 
  96.         )    
  97.         Max modify mode
  98.     )
  99. )
  100.  
  101. MacroScript Convert_to_Patch 
  102.     ButtonText:"Convert to Editable Patch" 
  103.     Category:"Modifier Stack"  
  104.     internalCategory:"Modifier Stack"  
  105.     Tooltip:"Convert to Editable Patch" 
  106.     Icon:#("Max_edit_modifiers",2)
  107. (    
  108.  
  109.     On isEnabled return (Try(Selection.count != 0 and CanConvertTo Selection[1] Editable_Patch)Catch())
  110.     On isVisible return (Try(Selection.count != 0 and CanConvertTo Selection[1] Editable_Patch)Catch()) 
  111.     On Execute Do    
  112.     (
  113.         for i in 1 to selection.count do
  114.         (
  115.             Try(ConvertTo Selection[i] Editable_Patch)Catch() 
  116.         )
  117.         Max modify mode
  118.     )
  119. )
  120.  
  121. MacroScript Convert_to_Spline 
  122.     ButtonText:"Convert to Editable Spline" 
  123.     Category:"Modifier Stack" 
  124.     internalCategory:"Modifier Stack" 
  125.     Tooltip:"Convert to Editable Spline" 
  126.     Icon:#("Max_edit_modifiers",11)
  127. (    
  128.  
  129.     On isEnabled return (Try(Selection.count != 0 and CanConvertTo Selection[1] SplineShape)Catch())
  130.     On isVisible return (Try(Selection.count != 0 and CanConvertTo Selection[1] SplineShape)Catch()) 
  131.     On Execute Do    
  132.     (
  133.         for i in 1 to selection.count do
  134.         (
  135.             Try(ConvertToSplineShape Selection[i])Catch() 
  136.         )
  137.         Max modify mode
  138.     )
  139. )
  140.  
  141.  
  142. MacroScript Convert_to_Poly
  143.     ButtonText:"Convert to Editable Poly" 
  144.     Category:"Modifier Stack"  
  145.     internalCategory:"Modifier Stack"  
  146.     Tooltip:"Convert to Editable Polygon" 
  147.     Icon:#("Max_edit_modifiers",16)
  148. (    
  149.  
  150.     On isEnabled return (Try(Selection.count != 0 and CanConvertTo Selection[1] Mesh)Catch())
  151.     On isVisible return (Try(Selection.count != 0 and CanConvertTo Selection[1] Mesh)Catch()) 
  152.     On Execute Do    
  153.     (
  154.         Try(
  155.         for i in 1 to selection.count do
  156.         (
  157.             Try(ConvertTo Selection[i] Editable_Poly)Catch() 
  158.         )
  159.         Max modify mode
  160.         )
  161.         Catch() 
  162.     )
  163. )
  164.  
  165.  
  166.  
  167.