删除在Etch层的shape的skill，写的代码帮忙看下怎么改

xieeyawen

axlMsgPut("Select shape to delete Etch!")       axlClearSelSet()               axlSetFindFilter( ?enabled  '("noall" "shapes") ?onButtons '("shapes") )       while(axlSelect(?prompt "Please Select shapes to del")                   shapes = axlGetSelSet()                   foreach(shapeb axlDBGetShapes("ETCH")                             foreach(shapea shapes                                 when(shapea == shapeb                                                   axlDeleteObject(shapea)                                                       );ednwhen                                                       );endforeach                                       );endforeach                                             );endwhile       axlClearSelSet()

xieeyawen

1. axlClearSelSet()        
   
2. axlSetFindFilter(?enabled list("noall" "shapes" ) ?onButtons list("noall" "shapes"))
   
3. while(axlSelect(?prompt "Please Select shapes to delete shapes on Etch Layer!")
   
4. _shape_list = axlGetSelSet()
   
5. foreach(_shape_dbid _shape_list layer =car(list(_shape_dbid))->layer layerclass=car(parseString(layer "/"))
   
6. when(layerclass=="ETCH"
   
7. axlDeleteObject(_shape_dbid)                                                                                                                                
   
8. );endwhen
   
9. );endforeach        
   
10. );endwhile

复制代码

代码改成上面的还是不行啦。报错

Cannot edit Shape "Dummy Net, Etch/Top". Symbol "Mark*" has the LOCKED property.
Cannot edit Shape "Dummy Net, Etch/Top". Symbol "Mark*" has the LOCKED property.
Cannot edit Shape "Dummy Net, Etch/Top". Symbol "Mark*" has the LOCKED property.
Cannot edit Shape "Dummy Net, Etch/Top". Symbol "Mark*" has the LOCKED property.
Cannot edit Shape "Dummy Net, Etch/Top". Symbol "Mark*" has the LOCKED property.
Cannot edit Shape "Dummy Net, Etch/Top". Symbol "Mark*" has the LOCKED property.

W-  Cannot delete element type: Shape(auto-generated) "Gnd, Etch/Top".

xieeyawen

axlCmdRegister("deletchshape" 'deletchshape ?cmdType "interactive"
               ?doneCmd 'S_done ?cancelCmd 'S_cancel)

procedure(deletchshape()
prog( (notdone Spopup S_mark)
  Spopup = axlUIPopupDefine( nil (list
    (list "Undo" 'S_undo)
    (list "Done" 'S_done)
    (list "Cancel" 'S_cancel)
     ))
    axlUIPopupSet(Spopup)
                S_mark = axlDBTransactionStart()
                notdone = t
                axlClearSelSet()        
    axlSetFindFilter(?enabled list("noall" "shapes" ) ?onButtons list("noall" "shapes"))
while(notdone   
while(axlSelect(?prompt "Please Select shapes to delete shapes on Etch Layer!")
                axlMsgPut("Select shape to delete Etch!")
                axlClearSelSet()        
                axlSetFindFilter( ?enabled  '("noall" "shapes") ?onButtons '("shapes") )
                while(axlSelect(?prompt "Please Select shapes to del")
                shapes = axlGetSelSet()
                foreach(shapeb axlDBGetShapes("ETCH")
                        foreach(shapea shapes
                                when(shapea == shapeb
                                axlDeleteObject(car(list(shapea))->shapeBoundary)
                                        );ednwhen
                                        );endforeach
                                        );endforeach      
                                        );endwhile
                axlClearSelSet()

    /*************增加撤销和完成功能********************/       
                axlDBTransactionCommit(S_mark)       
                                );endwhile
                                );ednwhile
        );endlet
);endprocedure

procedure(S_undo()
let( ()
  if(! axlDBTransactionOops(S_mark) then
    axlUIWPrint(nil "-- Nothing Left To Undo. --")
  else
    axlUIWPrint(nil "-- Replacing Clines. --")
  ); endif
  axlClearSelSet()
)); end let procedure

procedure(S_cancel()
let( ()
  axlUIWPrint(nil "** Cancelled Program. **")
  ;axlDBTransactionRollback(S_mark)
  notdone = nil
  axlClearSelSet()
  axlCancelEnterFun()

)); end let procedure

procedure(S_done()
let( ()
  axlUIWPrint(nil "- Done -")
  axlDBTransactionCommit(S_mark)
  notdone = nil
  axlCancelEnterFun()

)); end let and procedure




/**********方法2**********
                _shape_list = axlGetSelSet()
foreach(_shape_dbid _shape_list
layer =car(list(_shape_dbid))->layer
;foreach返回的是l_valueList / l_result，_shape_dbid要加个list强制变为list
;再用car去壳才能得到shape的dbid信息再指向layer,所以是car(list(_shape_dbid))
layerclass=car(parseString(layer "/"))
when(layerclass=="ETCH"
axlDeleteObject(car(list(_shape_dbid))->shapeBoundary)                ;必须知道shape的shapeBoundary的dbid才能删除                                                                                                       
);endwhen
);endforeach       
);endwhile
                axlClearSelSet()
**********方法2**********/


/**********方法3**********
      axlMsgPut("Select shape to delete Etch!")
      axlClearSelSet()        
      axlSetFindFilter( ?enabled  '("noall" "shapes") ?onButtons '("shapes") )
      while(axlSelect(?prompt "Please Select shapes to del")
                  shapes = axlGetSelSet()
            foreach(i axlSubclassRoute()
                foreach(c shapes
                   when(
                     car(list(c))->layer=axlLayerGet(sprintf(nil "ETCH/%s" i))
                     axlDeleteObject(car(list(c))->shapeBoundary)
                     )
                     );endforeach
                     );endforeach      
                     );endwhile
                axlClearSelSet()
**********方法3**********/