請各位大神幫幫忙寫CHECK裸銅SKILL

db-_-

bingshuihuo 发表于 2022-2-10 08:31

4楼。不知道为啥下载附件这么贵噢。

db-_-

我还以为你们两是同事呢

hank0523

非常感謝DB大大，剛好也遇到相同問題，很實用的SKILL!

evaku

請問也下載來學習 謝謝樓主與db大大

evaku

db大大您好
我下載了您這skill覺得非常實用

但是我想請您幫忙在增加check via的部分

這樣一來就更完善了 謝謝您的熱情幫忙

感謝

wu55

謝謝分享謝謝

db-_-

很久以前写的了，效率有点低，但是多等会儿还是能检查出来的，有能力的可以自己优化一下。

v1.4.1 显示via层，修增length计数问题
v1.4 增加via
check_solder_of_mul_net.rar (1.62 KB, 下载次数: 8)

2023-10-12 16:51 上传

点击文件名下载附件
v1.4.1
下载积分: 贡献 -30 , 威望 -10

1. ;;v1.4.1 显示via层，修增length计数问题
   
2. ;;v1.4 增加via
   
3. ;;v1.3 修正net网络名显示
   
4. ;;v1.2 显示所有重叠的元素
   
5. ;;v1.1 增加shape比对，增加net名/当前层显示
   
6. ;;v1.0 初稿
   
7. ;;check_solder_of_mul_net.il
   
8. ;;指令： chksmn
   
9. ;;功能：检测一个solder是否覆盖多个net（cline、shape、via）
   
10. ;;描述：v1.4.1
    
11. ;;  
    
12. 
    
13. axlCmdRegister("chksmn" 'dbCheckSolderOfMulNet)
    
14. 
    
15. procedure(dbCheckSolderOfMulNet()
    
16. (let (visList tmpFile res1 res2)
    
17. 
    
18.         visList = axlVisibleGet()        ;保存视图
    
19.         tmpFile = axlTempFile()
    
20.         res1 = _dbCheckSolderOfMulNet("TOP" tmpFile)
    
21.         res2 = _dbCheckSolderOfMulNet("BOTTOM" tmpFile)
    
22.         if(res1 || res2 then
    
23.                 axlVisibleDesign(nil)                ;关闭全部层
    
24.                 axlVisibleLayer("ETCH/TOP" t)        ;开启这层
    
25.                 axlVisibleLayer("VIA CLASS/TOP" t)        ;开启这层
    
26.                 axlVisibleLayer("BOARD GEOMETRY/SOLDERMASK_TOP" t)                ;开启这层
    
27.                 axlVisibleLayer("PACKAGE GEOMETRY/SOLDERMASK_TOP" t)        ;开启这层
    
28.                 axlVisibleLayer("ETCH/BOTTOM" t)        ;开启这层
    
29.                 axlVisibleLayer("VIA CLASS/BOTTOM" t)        ;开启这层
    
30.                 axlVisibleLayer("BOARD GEOMETRY/SOLDERMASK_BOTTOM" t)                ;开启这层
    
31.                 axlVisibleLayer("PACKAGE GEOMETRY/SOLDERMASK_BOTTOM" t)        ;开启这层
    
32.                 axlUIWExpose(axlUIViewFileCreate(tmpFile "Solder of multi net CHECK" t))        ;显示文件
    
33.                 axlTempFileRemove(tmpFile)        ;删除临时文件
    
34.         else
    
35.                 axlVisibleSet(visList)        ;还原视图
    
36.                 printf("No intersectional shapes, vias or lines.")
    
37.         )
    
38.         axlVisibleUpdate(nil)                ;显示生效
    
39. ))
    
40. 
    
41. procedure(_dbCheckSolderOfMulNet(layer tmpFile)
    
42. (let (i j clinePoly clinePolys shapePoly intersectionPoly pf pt1 pt2 etchLayer viaLayer boardLayer packageLayer res pointList netCnt)
    
43.        
    
44.         pf = outfile(tmpFile "a")                ;创建临时文件，并打开       
    
45. 
    
46.         ;;获取所有cline,shape,via
    
47.         etchLayer = strcat("ETCH/" layer)
    
48.         viaLayer = strcat("VIA CLASS/" layer)
    
49.        
    
50.         axlVisibleDesign(nil)                ;关闭全部层
    
51.         axlVisibleLayer(etchLayer t)        ;开启这层
    
52.         axlVisibleLayer(viaLayer t)        ;开启这层
    
53.         axlClearSelSet()                ;清空选择
    
54.         axlSetFindFilter(?enabled `("noall" "CLINES" "SHAPES" "VIAS") ?onButtons `("noall" "CLINES" "SHAPES" "VIAS"))        ;设置find过滤器
    
55.         axlAddSelectAll()        ;添加所有元素       
    
56.         foreach(i axlGetSelSet()        ;所有cline/shapes转成多边形
    
57.                 clinePoly = axlPolyFromDB(i)
    
58.                 foreach(j clinePoly
    
59.                         clinePolys = cons(j clinePolys)        ;存储cline的所有poly
    
60.                 )
    
61.         )
    
62.        
    
63.         ;;获取所有shape
    
64.         boardLayer = strcat("BOARD GEOMETRY/SOLDERMASK_" layer)
    
65.         packageLayer = strcat("PACKAGE GEOMETRY/SOLDERMASK_" layer)
    
66.         axlVisibleDesign(nil)                ;关闭全部层
    
67.         axlVisibleLayer(boardLayer t)        ;开启这层
    
68.         axlVisibleLayer(packageLayer t)                ;开启这层
    
69.         axlClearSelSet()                ;清空选择
    
70.         axlSetFindFilter(?enabled `("noall" "SHAPES") ?onButtons `("noall" "SHAPES"))        ;设置find过滤器
    
71.         axlAddSelectAll()        ;添加所有元素
    
72.         axlVisibleDesign(nil)                ;关闭全部层
    
73.         axlVisibleLayer(etchLayer t)        ;开启这层
    
74.         axlVisibleLayer(viaLayer t)        ;开启这层
    
75.         axlSetFindFilter(?enabled `("noall" "CLINES" "SHAPES" "VIAS") ?onButtons `("noall" "CLINES" "SHAPES" "VIAS"))        ;设置find过滤器
    
76.         fprintf(pf "%s LAYER:\n" layer)
    
77.         foreach(i axlGetSelSet()
    
78.                 shapePoly = axlPolyFromDB(i)        ;每个shape转成多边形
    
79.                 intersectionPoly = axlPolyOperation(shapePoly clinePolys 'AND)        ;shape与cline进行与操作
    
80.                 when(length(intersectionPoly) >= 2        ;数量大于2，就检查net名
    
81.                         axlClearSelSet()
    
82.                         pointList = nil
    
83.                         foreach(j intersectionPoly
    
84.                                 axlAddSelectPoint(caar(j->vertices))        ;有重叠的地方，通过选择来确定坐标和网络名
    
85.                                 pointList = cons(caar(j->vertices) pointList)        ;坐标存起来
    
86.                         )
    
87.                         pointList = reverse(pointList)
    
88.                         when(length(unique(axlGetSelSet()~>net~>name)) != 1        ;如果所有重叠的cline和shape网络名一样就不处理
    
89.                                 netCnt = 1
    
90.                                 foreach(j axlGetSelSet()
    
91.                                         fprintf(pf "net%d: %-20s %-20s " netCnt sprintf(nil "%L" car(pointList))  j->net->name || "nil")        ;打印网络名和坐标
    
92.                                         pointList = cdr(pointList)        ;坐标同步
    
93.                                         netCnt++
    
94.                                         res = t        ;返回值，决定是否找到重叠点
    
95.                                 )
    
96.                                 fprintf(pf "\n")
    
97.                         )
    
98.                 )
    
99.                
    
100.         )
     
101.         fprintf(pf "\n")
     
102.         axlClearSelSet()                ;清空选择
     
103.         close(pf)                ;关闭文件
     
104.         res
     
105. ))

复制代码

chengyingwudi

感谢大佬的修改，牛牛牛！！