两条交叉的metal线，去除多余的线头：（ 快捷键6）

恒裕

1. 
   
2. 
   
3. hiSetBindKey("Layout" "<Key>6" "xiubian()")
   
4. 
   
5. procedure(xiubian()
   
6. object_List=geGetSelSet()
   
7. 
   
8. objectA=car(object_List)
   
9. pointsA=objectA~>points
   
10. widthA=objectA~>width
    
11. objectB=cadr(object_List)
    
12. pointsB=objectB~>points
    
13. widthB=objectB~>width
    
14. 
    
15. if(car(car(pointsA))==car(cadr(pointsA)) then
    
16.   pointsShu=pointsA
    
17.   widthShu=widthA
    
18.   object_Shu=objectA
    
19.   pointsHeng=pointsB
    
20.   widthHeng=widthB
    
21.   object_Heng=objectB
    
22.   shoubian()
    
23. else
    
24.   pointsShu=pointsB
    
25.   widthShu=widthB
    
26.   object_Shu=objectB
    
27.   pointsHeng=pointsA
    
28.   widthHeng=widthA
    
29.   object_Heng=objectA
    
30.   shoubian()
    
31. )
    
32. )
    
33. procedure(shoubian()
    
34. y1Shu=cadr(car(pointsShu))
    
35. y2Shu=cadr(cadr(pointsShu))
    
36. yMaxShu=max(y1Shu y2Shu)
    
37. yMinShu=min(y1Shu y2Shu)
    
38. x1Heng=car(car(pointsHeng))
    
39. x2Heng=car(cadr(pointsHeng))
    
40. xMaxHeng=max(x1Heng x2Heng)
    
41. xMinHeng=min(x1Heng x2Heng)
    
42. xShu=car(car(pointsShu))
    
43. yHeng=cadr(car(pointsHeng))
    
44. 
    
45. when((xMaxHeng-xShu)<(xShu-xMinHeng)&&x1Heng<x2Heng
    
46.   xHeng_new=xShu+widthShu/2
    
47.   object_Heng~>points=list(car(pointsHeng) rplaca(cadr(pointsHeng) xHeng_new))
    
48. )
    
49. when((xMaxHeng-xShu)<(xShu-xMinHeng)&&x1Heng>x2Heng
    
50.   xHeng_new=xShu+widthShu/2
    
51.   object_Heng~>points=list(rplaca(car(pointsHeng) xHeng_new) cadr(pointsHeng))
    
52. )
    
53. when((xMaxHeng-xShu)>(xShu-xMinHeng)&&x1Heng<x2Heng
    
54.   xHeng_new=xShu-widthShu/2
    
55.   object_Heng~>points=list(rplaca(car(pointsHeng) xHeng_new) cadr(pointsHeng))
    
56. )
    
57. when((xMaxHeng-xShu)>(xShu-xMinHeng)&&x1Heng>x2Heng
    
58.   xHeng_new=xShu-widthShu/2
    
59.   object_Heng~>points=list(car(pointsHeng) rplaca(cadr(pointsHeng) xHeng_new))
    
60. )
    
61. 
    
62. when((yMaxShu-yHeng)>(yHeng-yMinShu)&&y1Shu<y2Shu
    
63.   yShu_new=yHeng-widthHeng/2
    
64.   remove_cell=cadr(car(pointsShu))
    
65.   object_Shu~>points=list(remove(remove_cell append1(car(pointsShu) yShu_new)) cadr(pointsShu))
    
66. )
    
67. when((yMaxShu-yHeng)>(yHeng-yMinShu)&&y1Shu>y2Shu
    
68.   yShu_new=yHeng-widthHeng/2
    
69.   remove_cell=cadr(cadr(pointsShu))
    
70.   object_Shu~>points=list(car(pointsShu) remove(remove_cell append1(cadr(pointsShu) yShu_new)))
    
71. )
    
72. 
    
73. when((yMaxShu-yHeng)<(yHeng-yMinShu)&&y1Shu<y2Shu
    
74.   yShu_new=yHeng+widthHeng/2
    
75.   remove_cell=cadr(cadr(pointsShu))
    
76.   object_Shu~>points=list(car(pointsShu) remove(remove_cell append1(cadr(pointsShu) yShu_new)))
    
77. )
    
78. when((yMaxShu-yHeng)<(yHeng-yMinShu)&&y1Shu>y2Shu
    
79.   yShu_new=yHeng+widthHeng/2
    
80.   remove_cell=cadr(car(pointsShu))
    
81.   object_Shu~>points=list(remove(remove_cell append1(car(pointsShu) yShu_new)) cadr(pointsShu))
    
82. )   
    
83. )
    
84. 
    
85. 
    

复制代码

populaa

谢谢分享