Add default hardware qty to wall rail fabs

docs/code-manual/fab-util.html

@@ -143,7 +143,7 @@ VARS:
     <h3 id="make-generic-fab" class="funcsig">(<span class="funcname">make-generic-fab</span> data ent-type)</h3>
 	<pre class="fulldoc">Creates a generic fab drawing in the current folder
 
-DATA is the data list of properties and ENT-TYPE is either 'stair or 'land.
+DATA is the data list of properties and ENT-TYPE is either 'stair 'land or 'guard.
 
 VARS:
 (DATA LIST)

docs/code-manual/fab-wall-rail.html

@@ -39,6 +39,11 @@
 	  <td>Open template and call <a href="fab-wall-rail.html#wall-rail-write-table">wall-rail-write-table</a></td>
 	</tr>
       
+	<tr>
+	  <td class="funcsig"><a href="fab-wall-rail.html#wall-rail-hardware-qty">(<span class="funcname">wall-rail-hardware-qty</span> rail-datas)</a></td>
+	  <td>Returns the number of brackets times 3</td>
+	</tr>
+      
 	<tr>
 	  <td class="funcsig"><a href="fab-wall-rail.html#wall-rail-write-table">(<span class="funcname">wall-rail-write-table</span> finish rail-datas)</a></td>
 	  <td>Write the table in a wall rail fab drawing</td>
@@ -69,6 +74,11 @@
 	<pre class="fulldoc">Open template and call <a href="fab-wall-rail.html#wall-rail-write-table">wall-rail-write-table</a></pre>
     </section>
   
+    <section>
+    <h3 id="wall-rail-hardware-qty" class="funcsig">(<span class="funcname">wall-rail-hardware-qty</span> rail-datas)</h3>
+	<pre class="fulldoc">Returns the number of brackets times 3</pre>
+    </section>
+  
     <section>
     <h3 id="wall-rail-write-table" class="funcsig">(<span class="funcname">wall-rail-write-table</span> finish rail-datas)</h3>
 	<pre class="fulldoc">Write the table in a wall rail fab drawing</pre>

docs/code-manual/index.html

@@ -358,7 +358,7 @@
 
   <table>
     <thead>
-      <h3>Public Functions A-Z (713 documented)</h3>
+      <h3>Public Functions A-Z (714 documented)</h3>
       <th>Function Signature</th>
       <th>Description</th>
     </thead>
@@ -4315,6 +4315,13 @@
 	
       
 	
+	  <tr> 
+	    <td class="funcsig"><a href="fab-wall-rail.html#wall-rail-hardware-qty">(<span class="funcname">wall-rail-hardware-qty</span> rail-datas)</a></td>
+	    <td>Returns the number of brackets times 3</td>
+	  </tr>
+	
+      
+	
 	  <tr> 
 	    <td class="funcsig"><a href="fab-wall-rail.html#wall-rail-write-table">(<span class="funcname">wall-rail-write-table</span> finish rail-datas)</a></td>
 	    <td>Write the table in a wall rail fab drawing</td>

fab/wall-rail.lsp

@@ -101,6 +101,8 @@
   "Write the table in a wall rail fab drawing"
   (set-finish finish)
   (table-add-data (get-table-by-title "Wall Rails") rail-datas)
+  (table-add-data (get-table-by-title "Misc Hardware")
+                  (list (list (list "qty" (wall-rail-hardware-qty rail-datas)))))
 
   ;; update "work with" note for splicers
   (if (member template '("wall-rail-top" "wall-rail-bot-std" "wall-rail-bot-lvl"))
@@ -113,3 +115,13 @@
                                                (atoi num) 1))))
          (vla-replace-string modelSpace "$SPLICER_DWG" other-dwg)))))
 (defun-r 'wall-rail-write-table)
+
+(defun-q wall-rail-hardware-qty (rail-datas / count)
+  "Returns the number of brackets times 3"
+  (setq count 0)
+  (foreach rail-data rail-datas
+    (foreach i (range 1 8 1)
+      (if (xd-value (strcat "bracket_" (to-string i)) rail-data)
+          (inc! 'count))))
+  (* 3 count))
+(defun-r 'wall-rail-hardware-qty)