Add function into rodCreatePath

Yes, the problem is partly because for() returns t, and also because you've got the ?subRect within the for loop. 

Easiest way to do this is probably to build a list of integers from 0 to 99, and then use foreach(mapcar) to transform this list of integers into the subRect entries.

For example this modification to your code (I suspect you'll need to adjust it, because I think all the contacts aren't in the right place, but I'm sure you can take care of that part).

procedure(abSequence(start stop)
  let((i seq)
    i=stop
    while(i>=start
      seq=cons(i-- seq)
    )
    seq
  )
)

procedure(anillo(w puntos)
  cv = geGetEditCellView()
  mipath = rodCreatePath(
        ?layer           list("M1" "logic")
        ?width           w
        ?pts             puntos
        ?endType         "flush"
        ?cvId            cv
        ?encSubPath      list(
           list(
             ?layer        list("XN" "logic")
             ?enclosure    -0.22            
             ?beginOffset  0.22
             ?endOffset    if(pathstate~>closed then -0.22 else 0.22)
           );NWell
           list(
             ?layer        list("ACTIVE" "logic")
             ?enclosure    -0.04        
             ?beginOffset  0.04
             ?endOffset    if(pathstate~>closed then -0.04 else 0.04)
           );Active
        ) ;encpath
	?subRect
	  foreach(mapcar i abSequence(0 99)
            list(
              ?layer      list("CS" "logic")
              ?width      0.22
              ?length     0.22
              ?endOffset  -0.06
              ?beginOffset -0.06
              ?space      0.28
              ?sep        i  ;This gives me the separation.
            );contactos
          ); foreach abSequence
        
  ) ; end rodCreatePath
);proc

Regards,

Andrew.

 Thank you very much Andrew. It works nice.

Andrew, the code above was very helpful but I am having a syntax problem when I try to add a second layer into the foreach.  I couldn't add a second foreach loop either.  Here is an example of what I'm trying to do.  Thanks,  John

 ?subRect
  foreach(mapcar i abSequence(0 99)
            list(
              ?layer      list("CS" "logic")
              ?width      0.22
              ?length     0.22
              ?endOffset  -0.06
              ?beginOffset -0.06
              ?space      0.28
              ?sep        i  ;This gives me the separation.
            );contactos

            list(
              ?layer      list("V1" "logic")
              ?width      0.22
              ?length     0.22
              ?endOffset  -0.06
              ?beginOffset -0.06
              ?space      0.28
              ?sep        i  ;This gives me the separation.
            );contactos2

          ); foreach abSequence

 Hi johnmick,

I think it's because your argument for ?subRect is wrong, it is expecting a single list but you are giving him 2. the best way I guess is to form the list outside the rod function, let say you build the list and call it subrectlist then you can just simply write ?subRect subrectlist

example

list1 =   foreach(mapcar i abSequence(0 99)
            list(
              ?layer      list("CS" "logic")
              ?width      0.22
              ?length     0.22
              ?endOffset  -0.06
              ?beginOffset -0.06
              ?space      0.28
              ?sep        i  ;This gives me the separation.
            );contactos

);foreach

);foreach

subrectlist = append(list1 list2)

?subRect  subrectlist

 of course this is just a quick and dirty solution to show what I mean but you can do it in more efficient way perhaps avoiding append function.

That works!  Thanks!  I knew it was a simple fix, I just couldn't find it.

Andrew, thanks for the help.  I had tried that but didn't change the mapcar to mapcan!!!