【分享源代碼】比較兩個Board file網表差異工具/比较两份PCB文件的网表差异

XYX365

【分享源代碼】比較兩個Board file網表差異工具/比较两份PCB文件的网表差异


;
;FileName:        
;Load:                load("fCN.il")
;Command:        cn
;
;功能:比較兩個PCB的Netlist差異
;使用方法:
;        1.開起一個新的brd
;        2.執行cn
;        3.會提示讀取一個舊的brd
;        4.選擇檔案後,再選擇開啟之後就開始比較,直到輸出結果
;
;; 程式特色:
;        1.源代碼分享,讓所有人都可以依照自己的方式加入其他功能,
;                例如加入輸出檔案為excel檔
;                或是其他功能,自己想像.

1. ;
   
2. ;FileName:        
   
3. ;Load:                load("fCN.il")
   
4. ;Command:        cn
   
5. ;
   
6. ;功能:比較兩個PCB的Netlist差異
   
7. ;使用方法:
   
8. ;        1.開起一個新的brd
   
9. ;        2.執行cn
   
10. ;        3.會提示讀取一個舊的brd
    
11. ;        4.選擇檔案後,再選擇開啟之後就開始比較,直到輸出結果
    
12. ;
    
13. ;; 程式特色:
    
14. ;        1.源代碼分享,讓所有人都可以依照自己的方式加入其他功能,
    
15. ;                例如加入輸出檔案為excel檔
    
16. ;                或是其他功能,自己想像.
    
17. axlCmdRegister("cn" 'fnCompareNetlist ?cmdType "general")
    
18. 
    
19. procedure(fnCompareNetlist()
    
20.         prog((tBrdPathNew tBrdOld tBrdPathOld pPort tCmd tNewFile tOldFile lNewList lOldList)
    
21.                
    
22.                 ;取新舊brd檔案名稱
    
23.                 axlMsgPut("M-Please select a brd file:")
    
24.                 tBrdPathOld = axlDMFileBrowse("ALLEGRO_BRD" nil ?title "Compare Netlist" ?optFilters "Board file(*.brd)|*.brd|") ;瀏覽舊的brd
    
25.                 unless(tBrdPathOld
    
26.                         return(nil)
    
27.                 )
    
28.                 tBrdNew = axlCurrentDesign() ;目前所開啟的brd
    
29.                 tBrdPathNew = strcat(simplifyFilename(tBrdNew) ".brd")
    
30.                 ;要導出比較的資料
    
31.                 tFile = strcat(getWorkingDir() "/netlist.view")
    
32.                 pPort = outfile(tFile)
    
33.                 fprintf(pPort "LOGICAL_PIN\n")
    
34.                 fprintf(pPort "  REFDES\n")
    
35.                 fprintf(pPort "  PIN_NUMBER\n")
    
36.                 fprintf(pPort "  NET_NAME\n")
    
37.                 fprintf(pPort "END\n")
    
38.                 close(pPort)
    
39.                 ;
    
40.                 ;導出新舊brd的資料,使用axlRunBatchDBProgram()就不會開啟cmd視窗
    
41.                 foreach(tBrdPath list(tBrdPathNew tBrdPathOld)
    
42.                         tBrdName = cadr(axlDMFileParts(tBrdPath))
    
43.                         sprintf(tCmd "extracta %L %s %s_pin.txt" tBrdPath tFile tBrdName)
    
44.                         axlRunBatchDBProgram("extracta" tCmd ?silent t ?noUnload t ?reloadDB nil)
    
45.                         deleteFile(strcat(getWorkingDir() "/extract.log"))
    
46.                 )
    
47.                 deleteFile(tFile)
    
48.                
    
49.                 ;讀取新brd所導出的資料
    
50.                 tNewFile = strcat(getWorkingDir() "/" cadr(axlDMFileParts(tBrdPathNew)) "_pin.txt")
    
51.                 lNewList = fnCNReadFile(tNewFile)
    
52.                 deleteFile(tNewFile)
    
53.                                 
    
54.                 ;讀取舊brd所導出的資料
    
55.                 tOldFile = strcat(getWorkingDir() "/" cadr(axlDMFileParts(tBrdPathOld)) "_pin.txt")
    
56.                 lOldList = fnCNReadFile(tOldFile)
    
57.                 deleteFile(tOldFile)
    
58.                
    
59.                 ;比較新舊brd差異並輸出到檔案
    
60.                 fnCNCompareData(tBrdPathNew tBrdPathOld lNewList lOldList)
    
61.         )
    
62. )
    
63. procedure(fnCNReadFile(tFile)
    
64.         let((pPort tLine lLines)
    
65.                 if(tFile && isFile(tFile) then
    
66.                         pPort = infile(tFile)
    
67.                         rexCompile(".$")
    
68.                         for(x 1 2 ;讀取前面兩行,這兩行不會處理
    
69.                                 gets(tLine pPort)
    
70.                         )
    
71.                         while(gets(tLine pPort)
    
72.                                 unless(blankstrp(tLine)
    
73.                                         lLines = cons(rexReplace(tLine "" 0) lLines)
    
74.                                 )
    
75.                         )
    
76.                         close(pPort)
    
77.                         sort(lLines nil) ;排序所有資料
    
78.                 else
    
79.                         axlUIConfirm("E- Misssing file.")
    
80.                 )
    
81.         )
    
82. )
    
83. procedure(fnCNCompareData(tBrdPathNew tBrdPathOld lNewList lOldList)
    
84.         let((oNewPin oOldPin lLines tRefDes tPin tNetName)
    
85.                 for(x 0 1
    
86.                         if(zerop(x) then
    
87.                                 oNewPin = makeTable("NEWDATA" nil)
    
88.                         else
    
89.                                 oOldPin = makeTable("OLDDATA" nil)
    
90.                         )
    
91.                         rexCompile("!!")
    
92.                         foreach(tLine nth(x list(lNewList lOldList))
    
93.                                 tLine = rexReplace(tLine "! !" 0)
    
94.                                 lLines = parseString(tLine "!")
    
95.                                 
    
96.                                 tRefDes = cadr(lLines)
    
97.                                 tPin = strcat(tRefDes "." caddr(lLines))
    
98.                                 tNetName = nth(3 lLines)
    
99.                                 
    
100.                                 if(zerop(x) then
     
101.                                         oNewPin[tPin] = list(tNetName)
     
102.                                 else
     
103.                                         oOldPin[tPin] = list(tNetName)
     
104.                                 )
     
105.                         )
     
106.                 )
     
107.                 fnCNOutputData(tBrdPathNew tBrdPathOld oNewPin oOldPin)
     
108.         )
     
109. )
     
110. procedure(fnCNOutputData(tBrdPathNew tBrdPathOld oNewPin oOldPin)
     
111.         let((lAdded lDeleted lChanged tFile pPort xItem tOne)
     
112.                 ;判斷是否有新增資料
     
113.                 foreach(tPin oNewPin
     
114.                         unless(oOldPin[tPin]
     
115.                                 lAdded = cons(tPin lAdded)
     
116.                         )
     
117.                 )
     
118.                 lAdded = sort(lAdded nil)
     
119.                
     
120.                 ;判斷是否有減少資料
     
121.                 foreach(tPin oOldPin
     
122.                         unless(oNewPin[tPin]
     
123.                                 lDeleted = cons(tPin lDeleted)
     
124.                         )
     
125.                 )
     
126.                 lDeleted = sort(lDeleted nil)
     
127.                
     
128.                 ;判斷是否有改變資料
     
129.                 foreach(tPin oNewPin
     
130.                         when(oOldPin[tPin]
     
131.                                 unless(oNewPin[tPin] == oOldPin[tPin]
     
132.                                         lChanged = cons(tPin lChanged)
     
133.                                 )
     
134.                         )
     
135.                 )
     
136.                 lChanged = sort(lChanged nil)
     
137.                
     
138.                 ;輸出資料到檔案
     
139.                 drain()
     
140.                 tFile = strcat(getWorkingDir() "/" cadr(axlDMFileParts(tBrdPathNew)) "_OldNew.rpt")
     
141.                 pPort = outfile(tFile)
     
142.                 ;檔案顯示的標題
     
143.                 fprintf(pPort "Compare NetList report\n")
     
144.                 fprintf(pPort "Date: %s\n" getCurrentTime())
     
145.                 fprintf(pPort "%s.brd [Old]\n" cadr(axlDMFileParts(tBrdPathOld)))
     
146.                 fprintf(pPort "%s.brd [New]\n\n" cadr(axlDMFileParts(tBrdPathNew)))
     
147.                                                                
     
148.                 fprintf(pPort "%s\n" "===================================================================================================================")
     
149.                 fprintf(pPort "%-4s | %-20s | %-40s | %-40s |\n" "Item" "Pin Name" "Current(New) Design" "Old Design")
     
150.                 fprintf(pPort "%s\n" "===================================================================================================================")
     
151.                 xItem = 1
     
152.                 ;輸出新增的資料到檔案
     
153.                 foreach(tOne lAdded
     
154.                         fprintf(pPort "%-4d | %-20s | %-40s | %-40s |\n" xItem tOne car(oNewPin[tOne]) "(***)")
     
155.                         fprintf(pPort "%s\n" "-------------------------------------------------------------------------------------------------------------------")
     
156.                         xItem++
     
157.                 )
     
158.                 ;輸出減少的資料到檔案
     
159.                 foreach(tOne lDeleted
     
160.                         fprintf(pPort "%-4d | %-20s | %-40s | %-40s |\n" xItem tOne "(***)" car(oOldPin[tOne]))
     
161.                         fprintf(pPort "%s\n" "-------------------------------------------------------------------------------------------------------------------")
     
162.                         xItem++
     
163.                 )
     
164.                 ;輸出變更的資料到檔案
     
165.                 foreach(tOne lChanged
     
166.                         fprintf(pPort "%-4d | %-20s | %-40s | %-40s |\n" xItem tOne car(oNewPin[tOne]) car(oOldPin[tOne]))
     
167.                         fprintf(pPort "%s\n" "-------------------------------------------------------------------------------------------------------------------")
     
168.                         xItem++
     
169.                 )
     
170.                 ;輸出總數量的訊息
     
171.                 fprintf(pPort "Total: %5d\n\n" length(lAdded)+length(lDeleted)+length(lChanged))
     
172.                 fprintf(pPort "Summary:\n")
     
173.                 fprintf(pPort "  %d Added pins\n" length(lAdded))
     
174.                 fprintf(pPort "  %d Deleted pins\n" length(lDeleted))
     
175.                 fprintf(pPort "  %d Changed pins\n\n" length(lChanged))
     
176.                 fprintf(pPort "%s\n" "Remark: (***) = Pin not exist in the design.")
     
177.                 close(pPort)
     
178.                
     
179.                 axlUIViewFileCreate(tFile "Report Window" t (120:60)) ;觀看輸出結果
     
180.         )
     
181. )
     

复制代码

wyh12345

你好，我根据你这份代码去编写bom比对skill，我首先需要判断每一份bom表中ref的个数是否正确，不正确也需要打印，但是我新加进的代码无法输出，总数格式不匹配，这是怎么回事呢C:\Users\Administrator\Desktop\1490172883541.jpg
C:\Users\Administrator\Desktop\IMG_20170322_164535.jpg

361553894

XYX365 发表于 2016-2-3 16:49
我剛才有發現,所以已經刪除,附件沒有修改,必須自行刪除

还有67行，应该是
                       rexCompile(".$")

XYX365

361553894 发表于 2016-2-3 17:08
还有67行，应该是
                       rexCompile(".$")

已修改,附件是正常的,

nanosoc

谢谢楼主分享！！！

penny190

謝謝分享

dewyomo

bruceljc

谢谢楼主分享！！！

vivianwu0317

谢谢楼主分享！！！

vivianwu0317

谢谢楼主分享！！！

361553894

感谢大神开放源码

XYX365

361553894 发表于 2016-2-3 16:24
感谢大神开放源码

後續還有一些簡單的程式會在開放

361553894

XYX365 发表于 2016-2-3 16:31
後續還有一些簡單的程式會在開放

对我们这些初学者来说，是相当高端的程式了

XYX365

361553894 发表于 2016-2-3 16:34
对我们这些初学者来说，是相当高端的程式了

你可以比較我今年所分享的源代碼,就會發現很多地方寫的都一樣,幾乎可以做成一個模板,稍微修改就成為另一功能,

361553894

第58行的
AADAKDALKDKL
不理解。。

XYX365

361553894 发表于 2016-2-3 16:47
第58行的
AADAKDALKDKL
不理解。。

我剛才有發現,所以已經刪除,附件沒有修改,必須自行刪除

jinshan010

谢谢分享