home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2002 April / GSSH42002.iso / EDITOREN / DS / gmax / gmaxinst_1-1.exe / gmaxsetup11.cab / Macro_Compounds.mcr < prev    next >
Encoding:
Text File  |  2002-02-13  |  3.1 KB  |  121 lines
  1. -- Macro Scripts File
  2. -- Created:  Jan 1 1999
  3. -- Modified  March 2 1999
  4. -- Author:   Frank DeLise
  5. -- Macro Scripts for Compound Objects
  6. --***********************************************************************************************
  7. -- MODIFY THIS AT YOUR OWN RISK
  8.  
  9. macroScript Morph 
  10.             category:"Objects" 
  11.             internalcategory:"Objects" 
  12.             tooltip:"Morph Compound Object" 
  13.             buttontext:"Morph" 
  14.             Icon:#("Compound",1)
  15. (
  16.     on execute do (
  17.       If SuperClassof $ != GeometryClass and SuperClassof $ != Shape then
  18.     (
  19.     MessageBox "Please Select an Object or Shape first" Title:"Morph"
  20.     )
  21.     Else 
  22.     (
  23.     StartObjectCreation Morph
  24.     )
  25.     )
  26.    on isChecked return (mcrUtils.IsCreating Morph)
  27.    on isEnabled return not (SuperClassof $ != GeometryClass and SuperClassof $ != Shape )
  28.  
  29. )
  30.  
  31. macroScript ShapeMerge 
  32.             category:"Objects" 
  33.             internalcategory:"Objects" 
  34.             tooltip:"ShapeMerge Compound Object" 
  35.             buttontext:"ShapeMerge" 
  36.             Icon:#("Compound",3)
  37. (
  38.     on execute do (
  39.         If SuperClassof $ != GeometryClass and SuperClassof $ != Shape then
  40.     (
  41.     MessageBox "Please Select an Object or Shape first " Title:"ShapeMerge"
  42.     )
  43.     Else 
  44.     (
  45.     StartObjectCreation ShapeMerge
  46.     )
  47.     )
  48.    on isChecked return (mcrUtils.IsCreating ShapeMerge)
  49.    on isEnabled return not (SuperClassof $ != GeometryClass and SuperClassof $ != Shape )
  50.  
  51. )
  52.  
  53.  
  54. macroScript Loft 
  55.             category:"Objects" 
  56.             internalcategory:"Objects" 
  57.             tooltip:"Loft Compound Object" 
  58.             buttontext:"Loft" 
  59.             Icon:#("Compound",8)
  60. (
  61.     on execute do (
  62.         If SuperClassof $ != shape then
  63.     (
  64.     MessageBox "Please Select a Shape first" Title:"Loft"
  65.     )
  66.     Else 
  67.     (
  68.     StartObjectCreation Loft
  69.     )
  70.     )
  71.    on isChecked return (mcrUtils.IsCreating Loft)
  72.    on isEnabled return not (SuperClassof $ != shape )
  73.  
  74. )
  75.  
  76. macroScript Connect 
  77.             category:"Objects" 
  78.             internalcategory:"Objects" 
  79.             tooltip:"Connect Compound Object" 
  80.             buttontext:"Connect" 
  81.             Icon:#("Compound",6)
  82. (
  83.     on execute do (
  84.         If SuperClassof $ != GeometryClass and SuperClassof $ != Shape then
  85.     (
  86.     MessageBox "Please Select an Object or Shape first " Title:"Connect"
  87.     )
  88.     Else 
  89.     (
  90.     StartObjectCreation Connect
  91.     )
  92.     )
  93.    on isChecked return (mcrUtils.IsCreating Connect)
  94.    on isEnabled return not (SuperClassof $ != GeometryClass and SuperClassof $ != Shape )
  95.  
  96. )
  97.  
  98. macroScript Boolean 
  99.             category:"Objects" 
  100.             internalcategory:"Objects" 
  101.             tooltip:"Boolean Compound Object" 
  102.             buttontext:"Boolean" 
  103.             Icon:#("Compound",7)
  104. (
  105.     on execute do (
  106.         If SuperClassof $ != GeometryClass and SuperClassof $ != Shape then
  107.     (
  108.     MessageBox "Please Select an Object or Shape first " Title:"Boolean"
  109.     )
  110.     Else 
  111.     (
  112.     StartObjectCreation Boolean2
  113.     )
  114.    )
  115.    on isChecked return (mcrUtils.IsCreating Boolean2)
  116.    on isEnabled return not (SuperClassof $ != GeometryClass and SuperClassof $ != Shape )
  117.  
  118. )
  119.  
  120.  
  121.