-
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
or
click the
Save tool in the quick access toolbar
or
press
<Ctrl+S>
Your frame macro is
now complete. You are ready to test the macro to check your code.