home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November / PCWK1103B.iso / DesignCAD 3D Max PLUS trial 30 / DATA1.CAB / Example_Files / Sample_Macros / Deck_Slice2.d3m < prev    next >
Encoding:
Text File  |  2003-09-29  |  29.3 KB  |  1,317 lines
  1. ' BasicCAD Program to draw a Sliced Deck 
  2. ' Deck Data is stored in an ASCII data file in the 
  3. ' Sample Macros folder.
  4. '
  5. ' Program Settings
  6.     Sys(242) = 0                      ' Turn off Select Object when Created for now
  7. '    Sys(800) = 1                      ' Turn on Tracing Mode Dialog
  8.     Sys(36) = 1                       ' Turn on Silent Mode
  9.     Sys(243) = 0                ' Turn off Shade when Created
  10.     Precision 4
  11. '
  12. ' Items in Layers
  13. '       Layer 1 Posts
  14. '       Layer 2 Deck Outline on ground
  15. '      Layer 3 Beams
  16. '      Layer 4 Deck Frame
  17. '      Layer 5 Deck Joists
  18. '        Layer 6 Decking
  19. '    Layer 15 Attributes
  20. '
  21. ' All Deck Distance Variable names follow this format
  22. '       Character 1; F or I for Feet or Inches
  23. '       Character 2; X, Y, or Z for Axis
  24. '       Character 3; D for Deck, P for Post, B for Beam, J for Joist, etc.
  25. '      Character 4; T for Total, (Optional)
  26. '
  27. ' Declare and initialize Public Variables
  28. '
  29. ' Start Progress Bar
  30.     Progress 1 "Drawing Deck, Please Wait . . . "
  31. '
  32. ' Get Values from ASCII text file
  33.     open "i", 1, "*\Sample Macros\Deck_Slice2.txt"
  34. ' Deck Variables
  35.  
  36. ' Get Deck Width
  37.         input #1, temp$
  38.     temp2$ = LEFT$(temp$, 8)
  39.     FXDwide = VAL(temp2$)            ' Deck Width
  40.     IXDwide = FXDwide * 12              ' Deck Width
  41. ' Get Deck Depth
  42.         input #1, temp$
  43.     temp2$ = LEFT$(temp$, 5)
  44.     FZDdeep = VAL(temp2$)             ' Deck Depth
  45.     IZDdeep = FZDdeep * 12              ' Deck Depth
  46. ' Get Deck Height
  47.         input #1, temp$
  48.     temp2$ = LEFT$(temp$, 5)
  49.     FYDhigh = VAL(temp2$)             ' Deck Height
  50.     IYDhigh = FYDhigh * 12              ' Deck Height
  51. ' Get Deck Overhang
  52.         input #1, temp$
  53.     temp2$ = LEFT$(temp$, 5)
  54.     FXDover = VAL(temp2$)             ' Max. Allowed Overhang
  55.     IXDover = FXDover * 12              ' Max. Allowed Overhang
  56. ' Get Deck Overhang
  57.         input #1, temp$
  58.     temp2$ = LEFT$(temp$, 5)
  59.     FZDover = VAL(temp2$)             ' Max. Allowed Overhang
  60.     IZDover = FZDover * 12              ' Max. Allowed Overhang
  61. ' Get Length Between Posts
  62.         input #1, temp$
  63.     temp2$ = LEFT$(temp$, 5)
  64.     FXPlbep = VAL(temp2$)             ' Length Between Posts
  65.     IXPlbep = FXPlbep * 12              ' Length Between Posts
  66. ' Get Post Width
  67.         input #1, temp$
  68.     temp2$ = LEFT$(temp$, 5)
  69.     IXPwide = VAL(temp2$)             ' Post Width
  70.  
  71.     IXPhwide = IXPwide / 2              ' Post Width / 2 on X
  72.     IZPhdeep = IXPwide / 2              ' Post Depth / 2 on Z
  73. ' Get Space Between Beams    
  74.         input #1, temp$
  75.     temp2$ = LEFT$(temp$, 5)
  76.     FZBdeep = VAL(temp2$)             ' Space Between Beams    
  77.     IZBdeep = FZBdeep * 12              ' Space Between Beams
  78. ' Get Beam Height    
  79.         input #1, temp$
  80.     temp2$ = LEFT$(temp$, 5)
  81.     IYBhigh = VAL(temp2$)             ' Beam Height
  82. ' Get Beam Depth    
  83.         input #1, temp$
  84.     temp2$ = LEFT$(temp$, 5)
  85.     IZBdepe = VAL(temp2$)             ' Beam Depth
  86. ' Get Beam Width    
  87.         input #1, temp$
  88.     temp2$ = LEFT$(temp$, 5)
  89.     FXBwide = VAL(temp2$)            ' Beam Width
  90.     IXBwide = FXBwide * 12             ' Beam Width
  91. ' Get Joist Height    
  92.         input #1, temp$
  93.     temp2$ = LEFT$(temp$, 5)
  94.     IYJhigh = VAL(temp2$)             ' Joist Height
  95. ' Get Joist Depth
  96.         input #1, temp$
  97.     temp2$ = LEFT$(temp$, 5)
  98.     FZJdepe = VAL(temp2$)            ' Joist Depth
  99.     IZJdepe = FZJdepe * 12             ' Joist Depth
  100. ' Get Joist Width
  101.         input #1, temp$
  102.     temp2$ = LEFT$(temp$, 5)
  103.     IXJwide = VAL(temp2$)             ' Joist Width
  104. ' Get Joist Spacing
  105.         input #1, temp$
  106.     temp2$ = LEFT$(temp$, 5)
  107.     IXJcent = VAL(temp2$)            ' Joist Center Spacing
  108. ' Get Decking Height
  109.         input #1, temp$
  110.     temp2$ = LEFT$(temp$, 5)
  111.     IYKhigh = VAL(temp2$)            ' Decking Height
  112. ' Get Decking Depth
  113.         input #1, temp$
  114.     temp2$ = LEFT$(temp$, 5)
  115.     IZKdepe = VAL(temp2$)            ' Decking Depth
  116. ' Get Decking Spacing
  117.         input #1, temp$
  118.     temp2$ = LEFT$(temp$, 5)
  119.     IXZKspc = VAL(temp2$)            ' Decking Spacing
  120. ' Get Deck Type
  121.         input #1, temp$
  122.     temp2$ = LEFT$(temp$, 5)
  123.     Dvalue = VAL(temp2$)            ' Deck Type
  124. ' Get Post Type
  125.         input #1, temp$
  126.     PostType$ = temp$                ' Post Type String
  127. ' Get Beam Type
  128.         input #1, temp$
  129.     BeamType$ = temp$                ' Beam Type String
  130. ' Get Joist Type
  131.         input #1, temp$
  132.     JoisType$ = temp$                ' Joist Type String    
  133. ' Get Decking String
  134.         input #1, temp$
  135.     Decking$ = temp$                ' Decking String    
  136. ' Get Shading String
  137.         input #1, Shade
  138. Close #1
  139. ' 
  140.   IXPtlen = IXDwide - (2 * IXPoffs)             ' Total Width Available for Posts after Subtracting Overhang
  141.   IZPtlen = IZDdeep - (2 * IZPoffs)             ' Total Depth Available for Posts after Subtracting Overhang
  142.   IXKwide = ((3 * IXJcent) - IXZKspc)        ' Calculated Width of Decking
  143.   IXZJovr = ((IXJwide - IXZKspc) / 2)        ' Calculated Overlap for Decking across Width of Joist
  144.   IYPhigh = 0                          ' Calculated Post Height
  145.   NumoPstX = 0                        ' Calculated number of Posts for Deck Width
  146.   NumoBmsZ = 0                        ' Calculated number of Beams for Deck Depth
  147.   NumoJstX = 0                    ' Calculated number of Joists for Deck Width
  148.   NumoDckZ = 0                    ' Calculated number of Rows of Decking for Deck Depth Divided by 3
  149.                          ' 3 Rows are Initially Drawn and All 3 are then Arrayed
  150.                          ' The Rows of Decking is All Rows of Decking Needed so It Needs to be Divided by 3
  151. '
  152. ' Misc Variables
  153.   tn1 = 0                          ' Numeric Local Placeholder
  154.   t1$ = ""                          ' String Local Placeholder
  155.   ps1 = 0                          ' Temp Numeric Value passed to Status subroutine
  156.   ps2 = 0                          ' Temp Numeric Value divided by 12
  157.   ps3 = 0                          ' Temp Numeric Value multiplied by 12
  158.   ps$ = ""                          ' Temp String Variable
  159.  
  160. '
  161. ' Calculate Post Height
  162. ' Add Beam height + Joist Height
  163.     tn1 = IYBhigh + IYJhigh
  164. ' Subtract the sum from the deck height in inches
  165.       IYPhigh = IYDhigh - tn1
  166. '      ps1 = IYPhigh
  167. '      gosub status
  168. '
  169. ' Calculate Number of Posts Needed for Width
  170. ' Total Width Available for Posts
  171.  
  172.     IXPtlen = IXDwide - (2 * IXDover)
  173.  
  174. ' Number of Posts is Total Width Available for Posts divided by Length between Posts
  175.  
  176.     NumoPstX = IXPtlen / IXPlbep
  177.     NumoPstX = ROUND (NumoPstX)
  178.     ' Distance Between Posts is refigured as Total Width Available for Posts Divided by the Newly figured Number of Posts
  179.     IXPlbep = IXPtlen / NumoPstX
  180. '      ps1 =NumoPstX
  181. '      gosub status
  182. '
  183. '    IXPlbep = IXPlbep / 2
  184. '    NumoPstX = NumoPstX * 2
  185. ' Draw Posts for Deck Width
  186. '
  187. ' Posts go on Layer 1
  188.     SYS(3)=1
  189.       SYS$(93) = "Posts"    
  190. ' Set Drawing Options
  191.     ' Use Left Hand Coordinate System
  192.         Sys(110) = -1
  193.             '
  194.     ' Select Object when Created
  195.         Sys(242) = 1
  196.             '
  197.     ' Set Local Origin Location
  198.         LOriginX = 0 + IXDover
  199.             LOriginY = 0
  200.             LOriginZ = 0 + IZDover
  201.     ' Make sure we're in 3D
  202.         if Sys(344) = 1 then
  203.             >2DMode
  204.             {
  205.               }
  206.         endif
  207.     ' Make sure were in wireframe mode
  208. for a = 1 to 4
  209.     Sys(71) = a
  210.     Sys(2) = 0
  211. next a
  212.     Sys(71) = 1
  213. ' Draw the First Post
  214.      >Box
  215.           {
  216.          <PointXYZ [LOriginX - IXPhwide, LOriginY, LOriginZ - IZPhdeep]
  217.           <PointXYZ [LOriginX + IXPhwide, IYPhigh, LOriginZ + IZPhdeep]
  218.           }
  219. ' >>> Select Layers 1, Posts
  220.     >SelectLayer
  221.     {
  222.     <Layer 1
  223.     }
  224. ' Set current Material to Cherry
  225.     Sys(349) = 5
  226. ' Set current color for Oak Material
  227.     Sys(350) = 177
  228.     Sys(351) = 76
  229.     Sys(352) = 51
  230. ' Apply Current Material and Color to Layers
  231.     >ApplyMaterial
  232.     {
  233.     }
  234.     >ApplyColor
  235.     {
  236.     }
  237. ' Set the Post's center handle
  238.      >SetHandle
  239.           {
  240.          <Pointxyz [LOriginX, LOriginY, LOriginZ]
  241.           }
  242.      >FitToAllWindow
  243.           {
  244.           }
  245. ' Array the Post for Width
  246.      >Array
  247.           {
  248.         <PointXYZ [LOriginX + IXPlbep, LOriginY,  LOriginZ]
  249.     ' NumoPstX + 1 is Neccessary because DesignCAD Arrays with more than one entity only
  250.         <NCopy [NumoPstX + 1,1,1]
  251.         <AlongCurve 0
  252.         <Perpendicular 0
  253.         }
  254. ' >>> Material List
  255.     att$ = PostType$
  256.     gosub DeckData
  257.     >Array
  258.           {
  259.         <PointXYZ 10, 10, 10
  260.         <NCopy [NumoPstX,1,1]
  261.         <AlongCurve 0
  262.         <Perpendicular 0
  263.         }
  264.      >SelectAll
  265.          {
  266.           }
  267. '
  268. ' Update Progress Bar
  269.     Progress 10 100
  270. '
  271. ' Set the Post's center handle
  272.      >SetHandle
  273.           {
  274.           <PointXYZ [LOriginX, LOriginY, LOriginZ]
  275.           }
  276.      >FitToAllWindow
  277.          {
  278.           }
  279. ' Total Depth Available for Posts
  280.  
  281.     IZPtlen = IZDdeep - (2 * IZDover)
  282.  
  283. ' Calculate Number of Posts Needed for Depth
  284.     
  285.     NumoBmsZ = IZPtlen / IZBdeep
  286.     NumoBmsZ = ROUND (NumoBmsZ)
  287.     ' Distance Between Posts is refigured as Total Depth Available for Posts Divided by the Newly figured Number of Posts
  288.     IZBdeep = IZPtlen / NumoBmsZ
  289.  
  290. ' Draw Posts for Deck Depth
  291. ' Array the Post for Depth
  292.      >Array
  293.     {
  294.         <PointXYZ [LOriginX,  LOriginY, LOriginZ + IZBdeep]
  295.         <NCopy [1,1,NumoBmsZ + 1]
  296.         <AlongCurve 0
  297.         <Perpendicular 0
  298.         }
  299. ' >>> Material List
  300.     att$ = PostType$
  301.     gosub DeckData
  302.     >Array
  303.           {
  304.         <PointXYZ 10, 10, 10
  305.         <NCopy [NumoBmsZ + 1,1,1]
  306.         <AlongCurve 0
  307.         <Perpendicular 0
  308.         }
  309. ' If Deck is less than 24 feet wide, add supporting posts
  310. '     if FXDwide < 24 then
  311. '    If FXDwide > 17 then
  312. '        LOriginX = IXDwide / 3
  313. '        LOriginY = 0
  314. '        LOriginZ = IZDdeep - IZDover
  315. '        >Box
  316. '              {
  317. '             <PointXYZ [LOriginX - IXPhwide, LOriginY, LOriginZ - IZPhdeep]
  318. '              <PointXYZ [LOriginX + IXPhwide, IYPhigh, LOriginZ + IZPhdeep]
  319. '              }
  320. '        KDW5 = IXDwide / 3
  321. '        LOriginX = IXDwide - KDW5
  322. '        >Box
  323. '              {
  324. '             <PointXYZ [LOriginX - IXPhwide, LOriginY, LOriginZ - IZPhdeep]
  325. '              <PointXYZ [LOriginX + IXPhwide, IYPhigh, LOriginZ + IZPhdeep]
  326. '              }
  327. '    ' >>> Select Layers 1, Posts
  328. '        >SelectLayer
  329. '        {
  330. '        <Layer 1
  331. '        }
  332. '    ' Set current Material to Cherry
  333. '        Sys(349) = 5
  334. '    ' Set current color for Oak Material
  335. '        Sys(350) = 177
  336. '        Sys(351) = 76
  337. '        Sys(352) = 51
  338. '    ' Apply Current Material and Color to Layers
  339. '        >ApplyMaterial
  340. '        {
  341. '        }
  342. '        >ApplyColor
  343. '        {
  344. '        }
  345. '    endif
  346. '    endif
  347. ' Draw Deck Outline
  348.   ' Deck outline goes on Layer 2
  349.         SYS(3)=2
  350.         SYS$(93) = "Deck_Outline"    
  351.      >Box
  352.     {
  353.         <PointXYZ 0,0,0
  354.         <PointRel [IXDwide, 0, IZDdeep]
  355.         }
  356. ' Set Line for Slice for Truncated Portion
  357. ' Deck Width / 3
  358.     Ted1 = IXDwide / 3
  359. ' Deck Depth / 3
  360.     Ted2 = IZDdeep / 3
  361.      >Line
  362.     {
  363.     <PointXYZ [IXDwide - Ted1, 0, IZDdeep]
  364.     <PointXYZ [IXDwide, 0, IZDdeep - Ted2]
  365.     }
  366.      >Line
  367.     {
  368.     <PointXYZ [0, 0, IZDdeep - Ted2]
  369.     <PointXYZ [Ted1, 0, IZDdeep]
  370.     }
  371.     >FitToAllWindow
  372.         {
  373.         }
  374. ' Select Layer2, Deck Outline
  375.     >SelectLayer
  376.     {
  377.     <Layer 2
  378.     }
  379. ' Set current Material to Leaves
  380.     Sys(349) = 12
  381. ' Set current color for Oak Material
  382.     Sys(350) = 107
  383.     Sys(351) = 255
  384.     Sys(352) = 143
  385. ' Apply Current Material and Color to Layers
  386.     >ApplyMaterial
  387.     {
  388.     }
  389.     >ApplyColor
  390.     {
  391.     }
  392. '
  393. ' Update Progress Bar
  394.     Progress 20 100
  395. '
  396. ' Draw the Beams
  397.   ' Beams go on Layer 3
  398.         SYS(3)=3
  399.         SYS$(93) = "Beams"    
  400. ' Get Z Starting Point
  401. ' Z offset - Post Width
  402.     tn1 = IZDover - IXPwide
  403. '
  404. ' Loop for Beams Thru Width
  405. a = 0
  406. b = 0
  407. do while a < IXDwide
  408. ' Draw the 1st Beam
  409.      >Box
  410.         {
  411.         <Pointxyz [a],[IYPhigh],[IZDover - IZPhdeep]
  412.         <PointRel [IXBwide,-IYBhigh, -IZBdepe]
  413.        }
  414. ' Draw the 2nd Beam
  415.      >Box
  416.         {
  417.         <Pointxyz [a],[IYPhigh],[IZDover + IZPhdeep + IZBdepe]
  418.         <PointRel [IXBwide,-IYBhigh, -IZBdepe]
  419.         }
  420.   a = a + IXBwide
  421.   b = b + 1
  422. loop
  423. ' >>> Material List, Beam Width
  424.     att$ = BeamType$
  425.     gosub DeckData
  426.          >Array
  427.           {
  428.         <PointXYZ 10, 10, 10
  429.         <NCopy [b, 0, 0]
  430.         <AlongCurve 0
  431.         <Perpendicular 0
  432.         }
  433.      >SelectLayer
  434.     {
  435.     <Layer 3
  436.     }
  437. ' Update Progress Bar
  438.     Progress 25 100
  439. '
  440. '
  441. ' Select Layers 3 and 6
  442. ' Decking and Beams
  443. '
  444.     >SelectLayer
  445.     {
  446.     <Layer 3
  447.     <Layer 6
  448.     }
  449. ' Set current Material to Oak
  450.     Sys(349) = 14
  451. ' Set current color for Oak Material
  452.     Sys(350) = 255
  453.     Sys(351) = 182
  454.     Sys(352) = 74
  455. ' Apply Current Material and Color to Layers
  456.     >ApplyMaterial
  457.     {
  458.     }
  459.     >ApplyColor
  460.     {
  461.     }
  462. ' Not Using Sys(242) to set Handles
  463.  ' Select Objects when Created on
  464.  '  Sys(242) = 1
  465.  
  466. ' Set the Beam's handle
  467.      >SetHandle
  468.           {
  469.         <PointXYZ [0, IYPhigh, 0]
  470.           }
  471. ' Array the Beams for Depth
  472.      >Array
  473.           {
  474.         <PointXYZ [0, IYPhigh, IZBdeep]
  475.         <NCopy [NumoBmsZ + 1, 0, 0]
  476.         <AlongCurve 0
  477.         <Perpendicular 0
  478.         }
  479. ' >>> Material List, Beam Depth
  480.     att$ = BeamType$
  481.     gosub DeckData
  482.          >Array
  483.           {
  484.         <PointXYZ 10, 10, 10
  485.         <NCopy [NumoBmsZ * 2, 0, 0]
  486.         <AlongCurve 0
  487.         <Perpendicular 0
  488.         }
  489. ' Update Progress Bar
  490.     Progress 30 100
  491.     ' Section to delete, then redraw beams
  492.     ' Select old beams first
  493.         >SelectLayer
  494.         {
  495.         <Layer 3
  496.         }
  497.     ' Delete beams
  498.         >SelectDelete
  499.         {
  500.         }
  501.     ' Draw the 1st Beam
  502.         >Box
  503.             {
  504.             <Pointxyz 0, [IYPhigh],[IZDover - IZPhdeep]
  505.             <PointRel [IXDwide,-IYBhigh, -IZBdepe]
  506.            }
  507.     ' Draw the 2nd Beam
  508.              >Box
  509.             {
  510.             <Pointxyz 0,[IYPhigh],[IZDover + IZPhdeep + IZBdepe]
  511.             <PointRel [IXDwide,-IYBhigh, -IZBdepe]
  512.             }
  513.          ' Select new beams
  514.         >SelectLayer
  515.         {
  516.         <Layer 3
  517.         }
  518.     ' Set the Beam's handle
  519.              >SetHandle
  520.               {
  521.             <PointXYZ [0, IYPhigh, 0]
  522.               }
  523.     ' Array the Beams for Depth
  524.              >Array
  525.               {
  526.             <PointXYZ [0, IYPhigh, IZBdeep]
  527.             <NCopy [NumoBmsZ + 1, 0, 0]
  528.             <AlongCurve 0
  529.             <Perpendicular 0
  530.             }
  531. '
  532. ' Update Progress Bar
  533.     Progress 30 100
  534. '
  535. ' Select Layers 3 and 6
  536. ' Decking and Beams
  537. '
  538.     >SelectLayer
  539.     {
  540.     <Layer 3
  541.     <Layer 6
  542.     }
  543. ' Set current Material to Oak
  544.     Sys(349) = 14
  545. ' Set current color for Oak Material
  546.     Sys(350) = 255
  547.     Sys(351) = 182
  548.     Sys(352) = 74
  549. ' Apply Current Material and Color to Layers
  550.     >ApplyMaterial
  551.     {
  552.     }
  553.     >ApplyColor
  554.     {
  555.     }
  556. '
  557. ' Beams will be Used for Deck Frame to Save on Materials Cost
  558. ' If neccessary New Variables May be Used in place of Beam Variables Should This Condition Change
  559. ' Draw the Frame
  560.   ' Frame go on Layer 4
  561.         SYS(3)=5
  562.         SYS$(93) = "Joists"
  563. ' Loop for Front of Frame Thru Width
  564. a = 0
  565. b = 0
  566. do while a < IXDwide
  567. ' Draw the Front of Frame
  568.      >Box
  569.         {
  570.         <Pointxyz [a, IYPhigh + IYJhigh, IZBdepe]
  571.         <PointRel [IXBwide,-IYJhigh, -IZBdepe]
  572.        }
  573.   a = a + IXBwide
  574. b = b + 1
  575. loop
  576. ' >>> Material List, Deck Frame Width
  577.     att$ = BeamType$
  578.     gosub DeckData
  579.          >Array
  580.           {
  581.         <PointXYZ 10, 10, 10
  582.         <NCopy [b, 0, 0]
  583.         <AlongCurve 0
  584.         <Perpendicular 0
  585.         }
  586.  
  587.      >SelectLayer
  588.     {
  589.     <Layer 5
  590.     }
  591. ' Set the Front Panel's handle
  592.      >SetHandle
  593.           {
  594.         <PointXYZ [0, IYPhigh, 0]
  595.           }
  596. ' Mirror the Front
  597.      >Mirror
  598.           {
  599.         <PointXYZ [0, IYPhigh + IYJhigh, IZDdeep - IZBdepe]
  600.     <Axis 1
  601.     <Type 1
  602.     }
  603. ' >>> Material List, Deck Frame Width
  604.     att$ = BeamType$
  605.     gosub DeckData
  606.     >Array
  607.          {
  608.         <PointXYZ 10, 10, 10
  609.         <NCopy [b, 0, 0]
  610.         <AlongCurve 0
  611.         <Perpendicular 0
  612.         }
  613.  
  614. ' Loop for Side of Frame Thru Depth
  615. a = 0
  616. b = 0
  617. do while a < IZDdeep
  618. ' Draw the Side Panel of Frame
  619.      >Box
  620.         {
  621.         <PointXYZ [IXDwide - IZBdepe, IYPhigh + IYJhigh, a + IZBdepe]
  622.         <PointRel [IZBdepe, -IYJhigh, IXBwide]
  623.        }
  624.   a = a + IXBwide
  625. b = b + 1
  626. loop
  627. ' >>> Material List, Deck Frame Depth
  628.     att$ = JoisType$
  629.     gosub DeckData
  630.          >Array
  631.           {
  632.         <PointXYZ 10, 10, 10
  633.         <NCopy [b, 0, 0]
  634.         <AlongCurve 0
  635.         <Perpendicular 0
  636.         }
  637. ' Update Progress Bar
  638.     Progress 35 100
  639. '
  640. ' Draw the Joists
  641.   ' Joists go on Layer 5
  642.         SYS(3)=5
  643.         SYS$(93) = "Joists"
  644. ' Draw the First Joist
  645. a = 0
  646. ted3 = IZDover - IZBdepe
  647. KDW1 = IZBdeep * 2
  648. KDW2 = KDW1 + IZDover
  649. >Box
  650.         {
  651.         <PointXYZ [0, IYPhigh + IYJhigh, 0]
  652.         <PointRel [IXJwide, -IYJhigh, KDW2]
  653.        }
  654. ' Loop for 1st Joist
  655. a = ted3
  656. a = KDW2
  657. b = 0
  658. do while a < IZDdeep
  659.      >Box
  660.         {
  661.         <PointXYZ [0, IYPhigh + IYJhigh, a]
  662. '        <PointRel [IXJwide, -IYJhigh, IZJdepe]
  663.         <PointRel [IXJwide, -IYJhigh, KDW2 - IZDover]
  664.        }
  665. b = b + 1
  666. a = a + KDW1
  667. loop
  668. ' Select Layers 4 and 5
  669. ' Deck Frame and Joists
  670.     >SelectLayer
  671.     {
  672.     <Layer 4
  673.     <Layer 5
  674.     }
  675. ' Set current Material to Walnut
  676.     Sys(349) = 21
  677. ' Set current color for Oak Material
  678.     Sys(350) = 177
  679.     Sys(351) = 102
  680.     Sys(352) = 25
  681. ' Apply Current Material and Color to Layers
  682.     >ApplyMaterial
  683.     {
  684.     }
  685.     >ApplyColor
  686.     {
  687.     }
  688. ' >>> Material List, Joists, first row
  689. ' b is one too large, so subtract one
  690.     att$ = JoisType$
  691.     gosub DeckData
  692.          >Array
  693.           {
  694.         <PointXYZ 10, 10, 10
  695.         <NCopy [b - 1, 0, 0]
  696.         <AlongCurve 0
  697.         <Perpendicular 0
  698.         }
  699.  
  700.      >SelectLayer
  701.     {
  702.     <Layer 5
  703.     }
  704. ' Set the Joist's handle
  705.      >SetHandle
  706.           {
  707.         <PointXYZ [0, IYPhigh, 0]
  708.           }
  709. ' Array the Joists for Width
  710.      >Array
  711.           {
  712.         <PointXYZ [IXJcent, IYPhigh, 0]
  713.     NumoJstX = IXDwide / IXJcent
  714.     ' NumoJstX + 1 is Neccessary because DesignCAD Arrays with more than one entity only
  715.         <NCopy [NumoJstX + 1,1,1]
  716.         <AlongCurve 0
  717.         <Perpendicular 0
  718.         }
  719. ' >>> Material List, Joists, array
  720. ' gets b from above for extreme left row # of Joists, * the array to the right
  721.     att$ = JoisType$
  722.     gosub DeckData
  723.          >Array
  724.           {
  725.         <PointXYZ 10, 10, 10
  726.         <NCopy [NumoJstX * b, 0, 0]
  727.         <AlongCurve 0
  728.         <Perpendicular 0
  729.         }
  730. ' Update Progress Bar
  731.     Progress 40 100
  732. '
  733. ' Slice the Back of Deck for Scraps
  734.      >Slice
  735.         {
  736.         <Pointxyz 0, 0, [IZDdeep]
  737.         <Pointxyz [IXDwide], 0, [IZDdeep]
  738.         <Pointxyz [IXDwide], 2, [IZDdeep]
  739.         <Pointxyz [IXDwide], 2, [IZDdeep + 10]
  740.         }
  741. ' Draw the Decking
  742.   ' Decking goes on Layer 6
  743.         SYS(3)=6
  744.         SYS$(93) = "Decking"
  745. ' Decking Pattern is Determined by the PointXYZ of the 1st and 2nd Piece of Decking
  746.  ' The Current Pattern is the 1st Piece of the 1st Row Covers up to the 1st Joist
  747.  ' The 1st Piece of the 2nd Row Covers up to the 2nd Joist
  748.  ' While the 1st Piece of the 3rd Row Covers up to the 3rd Joist
  749.  
  750. ' Draw the 1st Row of Decking
  751.   ' Draw 1st Piece of Decking for 1st Row
  752.      >Box
  753.         {
  754.         <PointXYZ [0, IYPhigh + IYJhigh + IYKhigh, 0]
  755.         <PointRel [IXJcent + IXZJovr, -IYKhigh, IZKdepe]
  756.        }
  757. ' Loop for First Row of Decking
  758. a = 0
  759. b = 0
  760. ted = IXDwide
  761.  if IXDwide => 20 then
  762.     ted = IXDwide - IXKwide
  763.  endif
  764. do while a < ted
  765. ' Draw 2nd Piece of Decking for 1st Row
  766.      >Box
  767.         {
  768.         <PointXYZ [a + IXJcent + IXZJovr + IXZKspc, IYPhigh + IYJhigh + IYKhigh, 0]
  769.         <PointRel [IXKwide, -IYKhigh, IZKdepe]
  770.        }
  771.     if a < IXDwide then
  772.      a = a + IXKwide + IXZKspc
  773.     endif
  774. b = b + 1
  775. loop
  776. ' >>> Material List, Decking, first row
  777. ' + 1 because we drew a piece of decking outside the loop above first
  778.     att$ = Decking$
  779.     gosub DeckData
  780.         >Array
  781.           {
  782.         <PointXYZ 10, 10, 10
  783.         <NCopy [b + 1,1,1]
  784.         <AlongCurve 0
  785.         <Perpendicular 0
  786.         }
  787. ' Remember b for later
  788. RowOne = b
  789. ' Update Progress Bar
  790.     Progress 50 100
  791.  
  792. ' Draw the 2nd Row of Decking
  793.   ' Draw 1st Piece of Decking for 2nd Row
  794.      >Box
  795.         {
  796.         <PointXYZ [0, IYPhigh + IYJhigh + IYKhigh, IZKdepe + IXZKspc]
  797.         <PointRel [2*IXJcent + IXZJovr, -IYKhigh, IZKdepe]
  798.        }
  799. ' Loop for 2nd Row of Decking
  800. a = 0
  801. b = 0
  802. ted = IXDwide - IXKwide
  803. do while a < ted
  804. ' Draw 2nd Piece of Decking for 2nd Row
  805.      >Box
  806.         {
  807.         <PointXYZ [a + 2*IXJcent + IXZJovr + IXZKspc, IYPhigh + IYJhigh + IYKhigh, IZKdepe + IXZKspc]
  808.         <PointRel [IXKwide, -IYKhigh, IZKdepe]
  809.        }
  810.     if a < IXDwide then
  811.      a = a + IXKwide + IXZKspc
  812.     endif
  813.   b = b + 1
  814. loop
  815. ' >>> Material List, Decking, first row
  816. ' + 1 because we drew a piece of decking outside the loop above first
  817.     att$ = Decking$
  818.     gosub DeckData
  819.         >Array
  820.           {
  821.         <PointXYZ 10, 10, 10
  822.         <NCopy [b + 1,1,1]
  823.         <AlongCurve 0
  824.         <Perpendicular 0
  825.         }
  826. ' Remember b for later
  827. RowOne = b
  828. ' Update Progress Bar
  829.     Progress 50 100
  830. '
  831. ' Draw the 3rd Row of Decking
  832.   ' Draw 1st Piece of Decking for 3rd Row
  833.      >Box
  834.         {
  835.         <PointXYZ [0, IYPhigh + IYJhigh + IYKhigh, 2*IZKdepe + 2*IXZKspc]
  836.         <PointRel [3*IXJcent + IXZJovr, -IYKhigh, IZKdepe]
  837.        }
  838. ' Loop for 3rd Row of Decking
  839. a = 0
  840. b = 0
  841. ted = IXDwide - IXKwide
  842. do while a < ted
  843. ' Draw 2nd Piece of Decking for 3rd Row
  844.      >Box
  845.         {
  846.         <PointXYZ [a + 3*IXJcent + IXZJovr + IXZKspc, IYPhigh + IYJhigh + IYKhigh, 2*IZKdepe + 2*IXZKspc]
  847.         <PointRel [IXKwide, -IYKhigh, IZKdepe]
  848.        }
  849.     if a < IXDwide then
  850.      a = a + IXKwide + IXZKspc
  851.     endif
  852.   b = b + 1
  853. loop
  854. ' >>> Decking and Beams
  855. '
  856.     >SelectLayer
  857.     {
  858.     <Layer 6
  859.     }
  860. ' Set current Material to Oak
  861.     Sys(349) = 14
  862. ' Set current color for Oak Material
  863.     Sys(350) = 255
  864.     Sys(351) = 182
  865.     Sys(352) = 74
  866. ' Apply Current Material and Color to Layers
  867.     >ApplyMaterial
  868.     {
  869.     }
  870.     >ApplyColor
  871.     {
  872.     }
  873. ' >>> Material List, Decking, first row
  874. ' + 1 because we drew a piece of decking outside the loop above first
  875.     att$ = Decking$
  876.     gosub DeckData
  877.         >Array
  878.           {
  879.         <PointXYZ 10, 10, 10
  880.         <NCopy [b + 1,1,1]
  881.         <AlongCurve 0
  882.         <Perpendicular 0
  883.         }
  884. ' Remember b for Later
  885. RowThree = b
  886.      >SelectLayer
  887.     {
  888.     <Layer 6
  889.     }
  890. ' Set the Decking's handle
  891.      >SetHandle
  892.           {
  893.         <PointXYZ [0, IYPhigh, 0]
  894.           }
  895. ' Calculate Number of Portions (The 3 Rows that have Been Drawn = 1 Portion) of Decking Needed for Depth
  896. NumoDckZ = (IZDdeep / (IXZKspc+IZKdepe)) / 3
  897. ' Array the Decking for Depth
  898.      >Array
  899.           {
  900.         <PointXYZ [0, IYPhigh, 3*IZKdepe + 3*IXZKspc]
  901.     ' NumoDckZ + 1 is Neccessary because DesignCAD Arrays with more than one entity only
  902.         <NCopy [NumoDckZ + 1,1,1]
  903.         <AlongCurve 0
  904.         <Perpendicular 0
  905.         }
  906.      >FitToAllWindow
  907.         {
  908.         }
  909. DeckDeep = RowOne + RowTwo + RowThree
  910. ' >>> Material List, Decking, first row
  911. ' # of pieces of decking on all 3 rows added together * array #
  912.     att$ = Decking$
  913.     gosub DeckData
  914.         >Array
  915.           {
  916.         <PointXYZ 10, 10, 10
  917.         <NCopy [NumoDckZ * DeckDeep,1,1]
  918.         <AlongCurve 0
  919.         <Perpendicular 0
  920.         }
  921. '
  922. ' Update Progress Bar
  923.     Progress 60 100
  924. '
  925. ' Turn Edit Current Layer Only Off
  926. Sys(26) = 0
  927. '
  928. ' Deselect everything
  929. Sys(34) = 0
  930. '
  931.   ' Joists go on Layer 5
  932.         SYS(3)=5
  933.         SYS$(93) = "Joists"
  934. ' Slice for Truncating the Corner of Deck
  935. ' Origional Code used X and Z overhang values for slice,
  936. ' New Code uses 1/3 of the Deck Width and Depth
  937. '     >Slice
  938. '        {
  939. '        <Pointxyz [IXDwide - IXDover], 0, [IZDdeep]
  940. '        <Pointxyz [IXDwide], 0, [IZDdeep - IZDover]
  941. '        <Pointxyz [IXDwide], 2, [IZDdeep - IZDover]
  942. '        <Pointxyz [IXDwide + 10], 2, [IZDdeep - IZDover]
  943. '        }
  944. ' Update Progress Bar
  945.     Progress 70 100
  946. '
  947.      >Slice
  948.         {
  949.         <Pointxyz [IXDwide - Ted1], 0, [IZDdeep]
  950.         <Pointxyz [IXDwide], 0, [IZDdeep - Ted2]
  951.         <Pointxyz [IXDwide], 2, [IZDdeep - Ted2]
  952.         <Pointxyz [IXDwide + 10], 2, [IZDdeep - Ted2]
  953.         }
  954. ' Slice the left side of the deck
  955.      >Slice
  956.         {
  957.         <Pointxyz 0, 0, [IZDdeep - Ted2]
  958.         <Pointxyz [Ted1], 0, [IZDdeep]
  959.         <Pointxyz 0, 2, [IZDdeep - Ted2]
  960.         <Pointxyz 0, 2, [IZDdeep + 3]
  961.         }
  962. ' Update Progress Bar
  963.     Progress 80 100
  964. '
  965. ' Slice the Right Side of Deck for Scraps
  966.      >Slice
  967.         {
  968.         <Pointxyz [IXDwide], 0, 0
  969.         <Pointxyz [IXDwide], 0, [IZDdeep]
  970.         <Pointxyz [IXDwide], 2, [IZDdeep]
  971.         <Pointxyz [IXDwide + 10], 2, [IZDdeep]
  972.         }
  973. ' Update Progress Bar
  974.     Progress 90 100
  975. '
  976. ' Slice the Back of Deck for Scraps
  977.      >Slice
  978.         {
  979.         <Pointxyz 0, 0, [IZDdeep]
  980.         <Pointxyz [IXDwide], 0, [IZDdeep]
  981.         <Pointxyz [IXDwide], 2, [IZDdeep]
  982.         <Pointxyz [IXDwide], 2, [IZDdeep + 10]
  983.         }
  984. ' Section to Cap off Slice
  985. '      ps1 = IYDhigh
  986. '      gosub status
  987. '      ps1 = IYBhigh
  988. '      gosub status
  989.      >Wall
  990.         {
  991.     <thick 0.5        
  992.     <Pointxyz [IXDwide - Ted1], [IYPhigh], [IZDdeep]
  993.         <Pointrel [Ted1], [IYJhigh], [- Ted2]
  994.     }
  995. ' Caps off the right slice
  996.      >Wall
  997.         {
  998.     <thick 0.5        
  999.     <Pointxyz [Ted1], [IYPhigh], [IZDdeep]
  1000.         <Pointrel [-Ted1], [IYJhigh], [-Ted2]
  1001.     }
  1002. ' Select Layers 4 and 5
  1003. ' Deck Frame and Joists
  1004.     >SelectLayer
  1005.     {
  1006.     <Layer 4
  1007.     <Layer 5
  1008.     }
  1009. ' Set current Material to Walnut
  1010.     Sys(349) = 21
  1011. ' Set current color for Oak Material
  1012.     Sys(350) = 177
  1013.     Sys(351) = 102
  1014.     Sys(352) = 25
  1015. ' Apply Current Material and Color to Layers
  1016.     >ApplyMaterial
  1017.     {
  1018.     }
  1019.     >ApplyColor
  1020.     {
  1021.     }
  1022. ' Slice ALWAYS get's turned around so the slice faces the user
  1023.      >SelectAll
  1024.          {
  1025.           }
  1026.      >SetHandle
  1027.           {
  1028.         <PointXYZ [0, IYPhigh, 0]
  1029.           }
  1030.      >Mirror
  1031.     {
  1032.         <PointXYZ [0, IYPhigh, IZDdeep]
  1033.       <Axis 2
  1034.       <Type 0
  1035.     }
  1036. ' Section to add Post support for each sliced beam
  1037.     ' Hide all Layers up to 12
  1038.         For a = 1 to 12
  1039.             Layer(a) = 0
  1040.         next a
  1041.     ' Make Layer 13 Current
  1042.         Layer(13) = 14
  1043. ' Deck Width / 3
  1044.     Ted1 = IXDwide / 3
  1045. ' Deck Depth / 3
  1046.     Ted2 = IZDdeep / 3
  1047.      >Line
  1048.     {
  1049.     <PointXYZ [IXDwide - Ted1, 0, 0]
  1050.     <PointXYZ [IXDwide, 0, 0 + Ted2]
  1051.     }
  1052. ' Left slice line
  1053.      >Line
  1054.     {
  1055.     <PointXYZ [0, 0, 0 + Ted2]
  1056.     <PointXYZ [Ted1, 0, 0]
  1057.     }
  1058.     ' Variables used in loop
  1059.         CurCount = IZDover 
  1060.         MaxCount = Ted2
  1061.     b = 1
  1062.     Do while CurCount <= MaxCount
  1063.     ' Make Layer 13 Current
  1064.         Layer(13) = 14
  1065.     ' Draw First Guide Line
  1066.         >Line
  1067.         {
  1068.         <PointXYZ [0, 0, CurCount]
  1069.         <PointXYZ [IXDwide, 0, CurCount]
  1070.         }
  1071.     ' Select Objects when Created
  1072.         Sys(242) = 1
  1073.     ' Draw a pointmark at intersection
  1074.         >PointMark
  1075.         {
  1076.         <Type 3
  1077.         <Size 4
  1078.         <Int2 0, 0, [CurCount], [IXDwide - Ted1], 0, 0     
  1079.         }
  1080.     ' Get the Entity ID of the pointmark
  1081.         getselect 1, a
  1082.     ' Load the pointmark into memory
  1083.         entity a
  1084.     ' Get the XYZ value of the pointmark
  1085.         for j = 1 to sys(1)
  1086.               pointval jx jy jz j
  1087.         next j
  1088.     '
  1089.     ' Take about a foot away for safety
  1090.         jx = jx - 16
  1091.     ' Make Layer 14 Current
  1092.         Layer(14) = 14
  1093.           SYS$(93) = "Support Posts"    
  1094.     ' Draw Support Post
  1095.         >Box
  1096.               {
  1097.              <PointXYZ [jx+IXPwide], 0, [jz+IZPhdeep]
  1098.               <Pointrel [-IXPwide], [IYPhigh], [-IXPwide]
  1099.               }
  1100.     ' Increment Counters
  1101.         CurCount = CurCount + IZBdeep
  1102.         b = b + 1
  1103.     Loop    
  1104.     ' Show all Layers up to 12
  1105.         For a = 1 to 12
  1106.             Layer(a) = 6
  1107.         next a
  1108.     ' Clean up Layer 13
  1109.         >SelectLayer
  1110.         {
  1111.         <Layer 13
  1112.         }
  1113.     ' Delete contents of that layer
  1114.         >SelectDelete
  1115.         {
  1116.         }
  1117.     ' Select Layer 14
  1118.         >SelectLayer
  1119.         {
  1120.         <Layer 14
  1121.         }
  1122.     ' Set it's handle
  1123.         >SetHandle
  1124.         {
  1125.         <Pointxyz [IXDwide / 2], 0, 0
  1126.         <Pointxyz [IXDwide / 2], 0, 0
  1127.         <Pointxyz [IXDwide / 2], 0, 0
  1128.         }
  1129.     ' Mirror Support Posts
  1130.         >Mirror
  1131.         {
  1132.         <axis 0    
  1133.         <type 1
  1134.         <Pointxyz [IXDwide / 2], 0, 0
  1135.         }
  1136.     ' Turn Select Object when Created Off
  1137.         Sys(242) = 0
  1138.     ' Show entire deck
  1139.         >FitToAllWindow
  1140.             {
  1141.             }
  1142.     ' De-select the mirrored support posts
  1143.         >PointSelect
  1144.         {
  1145.         <Type 0
  1146.         <pointxyz -199, -199, -199
  1147.         }
  1148. ' If user chose Deck Type that needs slice running on the 
  1149. ' left side . . .
  1150. If Dvalue = 1 Then
  1151.      >FitToAllWindow
  1152.         {
  1153.        }
  1154.    Else
  1155.      >SelectAll
  1156.     {
  1157.           }
  1158.      >SetHandle
  1159.           {
  1160.         <PointXYZ [0, IYPhigh, 0]
  1161.           }
  1162.      >Mirror
  1163.     {
  1164.         <PointXYZ [0, IYPhigh, IZDdeep]
  1165.     <Axis 0
  1166.     <Type 0
  1167.     }
  1168. ' Deselect everything
  1169. Sys(34) = 0
  1170.      >FitToAllWindow
  1171.         {
  1172.        }
  1173.  
  1174.  
  1175.  
  1176. End If
  1177. ' Turn off Silent Mode
  1178.     Sys(36) = 0           
  1179. >PointSelect
  1180.     {
  1181.     <PointXYZ -34,-43,-32
  1182.     }
  1183. '
  1184. ' Deselect everything
  1185. Sys(34) = 0
  1186. ' Update Progress Bar
  1187.     Progress 99 100
  1188. '
  1189. ' Set Units back to feet so when users dimension the deck it comes up in feet, not inches
  1190. ' Get Min and Max X Values for drawing
  1191.     MinX = Sys(120)
  1192.     MaxX = Sys(122)
  1193. ' Use Units command to change deck drawing scale
  1194. ' Deck Inches / 12 to get # of feet to set units to
  1195.     Ted = IXDwide / 12
  1196.     >Units
  1197.     {
  1198.     <pointxyz [MinX], 0, 0
  1199.     <pointxyz [MaxX], 0, 0
  1200.     <length [FXDwide]
  1201.     }
  1202. if Shade = 0 then
  1203.     for a = 0 to 3
  1204.         Sys(71) = a
  1205.         Sys(2) = 0
  1206.     next a
  1207. endif
  1208. if Shade = 1 then
  1209.     for a = 0 to 3
  1210.         Sys(71) = a
  1211.         Sys(2) = 1
  1212.     next a
  1213. endif
  1214. if Shade = 2 then
  1215. >ShadeView
  1216. {
  1217.     <ShowLine 0
  1218.     <ShowArrow 1
  1219.     <ShowDim 1
  1220.     <ShowText 0
  1221. }
  1222. endif
  1223.     Sys(71) = 1
  1224. ' Set current color back to black
  1225.     Sys(350) = 0
  1226.     Sys(351) = 0
  1227.     Sys(352) = 0
  1228. ' Apply Current Color 
  1229.     >ApplyColor
  1230.     {
  1231.     }
  1232. ' Turn off Progress Bar
  1233.     Progress 0
  1234.     Layer(15) = 0                ' Turn off Layer 15
  1235. '
  1236. ' End of Program
  1237. ' Do NOT display Attribs
  1238.     Sys(21) = 0
  1239. ' Set Dimension Format to fractional
  1240.     Sys(101) = 3
  1241. ' Set Text Size large for users
  1242.     if FXDwide > IZDdeep then
  1243.         KDW6 = FXDwide / 50
  1244.     else
  1245.         KDW6 = FZDdeep / 50
  1246.     end if
  1247.     Sys(438) = KDW6
  1248. KDW7 = KDW6 *.50
  1249. ' Make a Dimension with the NULL paramater to set Dimension settings which don't 
  1250. ' have a SYS function, and which use cryptic # values in the INI file.
  1251. ' Pass a NULL to not actually draw a dimension, but it's settings 
  1252. ' remain sticky for each dimension you place in that session of Dcad.
  1253. '
  1254. >Dimension
  1255. {
  1256.   <Color 0,0,0
  1257.   <Layer 1
  1258.   <PointXYZ -16.8023,-2.2529,0.0000
  1259.   <PointXYZ 9.1748,-5.0914,0.0000
  1260.   <PointXYZ 6.8080,7.6270,0.0000
  1261.   <Axis 0
  1262.   <Orientation 0
  1263.   <Precision 3
  1264.   <Location 0
  1265.   <ToleranceType 0
  1266.   <ToleranceSize 0.5000
  1267.   <ToleranceLow -0.01
  1268.   <ToleranceHigh +0.01
  1269.   <Tolerance 0.01
  1270.   <Suffix "0"
  1271.   <Prefix "0"
  1272.   <Type 0
  1273.   <Size [KDW7]
  1274.   <Fix 0
  1275.   <Gap 1.0000
  1276.   <Length 2.0000
  1277.   <OverShoot 0.5000
  1278.   <LinePosition 0
  1279.   <NULL
  1280.   }
  1281. '
  1282. End
  1283. '
  1284. ' Routine to display values on the Status Bar
  1285. Status:
  1286.   ps2 = ps1 / 12
  1287.   ps3 = ps1 * 12
  1288. ' Display Results
  1289.   ps$ = " Value Passed = ",ps1,"     Value Divided by 12 = ",ps2,"      Value Multiplied by 12 = ",ps3
  1290.   Message ps$
  1291. Return
  1292. '
  1293. ' Routine to add Deck Data Items to the drawing
  1294. DeckData:
  1295. ' Turn Select Object when Created Off
  1296.     Sys(242) = 1
  1297. ' Save Current Layer
  1298.     CurLay = SYS(3)
  1299. ' Set Current Layer to 15
  1300.     SYS(3) = 15
  1301.         SYS$(93) = "Attributes"
  1302. ' Write Attribute
  1303.     >Attribute
  1304.     {
  1305.       <Color 0,0,0
  1306.       <PointXYZ 10, 10, 10
  1307.       <Style 0
  1308.       <Justification 0
  1309.       <Size .005
  1310.       <Font "Arial"
  1311.       <Text [att$]
  1312.     }
  1313. ' Set Layer's Back
  1314.     SYS(3) = CurLay
  1315. ' Turn Select Object when Created Off
  1316.     Sys(242) = 0
  1317. Return