home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 7 / CD7_CAD.ISO / cad / dimmodel.csc < prev    next >
Text File  |  1996-10-28  |  10KB  |  298 lines
  1. 'This script will demonstrate basic DIMENSION commands
  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: DIMENSION an existing model"
  21.  
  22. WITHOBJECT "CorelCAD.Automation.1"
  23.  
  24.  
  25.  
  26.     REM Call First Dialog and Open File: "Dimension Model.ccd"
  27.     .FileOpen "..\CAD\Dimension Model.ccd"
  28.     .ZoomToAll
  29.  
  30.  
  31.     String1$ = "This script will demonstrate basic DIMENSION commands."
  32.     String2$ = "For more information on DIMENSION consult CorelCAD's On-line Help."
  33.     BEGIN DIALOG DispMessage 25, 70, 316, 75, Title$
  34.         TEXT  4, 4, 310, 18, String1$
  35.         TEXT  4, 20, 310, 18, String2$
  36.         TEXT  4, 46, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  37.         PUSHBUTTON  192, 44, 40, 16, "Next >>>"
  38.         CANCELBUTTON  240, 44, 40, 16
  39.     END DIALOG
  40.  
  41.     Return% = DIALOG (DispMessage)
  42.     if Return = 2 then STOP
  43.  
  44.  
  45.     REM Call Second Dialog 
  46.  
  47.  
  48.  
  49.     String1$ = "The CorelCAD model: 'Dimension Model.ccd' will be dimensioned."
  50.     String2$ = ""
  51.     BEGIN DIALOG DispMessage2 25, 70, 316, 75, Title$
  52.         TEXT  4, 4, 310, 18, String1$
  53.         TEXT  4, 20, 310, 18, String2$
  54.         TEXT  4, 46, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  55.         PUSHBUTTON  192, 44, 40, 16, "Next >>>"
  56.         CANCELBUTTON  240, 44, 40, 16
  57.     END DIALOG
  58.  
  59.     Return% = DIALOG (DispMessage2)
  60.     if Return = 2 then STOP
  61.     
  62.     REM Call Third Dialog
  63.  
  64.     string1$ = "All DIMENSION commands are located in the DIMENSION flyout."
  65.     string2$ = "Several features will be dimensioned along the same axis using the CONTINUOUS LINEAR DIMENSION command."
  66.     string3$ = ""
  67.     string4$ = "A point must be set for each DIMENSION."
  68.     BEGIN DIALOG DispMessage3 25,70, 316, 98, Title$
  69.         TEXT  4, 4, 310, 18, String1$
  70.         TEXT  4, 20, 310, 18, String2$
  71.         TEXT  4, 36, 310, 18, String3$
  72.         TEXT  4, 52, 310, 18, String4$
  73.         TEXT  4, 68, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  74.         PUSHBUTTON  192, 67, 40, 16, "Next >>>"
  75.         CANCELBUTTON  240, 67, 40, 16
  76.     END DIALOG
  77.     
  78.     Return% = DIALOG (DispMessage3)
  79.     if Return = 2 then STOP
  80.  
  81.  
  82.  
  83.     REM Continuous Linear Dimensioning
  84.  
  85.     cross -2.40968, -0.295163, 0.32122
  86.     wait for .5
  87.     cross -0.166327, -0.295163, 0.32122
  88.     wait for .5
  89.     cross 0.738017, -0.295163, 0.32122
  90.     wait for .5
  91.     cross 1.72031, -0.295163, 0.32122
  92.     wait for .5
  93.     cross 3.15722, -0.295163, 0.32122
  94.     wait for .5
  95.     cross 4.52867, -0.198644, 0.293737
  96.     wait for .5
  97.  
  98.  
  99.  
  100.     String1$ = "A final point will be set to place the DIMENSIONING TEXT."
  101.     String2$ = ""
  102.     BEGIN DIALOG DispMessage4 25, 70, 316, 75, Title$
  103.         TEXT  4, 4, 310, 18, String1$
  104.         TEXT  4, 20, 310, 18, String2$
  105.         TEXT  4, 46, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  106.         PUSHBUTTON  192, 44, 40, 16, "Next >>>"
  107.         CANCELBUTTON  240, 44, 40, 16
  108.     END DIALOG
  109.  
  110.     Return% = DIALOG (DispMessage4)
  111.     if Return = 2 then STOP
  112.     
  113.     doline 4.52867, -0.198644, 0.293737,4.53385, -4.00034, 0.32122
  114.     cross 4.53385, -4.00034, 0.32122
  115.  
  116.     doline -2.40968, -0.295163, 0.32122,-2.40968, -0.295163-4, 0.32122
  117.     doline -0.166327, -0.295163, 0.32122,-0.166327, -0.295163-4, 0.32122
  118.     doline 0.738017, -0.295163, 0.32122,0.738017, -0.295163-4, 0.32122
  119.     doline 1.72031, -0.295163, 0.32122,1.72031, -0.295163-4, 0.32122
  120.     doline 3.15722, -0.295163, 0.32122,3.15722, -0.295163-4, 0.32122
  121.  
  122.  
  123.  
  124.  
  125.  
  126. .StartAddCmdPoint 7
  127.     .AddCmdPoint -2.40968, -0.295163, 0.32122
  128.     .AddCmdPoint -0.166327, -0.295163, 0.32122
  129.     .AddCmdPoint 0.738017, -0.295163, 0.32122
  130.     .AddCmdPoint 1.72031, -0.295163, 0.32122
  131.     .AddCmdPoint 3.15722, -0.295163, 0.32122
  132.     .AddCmdPoint 4.52867, -0.198644, 0.293737
  133.     .AddCmdPoint 4.28459, -4.00173, 0.293737
  134.     .EndAddCmdPoint 
  135.     .DimensionContinuous -1, 0
  136.  
  137.     
  138.     REM Call Fourth Dialog and Dimension the Circles
  139.  
  140.     String1$ = "The circular features will now be DIMENSIONED."
  141.     String2$ = "The DIAMETER DIMENSION command is used for this."
  142.     BEGIN DIALOG DispMessage5 25, 70, 316, 75, Title$
  143.         TEXT  4, 4, 310, 18, String1$
  144.         TEXT  4, 20, 310, 18, String2$
  145.         TEXT  4, 46, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  146.         PUSHBUTTON  192, 44, 40, 16, "Next >>>"
  147.         CANCELBUTTON  240, 44, 40, 16
  148.     END DIALOG
  149.  
  150.     Return% = DIALOG (DispMessage5)
  151.     if Return = 2 then STOP
  152.  
  153.     REM Create Third Dimension and Zoom to All
  154.  
  155.  
  156.  
  157.     cross -2.38816, -0.422934, 0.951224
  158. wait for .5
  159.     cross -2.56672, -1.41801, 0.951224
  160.     .DimensionDiameter -1, -2.37814, -0.295163, 0.951224, -2.56672, -1.41801, 0.951224
  161.     wait for .5
  162.     Cross -1.52749, -0.795521, 0.32122
  163.     wait for .5
  164.     cross -2.33413, 1.8429, -0.187117
  165.     .DimensionDiameter -1, -1.57915, -0.295163, -0.187117, -2.33413, 1.8429, -0.187117
  166.     wait for .5
  167.     Cross -0.297104, -1.58955, -0.187117
  168.     wait for .5
  169.     cross -0.0954133, 3.03428, 0.32122
  170.     .DimensionDiameter -1, -0.166327, -1.96006, 0.32122, -0.0954133, 3.03428, 0.32122
  171.     wait for .5
  172.     Cross 1.70093, -0.856979, 0.32122
  173.     wait for .5
  174.     cross 1.85334, 1.07487, 0.32122
  175.     .DimensionDiameter -1, 1.72031, -0.887514, 0.32122, 1.85334, 1.07487, 0.32122
  176.     wait for .5
  177.     Cross 3.18251, -1.0182, 0.32122
  178.     wait for .5
  179.     cross 3.9397, 0.546413, 0.32122
  180.     .DimensionDiameter -1, 3.12569, -0.924913, 0.30332, 3.9397, 0.546413, 0.32122
  181.     wait for .5
  182.  
  183.     
  184.     REM Call Fifth Dialog
  185.  
  186.  
  187.     String1$ = "The model will now be SHADED."
  188.     String2$ = "RENDERING may take a moment."
  189.     BEGIN DIALOG DispMessage6 25, 70, 316, 75, Title$
  190.         TEXT  4, 4, 310, 18, String1$
  191.         TEXT  4, 20, 310, 18, String2$
  192.         TEXT  4, 46, 170, 8, "Click NEXT to proceed or CANCEL to exit the Script."
  193.         PUSHBUTTON  192, 44, 40, 16, "Next >>>"
  194.         CANCELBUTTON  240, 44, 40, 16
  195.     END DIALOG
  196.  
  197.     Return% = DIALOG (DispMessage6)
  198.     if Return = 2 then STOP
  199.     
  200.     .SelectWithinRegion -3.20602, -0.404599, 0.32122, -2.3983, -1.1545, 0.32122
  201.     .deleteselection
  202.     .SelectWithinRegion -2.99344, 0.523955, 0.32122, -2.21821, 0.035146, 0.32122
  203.     .deleteselection
  204.     .SelectWithinRegion -2.86972, -0.00238016, 0.32122, -2.06622, -0.603701, 0.32122
  205.     .deleteselection
  206.     .SelectWithinRegion -2.54049, 1.70323, 0.32122, -1.76038, 1.03203, 0.32122
  207.     .deleteselection
  208.     .SelectWithinRegion -0.507464, -1.85266, 0.32122, 0.304299, -2.27716, 0.32122
  209.     .deleteselection
  210.     .SelectWithinRegion -0.534707, 0.0996378, 0.32122, 0.278847, -0.605302, 0.32122
  211.     .deleteselection
  212.     .SelectWithinRegion -0.520928, 3.36774, 0.32122, 0.303279, 2.66508, 0.32122
  213.     .deleteselection
  214.     .SelectWithinRegion 0.405857, -0.0548474, 0.32122, 1.12079, -0.585103, 0.32122
  215.     .deleteselection
  216.     .SelectWithinRegion 1.38927, 0.0530785, 0.32122, 2.11018, -0.501748, 0.32122
  217.     .deleteselection
  218.     .SelectWithinRegion 1.36564, -0.61305, 0.32122, 2.05943, -1.22898, 0.32122
  219.     .deleteselection
  220.     .SelectWithinRegion 1.43178, 1.32089, 0.32122, 2.13809, 0.783966, 0.32122
  221.     .deleteselection
  222.     .SelectWithinRegion 2.86631, -0.741718, 0.32122, 3.45186, -1.29599, 0.32122
  223.     .deleteselection
  224.     .SelectWithinRegion 2.75363, -0.0271233, 0.32122, 3.40898, -0.506218, 0.32122
  225.     .deleteselection
  226.     .SelectWithinRegion 3.60622, 0.819534, 0.32122, 4.2436, 0.305198, 0.32122
  227.     .deleteselection
  228.     .SelectWithinRegion 4.24343, 0.0452027, 0.32122, 4.87076, -0.414563, 0.32122
  229.     .deleteselection
  230.     .SelectWithinRegion 4.22987, -3.72604, 0.32122, 4.84221, -4.23236, 0.32122
  231.     .deleteselection
  232.     .SelectPointAt -1.43442, -0.874415, 0.32122, 1
  233.     .SelectPointAt 3.21786, -4.0768, 0.32122, 1
  234.     .SelectPointAt 1.78779, -4.04265, 0.32122, 1
  235.     .SelectPointAt 0.79839, -4.07613, 0.32122, 1
  236.     .SelectPointAt -0.108052, -4.05453, 0.32122, 1
  237.     .SelectPointAt -2.34227, -3.89281, 0.32122, 1
  238.     .deleteselection
  239.  
  240.     .ShadeEntireView -1,-1,3,0
  241. beep
  242.  
  243.     String1$ = "When using CONTINUOUS LINEAR DIMENSION, double-click or press Enter to place the text at a specified distance away from the model."
  244.     String2$ = "Use the DIMENSION Roll-Up, located on the DIMENSION toolbar, to change settings such as measurement units, font type and size of dimensioning text."
  245.  
  246.     BEGIN DIALOG DispMessage7 25, 70, 316, 75, "FINAL HINTS"
  247.         TEXT  4, 4, 310, 16, String1$
  248.         TEXT  4, 25, 310, 17, String2$
  249.         TEXT  42, 48, 118, 8, "Click END to finish the demonstation."
  250.         PUSHBUTTON  223, 47, 40, 16, "END"
  251.     END DIALOG
  252.  
  253.     Return% = DIALOG (DispMessage7)
  254.     if Return = 2 then STOP
  255.     
  256.  
  257.  
  258. END WITHOBJECT
  259.  
  260.  
  261. '************************************************************************************************************
  262. SUB Cross (xcoo#,ycoo#,zcoo#)
  263. withobject "corelcad.automation.1"
  264.     .SetPointXYZ xcoo, ycoo, zcoo-.2
  265.     .SetPointXYZ xcoo, ycoo, zcoo+.2
  266.     .LineSegment 
  267.     .ChangeColor 51, 255, 102
  268.     .SetPointXYZ xcoo-.2, ycoo, zcoo
  269.     .SetPointXYZ xcoo+.2, ycoo, zcoo
  270.     .LineSegment 
  271.     .ChangeColor 0, 0, 0
  272.     .SetPointXYZ xcoo, ycoo-.2, zcoo
  273.     .SetPointXYZ xcoo, ycoo+.2, zcoo
  274.     .LineSegment 
  275.     .ChangeColor 255, 0, 0
  276.     .Box -1, xcoo-.1, ycoo-.1, zcoo-.1, xcoo+.1, ycoo+.1, zcoo+.1
  277.     .ChangeColor 0, 204, 255
  278.     .setpointxyz xcoo,ycoo,zcoo
  279.     .linesegment
  280.  
  281.     '.selectWithinRegion xcoo-6,ycoo-6,zcoo-6,xcoo+6,ycoo+6,zcoo+6 
  282. end withobject
  283. end sub
  284. '************************************************************************************************************
  285. SUB DoLine(x1#,y1#,z1#,x2#,y2#,z2#)
  286.     WITHOBJECT "CorelCAD.automation.1"
  287.     .NewLayer " ", , -1, 0, 0, 0, 0, 255, 0, 2, ""
  288.     .setcurrentlayer " "
  289.     .setpointxyz x1,y1,z1 
  290.     .setpointxyz x2,y2,z2
  291.     .arrowLine .5,1
  292.     .setcurrentlayer "Default Layer"
  293.     end withobject
  294. END SUB
  295. '************************************************************************************************************
  296. '************************************************************************************************************
  297.  
  298.