home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 7 / CD7_CAD.ISO / cad / circswep.csc < prev    next >
Text File  |  1996-10-28  |  8KB  |  264 lines
  1. 'This script will IMPORT a profile created in CorelDRAW 7.0 into CorelCAD and perform a CIRCULAR SWEEP on the profile
  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. REM Declare Variables
  15. Global Title as string
  16.  
  17. Rem Set Variable
  18. Title$ = "CorelCAD: CIRCULAR SWEEP demonstration"
  19.  
  20. REM Declare Variables
  21. DIM i%
  22. DIM XCoord$
  23. DIM XCoordNum%
  24. DIM ShadeNum%
  25. DIM ShadeType$(7)
  26. DIM MatType1$(6)
  27. DIM MatNum1%
  28. DIM MatNum2%
  29. DIM MetType$(4)
  30. DIM CategoryType$(6)
  31. DIM GlassType$(4)
  32. DIM JewelType$(4) 
  33. DIM MinType$(4)
  34. DIM PlasType$(4)
  35. DIM WoodType$(4)
  36. DIM ImageNum%
  37. DIM Yes$
  38. DIM YesNum%
  39. DIM No$
  40. DIM NoNum%
  41. DIM FileName$
  42. DIM FileNum%
  43.  
  44. REM First Dialog
  45.  
  46. Withobject "CorelCad.Automation.1"
  47.  
  48. .FileNEW
  49.  
  50.         String1$ = "This script will perform a CIRCULAR SWEEP on selected objects."
  51.         String2$ = "For more information on the EXTRUDE and FREE FORM commands, consult CorelCAD's On-line Help."
  52.     BEGIN DIALOG DispMessage 25, 70, 316, 75, Title$
  53.         TEXT  4, 4, 310, 18, String1$
  54.         TEXT  4, 20, 310, 18, String2$
  55.         TEXT  4, 46, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  56.         PUSHBUTTON  192, 44, 40, 16, "Next >>>"
  57.         CANCELBUTTON  240, 44, 40, 16
  58.     END DIALOG
  59.  
  60.     Return% = DIALOG (DispMessage)
  61.     if Return = 2 then STOP
  62.  
  63.     
  64.     Rem Views the CorelCAD window
  65.     .SetVisible -1  
  66.  
  67.         String1$ = "Three objects will be created using the FREE FORM tool."
  68.         String2$ = "A dialog box allows the user to define the FREE FORM as a surface or a wireframe."
  69.     BEGIN DIALOG DispMessage2 25, 70, 316, 75, Title$
  70.         TEXT  4, 4, 310, 18, String1$
  71.         TEXT  4, 20, 310, 18, String2$
  72.         TEXT  4, 46, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  73.         PUSHBUTTON  192, 44, 40, 16, "Next >>>"
  74.         CANCELBUTTON  240, 44, 40, 16
  75.     END DIALOG
  76.  
  77.     Return% = DIALOG (DispMessage2)
  78.     if Return = 2 then STOP
  79.  
  80.  
  81.     .SetPointXYZ 4.40846, -9.82336, 0
  82.     .SetPointXYZ 4.40846, 40.1766, 0
  83.     .SetPointXYZ 14.4085, 40.1766, 0
  84.     .SetPointXYZ 14.4085, 20.1766, 0
  85.     .SetPointXYZ 44.4085, 20.1766, 0
  86.     .SetPointXYZ 44.4085, 40.1766, 0
  87.     .SetPointXYZ 54.4085, 40.1766, 0
  88.     .SetPointXYZ 54.4085, -9.82336, 0
  89.     .Plane 0
  90.     .SetPointXYZ -5.59154, -14.8234, 0
  91.     .SetPointXYZ -35.5915, -14.8234, 0
  92.     .SetPointXYZ -35.5915, -4.82336, 0
  93.     .SetPointXYZ -33.5915, -4.82336, 0
  94.     .SetPointXYZ -33.5915, -10.8234, 0
  95.     .SetPointXYZ -5.66802, -10.8234, 0
  96.     .Plane 0
  97.     .SetPointXYZ -2.60909, -10.9048, 0
  98.     .SetPointXYZ -2.60909, -0.630858, 0
  99.     .SetPointXYZ -1.16959, -0.630858, 0
  100.     .SetPointXYZ -1.16959, -10.9048, 0
  101.     .Plane 0
  102.  
  103.  
  104.     .zoomtoall
  105.     .zoomout
  106.     .zoomout
  107.     .SelectAll 
  108.  
  109.     String1$ = "A CIRCULAR SWEEP will be performed on the selected objects."
  110.     String2$ = "The CIRCULAR SWEEP command is located in DRAW: EXTRUDE menu."
  111.     string3$ = "Two points will be set to define an axis of rotation. The sweep will occur around this axis."
  112.     BEGIN DIALOG DispMessage3 25, 70, 316, 96, Title
  113.         TEXT  4, 4, 308, 18, string1
  114.         TEXT  4, 22, 308, 18, string2
  115.         TEXT  4, 43, 309, 18, string3
  116.         TEXT  10, 74, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  117.         PUSHBUTTON  198, 72, 40, 16, "Next >>>"
  118.         CANCELBUTTON  246, 72, 40, 16
  119.     END DIALOG
  120.  
  121.     Return% = DIALOG (DispMessage3)
  122.     if Return = 2 then STOP
  123.  
  124.     Call Cross ( -35.5915, -19.8234, 0 )
  125.     Call doline ( -35.5915, -19.8234, 0, -5.59154, -19.8234, 0 )
  126.     Call Cross ( -5.59154, -19.8234, 0 )
  127.  
  128.     Wait for 1.2
  129.  
  130.     .ZoomOut 
  131.     .SelectPointAt -41.3945, -19.1148, 0, 4
  132.     .SelectPointAt -38.1312, -17.3566, 0, 4
  133.     .SelectPointAt -37.5777, -14.0409, 0, 4
  134.     .SelectPointAt -35.6288, -24.5541, 0, 4
  135.     .SelectPointAt -25.6427, -19.8888, 0, 4
  136.     .SelectPointAt -5.88873, -25.7479, 0, 4
  137.     .SelectPointAt -3.19944, -25.9592, 0, 4
  138.     .SelectPointAt -3.04233, -23.2475, 0, 4
  139.     .SelectPointAt -0.116161, -19.6096, 0, 4
  140.     .DeleteSelection 
  141.  
  142.     
  143.  
  144.     .SelectAll
  145.     
  146.     .CircularSweep 20, 360, -35.5915, -19.8234, 0, -5.59154, -19.8234, 0, 0
  147.     .ZoomToAll
  148.  
  149.  
  150.  
  151.     String1$ = "The MIRROR command will be used to mirror two objects to the opposite side of the model."
  152.         String2$ = ""
  153.     BEGIN DIALOG DispMessage4 25, 70, 316, 75, Title$
  154.         TEXT  4, 4, 310, 18, String1$
  155.         TEXT  4, 20, 310, 18, String2$
  156.         TEXT  4, 46, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  157.         PUSHBUTTON  192, 44, 40, 16, "Next >>>"
  158.         CANCELBUTTON  240, 44, 40, 16
  159.     END DIALOG
  160.  
  161.     Return% = DIALOG (DispMessage4)
  162.     if Return = 2 then STOP
  163.  
  164.     .SelectPointAt -52.5355, -13.4407, 60, 0
  165.     .SelectPointAt -5.29605, -82.7783, 60, 4
  166.     .SelectPointAt 13.0189, -55.4098, 60, 4
  167.     .Mirror -1, 29.4085, -79.8234, 0, 29.4085, -19.8234, 60
  168.     .SelectPointAt 165.722, -114.405, 60, 0
  169.  
  170.  
  171.  
  172.     .SelectAll
  173.     .SetEdgeRefinement 0, 6
  174.     .SetSurfaceRefinement 2, 5
  175.  
  176.     .ZoomToAll
  177.  
  178.  
  179.     String1$ = "MATERIALS will now be applied to the model."
  180.     String2$ = "RENDERING may take a moment."
  181.     BEGIN DIALOG DispMessage5 25, 70, 316, 75, Title$
  182.         TEXT  4, 4, 310, 18, String1$
  183.         TEXT  4, 20, 310, 18, String2$
  184.         TEXT  4, 46, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  185.         PUSHBUTTON  192, 44, 40, 16, "Next >>>"
  186.         CANCELBUTTON  240, 44, 40, 16
  187.     END DIALOG
  188.  
  189.     Return% = DIALOG (DispMessage5)
  190.     if Return = 2 then STOP
  191.  
  192.  
  193.     .SelectPointAt -5.18824, 34.9359, 0, 0
  194.     .ApplyMaterial "Metallic", "Bronze"
  195.     .SelectPointAt -26.3661, -24.0466, 0, 0
  196.     .SelectPointAt 83.2073, -24.2158, 0, 4
  197.     .ApplyMaterial "Metallic", "Brass"
  198.     .SelectPointAt -6.72529, 2.48726, 0, 0
  199.     .SelectPointAt 55.5025, 3.75443, 0, 4
  200.     .ApplyMaterial "Metallic", "Chrome"
  201.  
  202.  
  203.     .ShadeEntireView 0, 0, 3, 0
  204.  
  205.  
  206.     String1$ = "The CIRCULAR SWEEP command may be used to sweep any 2D object to form a 3 dimensional model."
  207.     String2$ = "2D objects imported from CorelDRAW 7 may also be swept."
  208.  
  209. beep
  210.     BEGIN DIALOG DispMessage7 25, 70, 316, 75, "FINAL HINTS"
  211.         TEXT  4, 4, 310, 16, String1$
  212.         TEXT  4, 25, 310, 17, String2$
  213.         TEXT  42, 48, 118, 8, "Click END to finish the demonstation."
  214.         PUSHBUTTON  223, 47, 40, 16, "END"
  215.     END DIALOG
  216.  
  217.     Return% = DIALOG (DispMessage7)
  218.     if Return = 2 then STOP
  219.  
  220. END WITHOBJECT
  221.  
  222.  
  223.  
  224.  
  225.  
  226.  
  227. SUB Cross (xcoo#,ycoo#,zcoo#)
  228. withobject "corelcad.automation.1"
  229.     .SetPointXYZ xcoo, ycoo, zcoo-7
  230.     .SetPointXYZ xcoo, ycoo, zcoo+7
  231.     .LineSegment 
  232.     .ChangeColor 51, 255, 102
  233.     .SetPointXYZ xcoo-7, ycoo, zcoo
  234.     .SetPointXYZ xcoo+7, ycoo, zcoo
  235.     .LineSegment 
  236.     .ChangeColor 0, 0, 0
  237.     .SetPointXYZ xcoo, ycoo-7, zcoo
  238.     .SetPointXYZ xcoo, ycoo+7, zcoo
  239.     .LineSegment 
  240.     .ChangeColor 255, 0, 0
  241.     .Box -1, xcoo-2, ycoo-2, zcoo-2, xcoo+2, ycoo+2, zcoo+2
  242.     .ChangeColor 0, 204, 255
  243.     .setpointxyz xcoo,ycoo,zcoo
  244.     .linesegment
  245.                 wait for 1
  246.     '.selectWithinRegion xcoo-6,ycoo-6,zcoo-6,xcoo+6,ycoo+6,zcoo+6 
  247. end withobject
  248. end sub
  249.  
  250.  
  251. SUB DoLine(x1#,y1#,z1#,x2#,y2#,z2#)
  252.     WITHOBJECT "CorelCAD.automation.1"
  253.     .NewLayer " ", , -1, 0, 0, 0, 0, 255, 0, 2, ""
  254.     .setcurrentlayer " "
  255.     .setpointxyz x1,y1,z1 
  256.     .setpointxyz x2,y2,z2
  257.     .arrowLine 3,1
  258.     .setcurrentlayer "Default Layer"
  259.     end withobject
  260. END SUB
  261.  
  262.  
  263.  
  264.