Finding overlapping shapes/instances over instances

489315174

1. procedure(CCScreateOverlapArea(dst src)
   
2. let((llAx llBx llAy llBy urAx urBx urAy urBy boxLL boxUR )
   
3.                 llAx = xCoord( lowerLeft( dst ))
   
4.                 llBx = xCoord( lowerLeft( src ))
   
5.                 llAy = yCoord( lowerLeft( dst ))
   
6.                 llBy = yCoord( lowerLeft( src ))
   
7.                 urAx = xCoord( upperRight( dst ))
   
8.                 urBx = xCoord( upperRight( src ))
   
9.                 urAy = yCoord( upperRight( dst ))
   
10.                 urBy = yCoord( upperRight( src ))
    
11.                 boxLL = max( llAx llBx ):max( llAy llBy )
    
12.                 boxUR = min( urAx urBx ):min( urAy urBy )
    
13.                 list( boxLL boxUR )
    
14. );let
    
15. );proc
    
16. 
    
17. procedure(CCScheckInstOverlap( @optional (cv geGetEditCellView()))
    
18. let(( visited dinstList dbox sbox overlap ignoreCellList)
    
19. 
    
20. ignoreCellList=list("abc" "sealring" "mycell")
    
21. 
    
22. foreach(sinst cv~>instances
    
23.         unless(member(sinst~>cellName ignoreCellList)
    
24.         dinstList=dbGetOverlaps(cv dbTransformBBox(sinst~>master~>prBoundary~>bBox list(sinst~>xy sinst~>orient)) nil )
    
25.                 foreach(dinst dinstList
    
26.                         when(dinst~>objType=="inst" && dinst~>name != sinst~>name && !member(dinst~>cellName ignoreCellList) && !member(dinst visited)
    
27.                         dbox=dbTransformBBox(dinst~>master~>prBoundary~>bBox list(dinst~>xy dinst~>orient) )
    
28.                         sbox=dbTransformBBox(sinst~>master~>prBoundary~>bBox list(sinst~>xy sinst~>orient) )            
    
29.                         overlap=CCScreateOverlapArea(dbox sbox)
    
30. 
    
31.                         unless(abs(caar(overlap) - caadr(overlap)) < 1e-6 || abs(cadar(overlap) - cadadr(overlap)) < 1e-6
    
32.                                 dbCreateMarker(cv sprintf(nil "Instance %s overlaps with instance %s" dinst~>name sinst~>name) "CCS"
    
33.                                                  list(car(overlap) list(caadr(overlap) cadar(overlap)) cadr(overlap)
    
34.                                                  list(caar(overlap) cadadr(overlap))) nil t t "warning" "overlap"
    
35.                                                 )
    
36.                          printf("Instance %s overlaps with instance %s \n" dinst~>name sinst~>name)
    
37.                                         )
    
38.                                 )
    
39.                         )
    
40.                 visited=cons(sinst visited)
    
41.                 );unless
    
42.         );foreach
    
43.         t
    
44. );let
    
45. );proc
    

复制代码

student321

kankan

matlabss

Processed in 0.062343 second(s), 11 queries , Gzip On, Redis On.

好东西啊，谢谢楼主
感谢分享