home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2002 April / maximum-cd-2002-04.iso / Software / Apps / gmax / gmaxinst.exe / gmaxsetup11.cab / Macro_Shapes.mcr < prev    next >
Encoding:
Text File  |  2001-09-12  |  3.2 KB  |  117 lines
  1. -- Macro Scripts File
  2. -- Created:  Nov 17 1998
  3. -- Author:   Frank DeLise
  4. -- Macro Scripts for Shapes
  5. --***********************************************************************************************
  6. -- MODIFY THIS AT YOUR OWN RISK
  7.  
  8. macroScript Lines 
  9.             category:"Shapes" 
  10.             internalcategory:"Shapes" 
  11.             tooltip:"Line Shape" 
  12.             buttontext:"Line" 
  13.             Icon:#("Splines",1)
  14. (
  15.    on execute do StartObjectCreation Line
  16.    on isChecked return (mcrUtils.IsCreating Line)
  17. )
  18.  
  19. macroScript Circle 
  20.             category:"Shapes" 
  21.             internalcategory:"Shapes" 
  22.             tooltip:"Circle Shape" 
  23.             buttontext:"Circle" 
  24.             Icon:#("Splines",2)
  25. (
  26.    on execute do StartObjectCreation Circle 
  27.    on isChecked return (mcrUtils.IsCreating Circle)
  28. )
  29.  
  30. macroScript Arc 
  31.             category:"Shapes" 
  32.             internalcategory:"Shapes" 
  33.             tooltip:"Arc Shape" 
  34.             buttontext:"Arc" 
  35.             Icon:#("Splines",3)
  36. (
  37.    on execute do StartObjectCreation Arc
  38.    on isChecked return (mcrUtils.IsCreating Arc)
  39. )
  40.  
  41. macroScript Ngon 
  42.             category:"Shapes" 
  43.             internalcategory:"Shapes" 
  44.             tooltip:"NGon Shape" 
  45.             buttontext:"NGon" 
  46.             Icon:#("Splines",4)
  47. (
  48.    on execute do StartObjectCreation Ngon
  49.    on isChecked return (mcrUtils.IsCreating Ngon)
  50. )
  51.  
  52. macroScript Text 
  53.             category:"Shapes" 
  54.             internalcategory:"Shapes" 
  55.             tooltip:"Text Shape" 
  56.             buttontext:"Text" 
  57.             Icon:#("Splines",5)
  58. (
  59.    on execute do StartObjectCreation Text 
  60.    on isChecked return (mcrUtils.IsCreating Text)
  61. )
  62.  
  63. macroScript Rectangle 
  64.             category:"Shapes" 
  65.             internalcategory:"Shapes" 
  66.             tooltip:"Rectangle Shape" 
  67.             buttontext:"Rectangle" 
  68.             Icon:#("Splines",7)
  69. (
  70.    on execute do StartObjectCreation Rectangle 
  71.    on isChecked return (mcrUtils.IsCreating Rectangle)
  72. )
  73.  
  74. macroScript Ellipse 
  75.             category:"Shapes" 
  76.             internalcategory:"Shapes" 
  77.             tooltip:"Ellipse Shape" 
  78.             buttontext:"Ellipse" 
  79.             Icon:#("Splines",8)
  80. (
  81.    on execute do StartObjectCreation Ellipse     
  82.    on isChecked return (mcrUtils.IsCreating Ellipse)
  83. )
  84.  
  85. macroScript Donut 
  86.             category:"Shapes" 
  87.             internalcategory:"Shapes" 
  88.             tooltip:"Donut Shape" 
  89.             buttontext:"Donut" 
  90.             Icon:#("Splines",9)
  91. (
  92.    on execute do StartObjectCreation Donut 
  93.    on isChecked return (mcrUtils.IsCreating Donut)
  94. )
  95.  
  96. macroScript Star 
  97.             category:"Shapes" 
  98.             internalcategory:"Shapes" 
  99.             tooltip:"Star Shape" 
  100.             buttontext:"Star" 
  101.             Icon:#("Splines",10)
  102. (
  103.    on execute do StartObjectCreation Star 
  104.    on isChecked return (mcrUtils.IsCreating Star)
  105. )
  106.  
  107. macroScript Helix 
  108.             category:"Shapes" 
  109.             internalcategory:"Shapes" 
  110.             tooltip:"Helix Shape" 
  111.             buttontext:"Helix" 
  112.             Icon:#("Splines",11)
  113. (
  114.    on execute do StartObjectCreation Helix 
  115.    on isChecked return (mcrUtils.IsCreating Helix)
  116. )
  117.