home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2002 April / GSSH42002.iso / EDITOREN / DS / gmax / gmaxinst_1-1.exe / gmaxsetup11.cab / Macro_SubObjectLevels.mcr < prev    next >
Text File  |  2002-02-13  |  6KB  |  195 lines
  1. -- SubObject Mode MacroScript File
  2. --
  3. -- Created:          June 14 2000
  4. -- Last Updated:     June 21 2000
  5. --
  6. -- Author :   Frank DeLise
  7. -- Version:  3ds max 4
  8. --
  9. -- 
  10. -- SubObject operations Macroscript file.
  11. --***********************************************************************************************
  12. -- MODIFY THIS AT YOUR OWN RISK
  13. -- 
  14.  
  15.  
  16.  
  17. MacroScript SubObject_Vertex
  18. ButtonText:"Vertex"
  19. Category:"Modifier Stack" 
  20. internalCategory:"Modifier Stack" 
  21. Tooltip:"Vertex Sub-object Mode"
  22. Icon:#("SubObjectIcons",1)
  23. (
  24.     On IsChecked Return (SubObjectLevel == 1 and filters.CanSwitchTo_Vertex())
  25.     On IsEnabled Return (Filters.CanSwitchTo_Vertex())
  26.     On IsVisible Return (Filters.CanSwitchTo_Vertex())
  27.     
  28.     On Execute do
  29.     (
  30.         If SubObjectLevel == undefined then Max Modify Mode
  31.         If Filters.CanSwitchTo_Vertex() == True then Try(If SubObjectLevel != 1 then SubObjectLevel = 1 Else SubObjectLevel = 0)Catch()
  32.     )
  33.  
  34. ) 
  35. MacroScript SubObject_Edge
  36. ButtonText:"Edge"
  37. Category:"Modifier Stack" 
  38. internalCategory:"Modifier Stack" 
  39. Tooltip:"Edge Sub-object Mode"
  40. Icon:#("SubObjectIcons",2)
  41. (
  42.     On IsChecked Return (SubObjectLevel == 2 and Filters.CanSwitchTo_Edge())
  43.     On IsEnabled Return (Filters.CanSwitchTo_Edge())
  44.     On IsVisible Return (Filters.CanSwitchTo_Edge())
  45.     
  46.     On Execute do
  47.     (
  48.         If SubObjectLevel == undefined then Max Modify Mode
  49.         If Filters.CanSwitchTo_Edge() == True then Try(If SubObjectLevel != 2 then SubObjectLevel = 2 Else SubObjectLevel = 0)Catch()
  50.     )
  51.  
  52. ) 
  53. MacroScript SubObject_Face
  54. ButtonText:"Face"
  55. Category:"Modifier Stack" 
  56. internalCategory:"Modifier Stack" 
  57. Tooltip:"Face Sub-object Mode"
  58. Icon:#("SubObjectIcons",3)
  59. (
  60.     On IsChecked Return (SubObjectLevel == 3 and Filters.CanSwitchTo_Face())
  61.     On IsEnabled Return (Filters.CanSwitchTo_Face())
  62.     On IsVisible Return (Filters.CanSwitchTo_Face()) 
  63.     
  64.     On Execute do
  65.     (
  66.         If SubObjectLevel == undefined then Max Modify Mode
  67.         If Filters.CanSwitchTo_Face() == True then Try(If SubObjectLevel != 3 then SubObjectLevel = 3 Else SubObjectLevel = 0)Catch()
  68.     )
  69.  
  70. ) 
  71. MacroScript SubObject_Polygon
  72. ButtonText:"Polygon"
  73. Category:"Modifier Stack" 
  74. internalCategory:"Modifier Stack" 
  75. Tooltip:"Polygon Sub-object Mode"
  76. Icon:#("SubObjectIcons",4)
  77. (
  78.     On IsChecked return (SubObjectLevel == 4 and Filters.CanSwitchTo_Polygon())
  79.     On IsEnabled Return (Filters.CanSwitchTo_Polygon())
  80.     On IsVisible Return (Filters.CanSwitchTo_Polygon())
  81.     
  82.     On Execute do
  83.     (
  84.         If SubObjectLevel == undefined then Max Modify Mode
  85.         If Filters.CanSwitchTo_Polygon() == True then Try(If SubObjectLevel != 4 then SubObjectLevel = 4 Else SubObjectLevel = 0)Catch()
  86.     )
  87.  
  88. ) 
  89.  
  90. MacroScript SubObject_Element
  91. ButtonText:"Element"
  92. Category:"Modifier Stack" 
  93. internalCategory:"Modifier Stack" 
  94. Tooltip:"Element Sub-object Mode"
  95. Icon:#("SubObjectIcons",5)
  96. (
  97.     On IsChecked return 
  98.     (
  99.         If (SubObjectLevel == 5 and Filters.CanSwitchTo_Element() == True) then True
  100.         Else If (SubObjectLevel == 4 and (Filters.CanSwitchTo_Element() == True and (Filters.CanSwitchTo_Border() == False and Filters.CanSwitchTo_Face() == False))) Then True
  101.         Else False
  102.     )
  103.     On IsEnabled Return (Filters.CanSwitchTo_Element())
  104.     On IsVisible Return (Filters.CanSwitchTo_Element())
  105.     
  106.     On Execute do
  107.     (
  108.         If SubObjectLevel == undefined then Max Modify Mode
  109.         if (filters.Is_EditMesh() == True or filters.Is_MeshSelect () == True or filters.Is_EditPoly () == True or filters.Is_PolySelect () == True ) then 
  110.         (
  111.             if Filters.CanSwitchTo_Element() == True then Try(If SubObjectLevel != 5 then SubObjectLevel = 5 Else SubObjectLevel = 0)Catch()
  112.         )
  113.         Else
  114.         (
  115.             if Filters.CanSwitchTo_Element() == True then Try(If SubObjectLevel != 4 then SubObjectLevel = 4 Else SubObjectLevel = 0)Catch()
  116.         )
  117.         
  118.         
  119.     )
  120.  
  121. ) 
  122. MacroScript SubObject_Segment
  123. ButtonText:"Segment"
  124. Category:"Modifier Stack" 
  125. internalCategory:"Modifier Stack" 
  126. Tooltip:"Segment Sub-object Mode"
  127. Icon:#("SubObjectIcons",11)
  128. (
  129.     On IsChecked return (SubObjectLevel == 2 and Filters.CanSwitchTo_Segment())
  130.     On IsEnabled Return (Filters.CanSwitchTo_Segment())
  131.     On IsVisible Return (Filters.CanSwitchTo_Segment())
  132.     
  133.     On Execute do
  134.     (
  135.         If SubObjectLevel == undefined then Max Modify Mode
  136.         if Filters.CanSwitchTo_Segment() == True then Try(If SubObjectLevel != 2 then SubObjectLevel = 2 Else SubObjectLevel = 0)Catch()
  137.     )
  138.  
  139. ) 
  140. MacroScript SubObject_Spline
  141. ButtonText:"Spline"
  142. Category:"Modifier Stack" 
  143. internalCategory:"Modifier Stack" 
  144. Tooltip:"Spline Sub-object Mode"
  145. Icon:#("SubObjectIcons",12)
  146. (
  147.     On IsChecked return (SubObjectLevel == 3 and Filters.CanSwitchTo_Spline())
  148.     On IsEnabled Return (Filters.CanSwitchTo_Spline())
  149.     On IsVisible Return (Filters.CanSwitchTo_Spline())
  150.     
  151.     On Execute do
  152.     (
  153.         If SubObjectLevel == undefined then Max Modify Mode
  154.         if Filters.CanSwitchTo_Spline() == True then Try(If SubObjectLevel != 3 then SubObjectLevel = 3 Else SubObjectLevel = 0)Catch()
  155.     )
  156.  
  157. ) 
  158. MacroScript SubObject_Patch
  159. ButtonText:"Patch"
  160. Category:"Modifier Stack" 
  161. internalCategory:"Modifier Stack" 
  162. Tooltip:"Patch Sub-object Mode"
  163. Icon:#("SubObjectIcons",8)
  164. (
  165.     On IsChecked return (SubObjectLevel == 3 and Filters.CanSwitchTo_Patch())
  166.     On IsEnabled Return (Filters.CanSwitchTo_Patch())
  167.     On IsVisible Return (Filters.CanSwitchTo_Patch())
  168.     
  169.     On Execute do
  170.     (
  171.         If SubObjectLevel == undefined then Max Modify Mode
  172.         if Filters.CanSwitchTo_Patch() == True then Try(If SubObjectLevel != 3 then SubObjectLevel = 3 Else SubObjectLevel = 0)Catch()
  173.     )
  174.  
  175. ) 
  176. MacroScript SubObject_Border
  177. ButtonText:"Border"
  178. Category:"Modifier Stack" 
  179. internalCategory:"Modifier Stack" 
  180. Tooltip:"Border Sub-object Mode"
  181. Icon:#("SubObjectIcons",9)
  182. (
  183.     On IsChecked return (SubObjectLevel == 3 and Filters.CanSwitchTo_Border())
  184.     On IsEnabled Return (Filters.CanSwitchTo_Border())
  185.     On IsVisible Return (Filters.CanSwitchTo_Border())
  186.     
  187.     On Execute do
  188.     (
  189.         If SubObjectLevel == undefined then Max Modify Mode
  190.         if Filters.CanSwitchTo_Border() == True then Try(If SubObjectLevel != 3 then SubObjectLevel = 3 Else SubObjectLevel = 0)Catch()
  191.     )
  192.  
  193. ) 
  194.  
  195.