How do I create a regular array of pins in magic?

you could create one pin, select it and then type "array x y" with x and y being the number of copies in that direction

@Mariana Huerta: Tcl is good for this kind of thing. For example:

% box size 1um 1um
% proc drawpin {i} {paint m1; label test_$i; select area label; port make; box move e 2um}
% for {set i 0} {$i < 10} {incr i} {drawpin $i}

This uses a loop in Tcl to draw out 10 pins in a reglar array, name them all with a unique index, and turn them into ports.