procedure(gring()

let( (cv objs objs1 objs2 objs3)

    cv = geGetEditCellView()

;    objs = geGetSelSet()

;    objs1 = cdfGetInstCDF(car(objs)) 

;    objs2 = setof(x objs1~>parameters ((x~>name == "hvbnGuardRing") || (x~>name == "pwGuardRing")))

;    

;

;    when(objs2

;    objs2~>value = nil   

;    )    

;     objs = cv~>instances

    foreach(objs cv~>instances 

    objs1 = cdfGetInstCDF(objs)

    objs2 = setof(x objs1~>parameters ((x~>name == "hvbnGuardRing") ||

                                       (x~>name == "pwGuardRing")   || 

                                       (x~>name == "tap")))

;    when(objs2

;    objs2~>value = nil

;    )

;    );foreach

    when(objs2

    foreach(objs3 objs2

    cond(

        ((objs3~>name == "hvbnGuardRing") ||

         (objs3~>name == "pwGuardRing")

          objs3~>value = nil

         ;println("sucess to tri con1")

          )

         (objs3~>name == "tap"

          objs3~>value = "None"

         ;println("sucess to tri con2")

          )            

    );cond    

    );foreach

    );when

    );foreach

;     printf("obj_inst :\n %L\n"  objs~>name)

      printf("obj_info1 :\n %L\n"  objs2~>?)

      printf("obj_info2 :\n %L\n"  objs3~>?)

;    printf("obj_cdf : \n %L \n" objs1~>parameters~>??)

;    printf("obj_parameters :\n %L\n" objs2~>?? )

   );let

);proc

hiSetBindKey("layout" "<Key>KP_1" "gring()")