OS. To generate the frame members
-
Type the following commands to add the columns:
'Columns n1 = 1 n2 = (n1 + clmn +1) For k = 1 To (clmn + 1)*row geometry.AddBeam n1, n2 n1 = n1 + 1 n2 = n2 + 1 Next
-
Type the following commands to add the beams:
'Beams n1 = 1 For k1 = 1 To row n1 = k1 * (clmn + 1)+1 n2 = n1 + 1 For k2 = 1 To clmn geometry.AddBeam n1, n2 n1 = n1 + 1 n2 = n2 + 1 Next Next
-
Save your macro by either:
- click the File ribbon tab and then select the Save tool in the backstage view
- click the Save tool in the quick access toolbar
- press Ctrl+S