Skill Code to copy metal layer and change layer

Just little more clarfication...

I wish to keep Metal1 . I just want to add metal-2 with same diamension as metal-1.

 cvId = dbOpenCellViewByType(Lib CellName ViewName);

m1List  =  setof(i cvId->shapes car(i->lpp)=="M1");

dbLayerOr(cvId "M2" m1list nil);

It seems a bit excessive to define a separate function for each layer. Also, your optional purpose argument is not used in the code!

Probably simpler just to define your bindkeys directly:

hiSetBindKey( "Layout" "ctrl<Key>KP_9" "geGetSelSet()~>lpp='(\"LB\" \"drawing\")")

It's just a matter of escaping the embedded quotation marks. Of course, all the other bindkeys would be similar - I just picked one.

Regards,

Andrew.

Hi Andrew,

I defined all Metal Layers to be changed in one bind key , using if else statement .

/*** Skill to change  Metal Layer Mx to Mx'      ***
 *** Author  : Guruprasad Samasgikar             ***
 *** Purpose : Easy switch b/w metals            ***
 *** Date    : 22-04-2015                        ***/

procedure(layer()
let(
   (object lpp)
object= geGetSelectedSet()
objT=caar(object~>lpp)
printf("objT is %s drawing.\n" objT)

if( objT == "M1"
    then
     
 M1layer(object)

     else
         if( objT =="M2"
     then
M2layer(object)

     else
         if( objT =="M3"
     then
M3layer(object)

     else
         if( objT =="M4"
     then
M4layer(object)


     else
         if( objT =="M5"
     then
M5layer(object)


     else
         if( objT =="M6"
     then
M6layer(object)


     else
         if( objT =="FA"
     then
FAlayer(object)



     else
         if( objT =="3A"
     then
AAlayer(object)


     else
         if( objT =="LB"
     then
LBlayer(object)




else
 printf("Wrong shape selected.\n")









)))))))))))

procedure(M1layer(object)
            obj=car(geGetSelSet())

            obj~>lpp = `("M2" "drawing")
               
)

procedure(M2layer(object)
            obj=car(geGetSelSet())

            obj~>lpp = `("M3" "drawing")
               
)



procedure(M3layer(object)
            obj=car(geGetSelSet())

            obj~>lpp = `("M4" "drawing")
               
)

procedure(M4layer(object)
            obj=car(geGetSelSet())

            obj~>lpp = `("M5" "drawing")
               
)


procedure(M5layer(object)
            obj=car(geGetSelSet())

            obj~>lpp = `("M6" "drawing")
               
)

procedure(M6layer(object)
            obj=car(geGetSelSet())

            obj~>lpp = `("FA" "drawing")
               
)



procedure(FAlayer(object)
            obj=car(geGetSelSet())

            obj~>lpp = `("3A" "drawing")
               
)

procedure(AAlayer(object)
            obj=car(geGetSelSet())

            obj~>lpp = `("LB" "drawing")
               
)


procedure(LBlayer(object)
            obj=car(geGetSelSet())

            obj~>lpp = `("M1" "drawing")
               
)


hiSetBindKey( "Layout" "ctrl<Key>m" "layer()")

That still seems a rather complicated (and verbose) way of doing something quite simple, and it also only works based on the layer of the first selected shape. You could make it work on all shapes individually, and be a lot more compact:

procedure(CCFupLayer()
  foreach(fig geGetSelSet()
    when(fig~>layerName
      fig~>layerName=case(fig~>layerName
        ("M1" "M2")
        ("M2" "M3")
        ("M3" "M4")
        ("M4" "M5")
        ("M5" "M6")
        ("M6" "FA")
        ("FA" "3A")
        ("3A" "LB")
        ("LB" "M1")
        (t fig~>layerName)
      )
    )
  )
)

Note that I didn't test this - the idea is that it loops over all the selected objects, and for each object that has a layerName attribute, it sets the layerName "up" one layer (or leaves it as is if not recognised in the case function). So it can be done in a single function with a fraction of the amount of code that you had, and it's quite simple too.

Regards,

Andrew.