home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 7 / CD7_CAD.ISO / cad / model2.csc < prev    next >
Encoding:
Text File  |  1996-10-28  |  15.8 KB  |  420 lines
  1. 'This script creates a model using various CorelCAD features
  2.  
  3. '************************************************************************************************************
  4. '************************************************************************************************************
  5. '************************************************************************************************************
  6. '************************************************************************************************************
  7. REM ⌐ 1996 Corel Corporation. All rights reserved.
  8. '************************************************************************************************************
  9.  
  10.  
  11. WITHOBJECT "CorelCAD.Automation.1"
  12.  
  13.     .Filenew
  14.  
  15.     string1$ = "This script creates a model using various CorelCAD features."
  16.     string2$ = "For more information on the features used in this demonstration consult CorelCAD's On-line Help."    
  17.     BEGIN DIALOG DispMessage 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  18.         TEXT  4, 2, 310, 18, String1$
  19.         TEXT  4, 21, 310, 15, String2$
  20.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  21.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  22.         CANCELBUTTON  239, 38, 40, 16
  23.     END DIALOG
  24.  
  25.     Return% = DIALOG (DispMessage)
  26.     if Return = 2 then STOP
  27.  
  28.     string1$ = "The first part of the model is created using the SOLID BOX command, located on the SOLID tool flyout."
  29.     string2$ = ""
  30.     BEGIN DIALOG DispMessage1 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  31.         TEXT  4, 2, 310, 18, String1$
  32.         TEXT  4, 21, 310, 15, String2$
  33.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  34.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  35.         CANCELBUTTON  239, 38, 40, 16
  36.     END DIALOG
  37.  
  38.     Return% = DIALOG (DispMessage1)
  39.     if Return = 2 then STOP
  40.  
  41.  
  42.     .Box -1, 0, 0, 0, 8, 6, 1
  43.     .ZoomToAll  
  44.  
  45.     string1$ = "A second SOLID BOX is created by using the SOLID flyout tool. "
  46.     string2$ = "The first solid is used as a reference in the positioning of the second solid."
  47.     BEGIN DIALOG DispMessage2 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  48.         TEXT  4, 2, 310, 18, String1$
  49.         TEXT  4, 21, 310, 15, String2$
  50.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  51.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  52.         CANCELBUTTON  239, 38, 40, 16
  53.     END DIALOG
  54.  
  55.     Return% = DIALOG (DispMessage2)
  56.     if Return = 2 then STOP
  57.  
  58.  
  59.     .Box -1, 8, 2.5, 1, 0, 3.5, 4
  60.     .SelectPointAt -0.964039, 2.22435, 1, 0
  61.     .ZoomToAll 
  62.  
  63.     string1$ = "A 3D TRIM will be performed on the second SOLID BOX. It removes the right side corner. "
  64.     string2$ = "The 3D TRIM command is located in the TRANSFORM: SLICE menu."
  65.     BEGIN DIALOG DispMessage3 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  66.         TEXT  4, 2, 310, 18, String1$
  67.         TEXT  4, 21, 310, 15, String2$
  68.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  69.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  70.         CANCELBUTTON  239, 38, 40, 16
  71.     END DIALOG
  72.  
  73.     Return% = DIALOG (DispMessage3)
  74.     if Return = 2 then STOP
  75.  
  76.  
  77.     .SelectPointAt 6.11711, 6.55759, 1, 0
  78.     .ThreeDTrim 6, 3.5, 4, 6, 2.5, 4, 8, 2.5, 3, 8, 2.5, 4
  79.     .SelectPointAt 7.08237, 4.42053, 4, 0
  80.  
  81.     string1$ = "A CYLINDER will be created by using the CYLINDER: CENTER and RADIUS Tool."
  82.     string2$ = "The first solid is used as a reference in positioning the CYLINDER."
  83.     BEGIN DIALOG DispMessage4 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  84.         TEXT  4, 2, 310, 18, String1$
  85.         TEXT  4, 21, 310, 15, String2$
  86.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  87.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  88.         CANCELBUTTON  239, 38, 40, 16
  89.     END DIALOG
  90.  
  91.     Return% = DIALOG (DispMessage4)
  92.     if Return = 2 then STOP
  93.  
  94.     .Cylinder -1, 3, 3, 1, 4.5, 3, 1, 4.5, 3, 5
  95.  
  96.     string1$ = "A second CYLINDER is created. "
  97.     string2$ = "This CYLINDER will be offset -0.5 inches from the top of the first CYLINDER."
  98.     BEGIN DIALOG DispMessage5 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  99.         TEXT  4, 2, 310, 18, String1$
  100.         TEXT  4, 21, 310, 15, String2$
  101.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  102.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  103.         CANCELBUTTON  239, 38, 40, 16
  104.     END DIALOG
  105.  
  106.     Return% = DIALOG (DispMessage5)
  107.     if Return = 2 then STOP
  108.  
  109.  
  110.     .Cylinder -1, 3, 3, 4.5, 4.6, 3, 4.5, 4.6, 3, 5.5
  111.     .SelectPointAt 4.90813, 5.12774, 4.5, 0
  112.  
  113.     string1$ = "A FRUSTUM will be created by using the FRUSTUM: CENTER and RADIUS Tool."
  114.     string2$ = "The second CYLINDER is used for positioning the FRUSTUM."
  115.     BEGIN DIALOG DispMessage6 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  116.         TEXT  4, 2, 310, 18, String1$
  117.         TEXT  4, 21, 310, 15, String2$
  118.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  119.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  120.         CANCELBUTTON  239, 38, 40, 16
  121.     END DIALOG
  122.  
  123.     Return% = DIALOG (DispMessage6)
  124.     if Return = 2 then STOP
  125.  
  126.  
  127.     .Frustum -1, 3, 3, 5.5, 4.6, 3, 5.5, 4.6, 3, 8.5, 3.6, 3, 8.5
  128.     .ZoomToAll 
  129.  
  130.     string1$ = "All of the objects will be added together using the BOOLEAN ADD command. "
  131.     string2$ = "The BOOLEAN ADD command is located in the TRANSFORM menu."
  132.     BEGIN DIALOG DispMessage7 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  133.         TEXT  4, 2, 310, 18, String1$
  134.         TEXT  4, 21, 310, 15, String2$
  135.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  136.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  137.         CANCELBUTTON  239, 38, 40, 16
  138.     END DIALOG
  139.     
  140.     Return% = DIALOG (DispMessage7)
  141.     if Return = 2 then STOP
  142.  
  143.  
  144.     .SelectAll 
  145.     .SolidAdd 
  146.  
  147.     string1$ = "A third CYLINDER is created."
  148.     string2$ = ""
  149.     BEGIN DIALOG DispMessage8 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  150.         TEXT  4, 2, 310, 18, String1$
  151.         TEXT  4, 21, 310, 15, String2$
  152.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  153.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  154.         CANCELBUTTON  239, 38, 40, 16
  155.     END DIALOG
  156.  
  157.     Return% = DIALOG (DispMessage8)
  158.     if Return = 2 then STOP
  159.  
  160.     .SelectPointAt -3.51962, 4.16571, 5.5, 0
  161.     .Cylinder -1, 3, 3, 8.5, 3.4, 3, 8.5, 3.4, 3, 0.5
  162.  
  163.     string1$ = "A fourth CYLINDER is created."
  164.     string2$ = "This cylinder will be offset 1 inch from the left corner of the first solid."
  165.     BEGIN DIALOG DispMessage9 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  166.         TEXT  4, 2, 310, 18, String1$
  167.         TEXT  4, 21, 310, 15, String2$
  168.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  169.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  170.         CANCELBUTTON  239, 38, 40, 16
  171.     END DIALOG
  172.  
  173.     Return% = DIALOG (DispMessage9)
  174.     if Return = 2 then STOP
  175.  
  176.     .SelectPointAt -6.22415, 8.07059, 1, 0
  177.     .Cylinder -1, 1, 1, 1, 1.5, 1, 1, 1.5, 1, 0
  178.     .SelectPointAt -6.18213, 7.88377, 1, 0
  179.  
  180.     string1$ = "A 2 DIRECTIONAL ARRAY is applied to the fourth CYLINDER."
  181.     string2$ = "The 2 DIRECTIONAL ARRAY command is located in the EDIT:ARRAY menu."
  182.     BEGIN DIALOG DispMessage10 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  183.         TEXT  4, 2, 310, 18, String1$
  184.         TEXT  4, 21, 310, 15, String2$
  185.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  186.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  187.         CANCELBUTTON  239, 38, 40, 16
  188.     END DIALOG
  189.     Return% = DIALOG (DispMessage10)
  190.     if Return = 2 then STOP
  191.  
  192.     .SelectPointAt 1.13535, 1.47567, 1, 0
  193.     .TwoDArray 1, 3, 2, 1, 1, 1, 7, 1, 1, 1, 5, 1
  194.     .SelectPointAt -6.53001, 7.50024, 1, 0
  195.  
  196.     string1$ = "The CYLINDERS will be subtracted from the first solid using the BOOLEAN SUBTRACT command."
  197.     string2$ = "The BOOLEAN SUBTRACT command is located in the TRANSFORM menu."
  198.     BEGIN DIALOG DispMessage11 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  199.         TEXT  4, 2, 310, 18, String1$
  200.         TEXT  4, 21, 310, 15, String2$
  201.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  202.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  203.         CANCELBUTTON  239, 38, 40, 16
  204.     END DIALOG
  205.  
  206.     Return% = DIALOG (DispMessage11)
  207.     if Return = 2 then STOP
  208.  
  209.  
  210.     .SetPointXYZ -0.56961, 5.49931, 1
  211.     .SetPointXYZ 1.03385, 1.49885, 1
  212.     .SolidSubtract 
  213.     .SetPointXYZ 0.500013, 5.49271, 1
  214.     .SetPointXYZ 4.34551, 1.36142, 1
  215.     .SolidSubtract 
  216.     .SetPointXYZ 8.02669, 1.98632, 1
  217.     .SetPointXYZ 6.73075, 1.42131, 1
  218.     .SolidSubtract 
  219.     .SetPointXYZ 8.01314, 2.37074, 1
  220.     .SetPointXYZ 6.71044, 5.40762, 1
  221.     .SolidSubtract 
  222.     .SetPointXYZ 5.07216, 6.39047, 1
  223.     .SetPointXYZ 4.35884, 5.26476, 1
  224.     .SolidSubtract 
  225.     .SetPointXYZ -0.902479, 6.54646, 1
  226.     .SetPointXYZ 0.597139, 4.66836, 1
  227.     .SolidSubtract 
  228.     .SetPointXYZ 4.97188, 6.4888, 1
  229.     .SetPointXYZ 0.485054, 10.2066, 1
  230.     .SolidSubtract 
  231.  
  232. '**************************************************************************************
  233.  
  234.     string1$ = "A 3 POINT BOX is created."
  235.     string2$ = "The INSERT POINT Roll-up may be used for precise placement of points."
  236.     BEGIN DIALOG DispMessage12 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  237.         TEXT  4, 2, 310, 18, String1$
  238.         TEXT  4, 21, 310, 15, String2$
  239.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  240.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  241.         CANCELBUTTON  239, 38, 40, 16
  242.     END DIALOG
  243.  
  244.     Return% = DIALOG (DispMessage12)
  245.     if Return = 2 then STOP
  246.  
  247.     .Box -1, 3, 1.15, 5.25, 3.25, 1.15, 5.25, 3.25, 2.15, 5.25, 3.25, 2.15, 6.75
  248.  
  249.     string1$ = "A CIRCULAR ARRAY is applied to the 3 POINT BOX. "
  250.     string2$ = "The CIRCULAR ARRAY is located in the EDIT: ARRAY menu."
  251.     BEGIN DIALOG DispMessage13 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  252.         TEXT  4, 2, 310, 18, String1$
  253.         TEXT  4, 21, 310, 15, String2$
  254.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  255.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  256.         CANCELBUTTON  239, 38, 40, 16
  257.     END DIALOG
  258.  
  259.     Return% = DIALOG (DispMessage13)
  260.     if Return = 2 then STOP
  261.  
  262.     .SelectPointAt -4.86287, 5.29135, 5.25, 0
  263.     .SelectPointAt 2.55075, 2.65973, 5.25, 0
  264.     .CircularArray 6, 360, -1, 3, 3, 8.5, 3, 3, 0.5, 0
  265.     .SelectPointAt -6.34342, 8.52715, 0.5, 0
  266.  
  267.     string1$ = "The 3 point boxes will be subtracted from the FRUSTUM using the  BOOLEAN SUBTRACT command."
  268.     string2$ = "The BOOLEAN SUBTRACT command is located in the TRANSFORM: BOOLEAN menu."
  269.     BEGIN DIALOG DispMessage14 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  270.         TEXT  4, 2, 310, 18, String1$
  271.         TEXT  4, 21, 310, 15, String2$
  272.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  273.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  274.         CANCELBUTTON  239, 38, 40, 16
  275.     END DIALOG
  276.  
  277.     Return% = DIALOG (DispMessage14)
  278.     if Return = 2 then STOP
  279.  
  280.     .SetPointXYZ -0.833969, 5.93433, 0.5
  281.     .SetPointXYZ 4.60215, 2.075, 5.71564
  282.     .SolidSubtract 
  283.     .SetPointXYZ 6.21069, 0.794059, 5.71564
  284.     .SetPointXYZ 4.45922, 3.84248, 6.75
  285.     .SolidSubtract 
  286.     .SetPointXYZ 6.87806, -0.225065, 6.75
  287.     .SetPointXYZ 3, 4.41575, 6.75
  288.     .SolidSubtract 
  289.     .SetPointXYZ 6.57916, -0.260218, 6.75
  290.     .SetPointXYZ 1.39785, 3.925, 6.43781
  291.     .SolidSubtract 
  292.     .SetPointXYZ 6.57613, 0.0197266, 6.43781
  293.     .SetPointXYZ 1.63581, 1.92371, 6.75
  294.     .SolidSubtract 
  295.     .SetPointXYZ 6.1514, -0.241541, 6.75
  296.     .SetPointXYZ 3, 1.15, 6.6667
  297.     .SolidSubtract 
  298.  
  299. '*************************************************************************************************************
  300.     string1$ = "A CHAMFER will be applied to the holes in the first solid. "
  301.     string2$ = "The CHAMFER command is located in the TRANSFORM: FILLET menu."
  302.     BEGIN DIALOG DispMessage15 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  303.         TEXT  4, 2, 310, 18, String1$
  304.         TEXT  4, 21, 310, 15, String2$
  305.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  306.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  307.         CANCELBUTTON  239, 38, 40, 16
  308.     END DIALOG
  309.  
  310.     Return% = DIALOG (DispMessage15)
  311.     if Return = 2 then STOP
  312.     
  313.     .ChamferEdge 0.1, 0.1, 2.80809, -4.09098, 6.6667
  314.     .ChamferEdge 0.1, 0.1, 6.29395, -4.39703, 6.6667
  315.     .ChamferEdge 0.1, 0.1, 8.36667, -4.5329, 6.6667
  316.     .ChamferEdge 0.1, 0.1, 8.46847, -0.343583, 6.6667
  317.     .ChamferEdge 0.1, 0.1, 6.21138, -0.355124, 6.6667
  318.     .ChamferEdge 0.1, 0.1, 2.54822, -0.898279, 6.6667
  319.     .ChamferEdge 0.1, 0.1, 2.32114, 5.22497, 6.6667
  320.  
  321. '********************************************************************************************************************
  322.     string1$ = "A PRISM SOLID will be created and subtracted from the second solid."
  323.     string2$ = "The PRISM:CENTER AND VERTEX tool is located on the SOLID tool flyout."
  324.     BEGIN DIALOG DispMessage16 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  325.         TEXT  4, 2, 310, 18, String1$
  326.         TEXT  4, 21, 310, 15, String2$
  327.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  328.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  329.         CANCELBUTTON  239, 38, 40, 16
  330.     END DIALOG
  331.  
  332.     Return% = DIALOG (DispMessage16)
  333.     if Return = 2 then STOP
  334.  
  335.     .PolygonalCylinder -1, 8, 5.40731, 2.5, 2.39976, 6.37127, 2.5, 2.60295, 6.37127, 3.5, 2.60295
  336.     .SelectPointAt -4.6398, 6.3931, 2.60295, 0
  337.     .SetPointXYZ 4.89006, 4.94506, 2.60295
  338.     .SetPointXYZ 6.14576, 2.5, 2.93226
  339.     .SolidSubtract 
  340.  
  341. '***************************************************************************************************************
  342.     string1$ = "EDGE FILLETS will be applied to the outer edges of the model. "
  343.     string2$ = "The FILLET EDGE command is located in the TRANSFORM:FILLET menu."
  344.     BEGIN DIALOG DispMessage17 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  345.         TEXT  4, 2, 310, 18, String1$
  346.         TEXT  4, 21, 310, 15, String2$
  347.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  348.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  349.         CANCELBUTTON  239, 38, 40, 16
  350.     END DIALOG
  351.  
  352.     Return% = DIALOG (DispMessage17)
  353.     if Return = 2 then STOP
  354.  
  355.     .FilletEdgeRound 0.1, 0, 0.641241, -1.00417, 2.93226, 0
  356.     .FilletEdgeRound 0.1, 0, 0.22017, 1.74735, 2.93226, 0
  357.     .FilletEdgeRound 0.1, 0, 0.775753, -2.2507, 2.93226, 0
  358.     '.FilletEdgeRound 0.1, 0, 0.927999, -1.90984, 2.93226, 0
  359.     .FilletEdgeRound 0.1, 0, 8.73824, -2.25977, 2.93226, 0
  360.     .FilletEdgeRound 0.1, 0, 8.57163, -0.938302, 2.93226, 0
  361.     .FilletEdgeRound 0.1, 0, 8.3136, 1.55329, 2.93226, 0
  362.  
  363. '***************************************************************************************************************** 
  364.  
  365.     'Dimension the Model
  366.  
  367.     string1$ = "A name will be added to the model. " 
  368.     string2$ = ""
  369.     BEGIN DIALOG DispMessage18 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  370.         TEXT  4, 2, 310, 18, String1$
  371.         TEXT  4, 21, 310, 15, String2$
  372.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  373.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  374.         CANCELBUTTON  239, 38, 40, 16
  375.     END DIALOG
  376.  
  377.     Return% = DIALOG (DispMessage18)
  378.     if Return = 2 then STOP
  379.  
  380.     .Text2D "CorelCAD Sample Model", "Times New Roman", 1, 0, 1, 0, 3.1655, 8.424, 2.93226
  381.  
  382. '*******************************************************************************************************************
  383.     .SelectALL    
  384.     .SetEdgeRefinement 0, 6
  385.     .SetSurfaceRefinement 2, 6
  386.  
  387. '********************************************************************************************************************
  388.     string1$ = "A MATERIAL will now be applied to the object. "
  389.     string2$ = "RENDERING may take a moment."
  390.     BEGIN DIALOG DispMessage19 25, 70, 316, 56, "CorelCAD: Sample Model Demonstration"
  391.         TEXT  4, 2, 310, 18, String1$
  392.         TEXT  4, 21, 310, 15, String2$
  393.         TEXT  6, 40, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  394.         PUSHBUTTON  195, 38, 40, 16, "Next >>>"
  395.         CANCELBUTTON  239, 38, 40, 16
  396.     END DIALOG
  397.  
  398.     Return% = DIALOG (DispMessage19)
  399.     if Return = 2 then STOP
  400.  
  401.     .zoomtoall
  402.     .selectAll
  403.     .ApplyMaterial "Metallic", "Bronze"
  404.     .ShadeEntireView -1, 0, 3, 0
  405.  
  406. beep
  407.     BEGIN DIALOG DispMessage20 25, 70, 154, 65,"CorelCAD: Sample Model Demonstration"
  408.         TEXT  29, 14, 98, 8, "The demonstration is complete."
  409.         PUSHBUTTON  61, 34, 40, 16, "End"
  410.     END DIALOG
  411.  
  412.     Return% = DIALOG (DispMessage20)
  413.     if Return = 2 then STOP
  414.  
  415. END WITHOBJECT
  416.  
  417. '********************************************************************************************************************
  418.  
  419.  
  420.