home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 7 / CD7_CAD.ISO / cad / circarry.csc < prev    next >
Text File  |  1996-10-28  |  6KB  |  158 lines
  1. 'This script will demonstrate the CIRCULAR ARRAY command
  2.  
  3. '************************************************************************************************************
  4. '************************************************************************************************************
  5. '************************************************************************************************************
  6. '************************************************************************************************************
  7. REM ⌐ 1996 Corel Corporation. All rights reserved.
  8. '************************************************************************************************************
  9.  
  10. REM Declare Subroutines
  11. declare Sub Cross(xcoo&,ycoo&,zcoo&)
  12. declare Sub DoLine(x1&,y1&,z1&,x2&,y2&,z2&)
  13. '************************************************************************************************************
  14. '************************************************************************************************************
  15.  
  16. REM Declare Variables
  17. Global Title as string
  18.  
  19. Rem Set Variable
  20. Title$ = "CorelCAD: Creating a CIRCULAR ARRAY"
  21.  
  22. WITHOBJECT "CorelCAD.Automation.1"
  23.  
  24.     REM Call A New File
  25.     .FileNew
  26.  
  27.     REM Call First Dialog
  28.  
  29.     String1$ = "This script will demonstrate the CIRCULAR ARRAY command."
  30.     String2$ = "For more information on ARRAYS consult CorelCAD's On-line Help."
  31. BEGIN DIALOG DispMessage1 25,70, 316, 70,Title$
  32.     TEXT  4, 2, 310, 17, String1$
  33.     TEXT  4, 20, 310, 19, String2$
  34.     TEXT  6, 46, 310, 13, "Click NEXT to proceed or CANCEL to exit the Script."
  35.     PUSHBUTTON  198, 44, 40, 16, "Next >>>"
  36.     CANCELBUTTON  240, 44, 40, 16
  37. END DIALOG
  38.  
  39.     Return% = DIALOG (DispMessage1)
  40.     if Return = 2 then STOP
  41.  
  42.     REM Call Second Dialog and Draw Cone
  43.  
  44.  
  45.     String1$ = "A CONE will be created."
  46.     String2$ = "This is done using the CONE: CENTER AND RADIUS command, located on the main toolbar in the 3D SOLID flyout."
  47. BEGIN DIALOG DispMessage2 25,70, 316, 70,Title$
  48.     TEXT  4, 2, 310, 17, String1$
  49.     TEXT  4, 20, 310, 19, String2$
  50.     TEXT  6, 46, 310, 13, "Click NEXT to proceed or CANCEL to exit the Script."
  51.     PUSHBUTTON  198, 44, 40, 16, "Next >>>"
  52.     CANCELBUTTON  240, 44, 40, 16
  53. END DIALOG
  54.  
  55.     Return% = DIALOG (DispMessage2)
  56.     if Return = 2 then STOP
  57.  
  58.  
  59.     .Cone -1, -40, -50, 0, -28.2544, -50, 0, -40, 0, 0
  60.  
  61.     String1$ = "The CIRCULAR ARRAY will now be performed."
  62.     String2$ = "TWO points will be set to define an AXIS of REVOLUTION."
  63. BEGIN DIALOG DispMessage3 25,70, 316, 70,Title$
  64.     TEXT  4, 2, 310, 17, String1$
  65.     TEXT  4, 20, 310, 19, String2$
  66.     TEXT  6, 46, 310, 13, "Click NEXT to proceed or CANCEL to exit the Script."
  67.     PUSHBUTTON  198, 44, 40, 16, "Next >>>"
  68.     CANCELBUTTON  240, 44, 40, 16
  69. END DIALOG
  70.  
  71.     Return% = DIALOG (DispMessage3)
  72.     if Return = 2 then STOP
  73.  
  74.     CROSS    -40,0, -20
  75.     doline -40,0,-20,-40,0,20
  76.     cross -40, 0, 20    
  77.  
  78.     .SelectPointAt -36.8171, -37.7163, 20, 0
  79.     .CircularArray 10, 360, -1, -40, 0, 20, -40, 0, -20, 0
  80.     .zoomtoall
  81.  
  82.  
  83.     String1$ = "This ARRAY contains 10 CONES."
  84.     String2$ = "The CONES have been rotated around the axis at 360 degrees."
  85.     String3$ = "A MATERIAL will now be applied to the CONES."
  86.     String4$ = "RENDERING may take a moment."
  87. BEGIN DIALOG DispMessage4 25,70, 316, 98, Title$
  88.         TEXT  4, 4, 310, 18, String1$
  89.         TEXT  4, 20, 310, 18, String2$
  90.         TEXT  4, 36, 310, 18, String3$
  91.         TEXT  4, 52, 310, 18, String4$
  92.         TEXT  4, 68, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  93.         PUSHBUTTON  192, 67, 40, 16, "Next >>>"
  94.         CANCELBUTTON  240, 67, 40, 16
  95.     END DIALOG
  96.     
  97.     Return% = DIALOG (DispMessage4)
  98.     if Return = 2 then STOP
  99.     
  100.     .SelectWithinRegion -72.5796, 46.4471, -20, -27.0862, -16.3258, -20
  101.     .DeleteSelection 
  102.     .SelectAll 
  103.     .ApplyMaterial "Glass", "Glass Blocks"
  104.     .ShadeEntireView 0, 0, 3, 0
  105. beep
  106.     String1$ = "For ARRAYS of multiple objects, the objects should be GROUPED before the array is executed. This will result in enhanced ARRAY performance."
  107.     String2$ = "This grouping option is located in the TOOLS:OPTIONS dialog box."
  108.     BEGIN DIALOG DispMessage100 25, 70, 316, 75, "FINAL HINTS"
  109.         TEXT  4, 4, 310, 18, String1$
  110.         TEXT  4, 25, 310, 18, String2$
  111.         TEXT  42, 48, 118, 8, "Click END to finish the demonstation."
  112.         PUSHBUTTON  223, 47, 40, 16, "END"
  113.     END DIALOG
  114.  
  115.     Return% = DIALOG (DispMessage100)
  116.     if Return = 2 then STOP
  117.     
  118. END WITHOBJECT
  119.  
  120. '************************************************************************************************************
  121. SUB Cross (xcoo&,ycoo&,zcoo&)
  122. withobject "corelcad.automation.1"
  123.     .SetPointXYZ xcoo, ycoo, zcoo-7
  124.     .SetPointXYZ xcoo, ycoo, zcoo+7
  125.     .LineSegment 
  126.     .ChangeColor 51, 255, 102
  127.     .SetPointXYZ xcoo-7, ycoo, zcoo
  128.     .SetPointXYZ xcoo+7, ycoo, zcoo
  129.     .LineSegment 
  130.     .ChangeColor 0, 0, 0
  131.     .SetPointXYZ xcoo, ycoo-7, zcoo
  132.     .SetPointXYZ xcoo, ycoo+7, zcoo
  133.     .LineSegment 
  134.     .ChangeColor 255, 0, 0
  135.     .Box -1, xcoo-2, ycoo-2, zcoo-2, xcoo+2, ycoo+2, zcoo+2
  136.     .ChangeColor 0, 204, 255
  137.     .setpointxyz xcoo,ycoo,zcoo
  138.     .linesegment
  139.                 wait for 1
  140.     '.selectWithinRegion xcoo-6,ycoo-6,zcoo-6,xcoo+6,ycoo+6,zcoo+6 
  141. end withobject
  142. end sub
  143. '************************************************************************************************************
  144. SUB DoLine(x1&,y1&,z1&,x2&,y2&,z2&)
  145.     WITHOBJECT "CorelCAD.automation.1"
  146.     .NewLayer " ", , -1, 0, 0, 0, 0, 255, 0, 2, ""
  147.     .setcurrentlayer " "
  148.     .setpointxyz x1,y1,z1 
  149.     .setpointxyz x2,y2,z2
  150.     .arrowLine 3,1
  151.     .setcurrentlayer "Default Layer"
  152. wait for 1
  153.     end withobject
  154. END SUB
  155. '************************************************************************************************************
  156. '************************************************************************************************************
  157.  
  158.