array and layers

[akram85ing]

i work with Autocad 2004

with a lisp routin or a vba macro

how we can do an array (for example 5 raws 5 columns) but the pair columns ( columns 2and 4) on a layer

and impair columns ( columns 1, 3 and 5) on another layer

then we move down or up the content of pair columns with a distance d

thank you

[Lee Mac]

You can collect the entities from an array using this:

 

(credit to ASMI):

 

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] Ent_List_to_End[b][color=RED]([/color][/b]ent / a[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]reverse[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b][b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] a[b][color=RED]([/color][/b][b][color=BLUE]entnext[/color][/b] ent[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
      [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] ent[b][color=RED]([/color][/b]Ent_List_to_End a[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]