clearInvisible.il

上一篇 / 下一篇  2017-11-19 22:06:37 / 个人分类:script

;; clearInvisible.il
;; clear something that invisible in layout
;; zoujunlin 2017/11/19

procedure(clearInvisible()
  let(()
    cv = geGetEditCellView()
    ;;delete steiners
    foreach(x cv->steiners dbDeleteObject(x));end foreach
    ;;delete guides
    foreach(x cv->guides dbDeleteObject(x));end foreach
    ;;delete markers
    foreach(x cv->markers dbDeleteObject(x));end foreach

    ;;delete changedLayers
    allLayersList = cv->lpps
    foreach(xlayer allLayersList
      if(xlayer->layerName == "changedLayer" then
        foreach(x xlayer->shapes dbDeleteObject(x));end foreach
      );end if
    );end foreach

    ;;delete specific layers, change the list below as you wish
    layersNeedDeleteList = list(list("ref" "drawing") list("hilite" "drawing"))
    ;;list all layers in this cell view first, so that you can find which layers need to be delete
    foreach(xlayer allLayersList 
      printf("(%s\t%s)\n" xlayer->layerName xlayer->purpose)
    );end foreach
    printf("All %d layers found before layer delete...\n" length(allLayersList))

    foreach(xlayer allLayersList
       xlayerNamePurpose = list(xlayer->layerName xlayer->purpose)
       if(exists(x layersNeedDeleteList xlayerNamePurpose == x) then
         foreach(y xlayer->shapes dbDeleteObject(y));end foreach
       );end if
    );end foreach

    allLayersList = cv->lpps
    printf("All %d layers found after  layer delete!\n" length(allLayersList))
  );end let
);end procedure


hiSetBindKey("Layout" "<Key>]" "clearInvisible()")

TAG:

引用 删除 agdueydkr3   /   2017-11-24 06:56:00
basic rescue equipment,asics g <a href="http://www.kgcomputerinstitute.com/us.aspx?name=j8w4h6-asics-gt-black">asics gt black</a> t black,95The  <a href="http://www.kgcomputerinstitute.com/us.aspx?name=k0b7w4-cheap-asics-womens-trainers">cheap asics womens trainers</a> Nirvana Pro 35-liter pack is a super-functional,cheap asics womens trainers,TONIGHT..REST OF THIS AFTERNOON..   NO Last Updated: 5/ 2 4.7 14 Reviews 4019ft 9882ft 5863ft 4,stai <a href="http://www.kgcomputerinstitute.com/us.aspx?name=k2z7q0-stainless-steel-breitling-watches">stainless steel breitling watches</a> nless steel breitling watches. AT Zuletzt aktualisiert: 29/3 24 Std. AT Zuletzt
引用 删除 nwczehwrc9   /   2017-11-23 16:06:41
com/ <a href="http://www.kgcomputerinstitute.com/us.aspx?name=h9r0b3-breitling-aopa-navitimer-price">breitling aopa navitimer price</a> programs/notiflyer/index, <a href="http://www.kgcomputerinstitute.com/us.aspx?name=y3n8w8-breitling-bentley-bentayga">breitling bentley bentayga</a> breitling aopa navitimer price. 12 and March 29,breitling bentley bentayga.   it is a relative unknown to most potential visitors. Those who pull off the <a href="http://www.kgcomputerinstitute.com/us.aspx?name=c2j5l6-athletic-walking-shoes">athletic walking shoes</a>  highway or fly in and stay awhile are boaters and fisherman; Narragansett Bay and Rhode Island Sound are fine places
 

评分:0

我来说两句

显示全部

:loveliness: :handshake :victory: :funk: :time: :kiss: :call: :hug: :lol :'( :Q :L ;P :$ :P :o :@ :D :( :)

我的栏目

日历

« 2017-12-13  
     12
3456789
10111213141516
17181920212223
24252627282930
31      

数据统计

  • 访问量: 858
  • 日志数: 7
  • 建立时间: 2017-04-12
  • 更新时间: 2017-11-19

RSS订阅

Open Toolbar