统计当前版图调用的library，在CIW窗口显示。

yangwgtop

1. hiSetBindKeys("Layout” list(list("Alt<Key>F12""CheckLib()")))
   
2. procedure(CheckLib()
   
3. prog((cv)
   
4. cv = geGetEditCellView()
   
5. lib_lists = nil
   
6. cell_lists=nil
   
7. CheckLib_cell(cv lib_lists cell_lists)
   
8. println("library:")
   
9. foreach(libx lib_lists
   
10. println(libx)
    
11. );foreach
    
12. );let
    
13. );procedure
    
14. 
    
15. procedure(CheckLib_cell(@optional CLcv lib_listA cell_listA)
    
16. let((cv1)
    
17. cv1 = CLcv
    
18. lib_lists=lib_listA
    
19. cell_lists=cell_listA
    
20. cellA1=strcat(cv1~>libName cv1~>celIName)
    
21. cell_lists=cons(cellA1 cell_lists)
    
22. foreach(instID cv1~>instances
    
23. when(member(instID~>libName lib_lists) == nil
    
24. lib_lists=cons(instID~>libName lib_lists)
    
25. ) ; when
    
26. ); foreach
    
27. foreach(instance cv1~>instances
    
28. cellA2=strcat(instance~>libName instance~>cellName)
    
29. when(member(cellA2 cell_lists) == nil
    
30. newcv = dbOpenCellViewByType(instance~>libName instance~>cellName "layout" "" "r")
    
31. CheckLib_cell(newcv lib_lists cell_lists)
    
32. :dbClose(newcv)
    
33. ) ; when
    
34. ); foreach
    
35. );let
    
36. );pro
    

复制代码

duanzy

感谢！

hiSetBindKeys("Layout” list(list("Alt<Key>F12""CheckLib()")))     Layout 后面的 " 格式修改一下，不然有错。~

hanfeng006

不成功，好几个错误

qxjwzl

cellA1=strcat(cv1~>libName cv1~>celIName)   最后的celIName-->cellName