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

XYX365

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

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

1. ;
   
2. ;FileName:        
   
3. ;Load:                load("fCS.il")
   
4. ;Command:        cs
   
5. ;
   
6. ;功能:比較兩個PCB的Symbols差異
   
7. ;使用方法:
   
8. ;        1.開起一個新的brd
   
9. ;        2.執行cs
   
10. ;        3.會提示讀取一個舊的brd
    
11. ;        4.選擇檔案後,再選擇開啟之後就開始比較,直到輸出結果
    
12. ;
    
13. ;; 程式特色:
    
14. ;        1.源代碼分享,讓所有人都可以依照自己的方式加入其他功能,
    
15. ;                例如加入輸出檔案為excel檔
    
16. ;                或是其他功能,自己想像.
    
17. axlCmdRegister("cs" 'fnCompareSymbol ?cmdType "general")
    
18. 
    
19. procedure(fnCompareSymbol()
    
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 Symbol" ?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.                 fnCSExtractaData(tBrdPathNew tBrdPathOld)
    
32.                
    
33.                 ;讀取新brd所導出的資料Comp
    
34.                 tNewFile = strcat(getWorkingDir() "/" cadr(axlDMFileParts(tBrdPathNew)) "_comp.txt")
    
35.                 lNewCompList = fnCSReadFile(tNewFile)
    
36.                 deleteFile(tNewFile)
    
37.                                 
    
38.                 ;讀取舊brd所導出的資料Comp
    
39.                 tOldFile = strcat(getWorkingDir() "/" cadr(axlDMFileParts(tBrdPathOld)) "_comp.txt")
    
40.                 lOldCompList = fnCSReadFile(tOldFile)
    
41.                 deleteFile(tOldFile)
    
42.                
    
43.                 ;讀取新brd所導出的資料Sym
    
44.                 tNewFile = strcat(getWorkingDir() "/" cadr(axlDMFileParts(tBrdPathNew)) "_sym.txt")
    
45.                 lNewSymList = fnCSReadFile(tNewFile)
    
46.                 deleteFile(tNewFile)
    
47.                                 
    
48.                 ;讀取舊brd所導出的資料Sym
    
49.                 tOldFile = strcat(getWorkingDir() "/" cadr(axlDMFileParts(tBrdPathOld)) "_sym.txt")
    
50.                 lOldSymList = fnCSReadFile(tOldFile)
    
51.                 deleteFile(tOldFile)
    
52.                
    
53.                 ;比較新舊brd差異並輸出到檔案
    
54.                 fnCSCompareData(tBrdPathNew tBrdPathOld lNewCompList lOldCompList lNewSymList lOldSymList)
    
55.         )
    
56. )
    
57. procedure(fnCSReadFile(tFile)
    
58.         let((pPort tLine lLines)
    
59.                 if(tFile && isFile(tFile) then
    
60.                         pPort = infile(tFile)
    
61.                         rexCompile(".$")
    
62.                         for(x 1 2 ;讀取前面兩行,這兩行不會處理
    
63.                                 gets(tLine pPort)
    
64.                         )
    
65.                         while(gets(tLine pPort)
    
66.                                 unless(blankstrp(tLine)
    
67.                                         lLines = cons(rexReplace(tLine "" 0) lLines)
    
68.                                 )
    
69.                         )
    
70.                         close(pPort)
    
71.                         sort(lLines nil) ;排序所有資料
    
72.                 else
    
73.                         axlUIConfirm("E- Misssing file.")
    
74.                 )
    
75.         )
    
76. )
    
77. procedure(fnCSCompareData(tBrdPathNew tBrdPathOld lNewCompList lOldCompList lNewSymList lOldSymList)
    
78.         let((oNewComp oOldComp oNewSym oOldSym lLines tRefDes tPartNum tValue tTol tDeviceType tXY tIsMirrored
    
79.                 tRotation tMode tSymName)
    
80.                 ;將Comp的Data存放到Table
    
81.                 for(x 0 1
    
82.                         if(zerop(x) then
    
83.                                 oNewComp = makeTable("NEWCOMPDATA" nil)
    
84.                         else
    
85.                                 oOldComp = makeTable("OLDCOMPDATA" nil)
    
86.                         )
    
87.                         rexCompile("!!")
    
88.                         foreach(tLine nth(x list(lNewCompList lOldCompList))
    
89.                                 tLine = rexReplace(tLine "! !" 0)
    
90.                                 lLines = parseString(tLine "!")
    
91.                                 
    
92.                                 tRefDes = cadr(lLines)
    
93.                                 tPartNum = caddr(lLines)
    
94.                                 tValue = nth(3 lLines)
    
95.                                 tTol = nth(4 lLines)
    
96.                                 tDeviceType = nth(6 lLines)
    
97.                                                                
    
98.                                 if(zerop(x) then
    
99.                                         oNewComp[tRefDes] = list(tPartNum tValue tTol tDeviceType)
    
100.                                 else
     
101.                                         oOldComp[tRefDes] = list(tPartNum tValue tTol tDeviceType)
     
102.                                 )
     
103.                         )
     
104.                 )
     
105.                
     
106.                 ;將Sym的Data存放到Table
     
107.                 for(x 0 1
     
108.                         if(zerop(x) then
     
109.                                 oNewSym = makeTable("NEWSYMDATA" nil)
     
110.                         else
     
111.                                 oOldSym = makeTable("OLDSYMDATA" nil)
     
112.                         )
     
113.                         rexCompile("!!")
     
114.                         foreach(tLine nth(x list(lNewSymList lOldSymList))
     
115.                                 tLine = rexReplace(tLine "! !" 0)
     
116.                                 lLines = parseString(tLine "!")
     
117.                                 
     
118.                                 tRefDes = cadr(lLines)
     
119.                                 tXY = strcat("(" caddr(lLines) "," nth(3 lLines) ")")
     
120.                                 tIsMirrored = nth(4 lLines)
     
121.                                 if(tIsMirrored == "YES" then
     
122.                                         tIsMirrored = "B"
     
123.                                 else
     
124.                                         tIsMirrored = "T"
     
125.                                 )
     
126.                                 tRotation = sprintf(nil "%.2f" readstring(nth(5 lLines)))
     
127.                                 tMode = nth(6 lLines)
     
128.                                 tSymName = nth(7 lLines)
     
129.                                 
     
130.                                 if(zerop(x) then
     
131.                                         tPartNum = car(oNewComp[tRefDes])
     
132.                                         unless(tPartNum
     
133.                                                 tPartNum = ""
     
134.                                         )
     
135.                                         oNewSym[tRefDes] = list(tXY tIsMirrored tRotation tMode tSymName tPartNum)
     
136.                                 else
     
137.                                         tPartNum = car(oOldComp[tRefDes])
     
138.                                         unless(tPartNum
     
139.                                                 tPartNum = ""
     
140.                                         )
     
141.                                         oOldSym[tRefDes] = list(tXY tIsMirrored tRotation tMode tSymName tPartNum)
     
142.                                 )
     
143.                         )
     
144.                 )
     
145.                 fnCSOutputData(tBrdPathNew tBrdPathOld oNewComp oOldComp oNewSym oOldSym)
     
146.         )
     
147. )
     
148. procedure(fnCSOutputData(tBrdPathNew tBrdPathOld oNewComp oOldComp oNewSym oOldSym)
     
149.         let((lAdded lDeleted lChanged tFile pPort xItem tOne)
     
150.                 ;判斷是否有新增資料
     
151.                 foreach(tRefdes oNewSym
     
152.                         unless(oOldSym[tRefdes]
     
153.                                 lAdded = cons(tRefdes lAdded)
     
154.                         )
     
155.                 )
     
156.                 lAdded = sort(lAdded nil)
     
157.                
     
158.                 ;判斷是否有減少資料
     
159.                 foreach(tRefdes oOldSym
     
160.                         unless(oNewSym[tRefdes]
     
161.                                 lDeleted = cons(tRefdes lDeleted)
     
162.                         )
     
163.                 )
     
164.                 lDeleted = sort(lDeleted nil)
     
165.                
     
166.                 ;判斷是否有改變資料
     
167.                 foreach(tRefdes oNewSym
     
168.                         when(oOldSym[tRefdes]
     
169.                                 unless(oNewSym[tRefdes] == oOldSym[tRefdes]
     
170.                                         lChanged = cons(tRefdes lChanged)
     
171.                                 )
     
172.                         )
     
173.                 )
     
174.                 lChanged = sort(lChanged nil)
     
175.                
     
176.                 ;輸出資料到檔案
     
177.                 drain()
     
178.                 tFile = strcat(getWorkingDir() "/" cadr(axlDMFileParts(tBrdPathNew)) "_OldNew.rpt")
     
179.                 pPort = outfile(tFile)
     
180.                 ;檔案顯示的標題
     
181.                 fprintf(pPort "Compare Symbol report\n")
     
182.                 fprintf(pPort "Date: %s\n" getCurrentTime())
     
183.                 fprintf(pPort "%s.brd [Old]\n" cadr(axlDMFileParts(tBrdPathOld)))
     
184.                 fprintf(pPort "%s.brd [New]\n\n" cadr(axlDMFileParts(tBrdPathNew)))
     
185.                                                                
     
186.                 fprintf(pPort "%s\n" "===============================================================================================================================")
     
187.                 fprintf(pPort "%4s %-5s %-8s %20s %-20s %-4s %6s %-25s %-17s %-40s\n"  "#" "Brd" "Type" "Refdes" strcat("XY(" car(axlDBGetDesignUnits()) ")") "Side" "Rot" "Symtype" "Part number" "Device type")
     
188.                 fprintf(pPort "%s\n" "===============================================================================================================================")
     
189.                 xItem = 1
     
190.                 ;輸出新增的資料到檔案
     
191.                 foreach(tOne lAdded
     
192.                         fprintf(pPort "%4d %-5s %-8s %20s %-20s %-4s %6s %-25s %-17s %-40s\n" xItem "[New]" "Added:" tOne car(oNewSym[tOne]) cadr(oNewSym[tOne]) caddr(oNewSym[tOne]) nth(4 oNewSym[tOne]) nth(5 oNewSym[tOne]) _ssfnEnsureNonNilValue(nth(3 oNewComp[tOne])))
     
193.                         xItem++
     
194.                 )
     
195.                 fprintf(pPort "\n")
     
196.                 ;輸出減少的資料到檔案
     
197.                 xItem = 1
     
198.                 foreach(tOne lDeleted
     
199.                         fprintf(pPort "%4d %-5s %-8s %20s %-20s %-4s %6s %-25s %-17s %-40s\n" xItem "[Old]" "Deleted:" tOne car(oOldSym[tOne]) cadr(oOldSym[tOne]) caddr(oOldSym[tOne]) nth(4 oOldSym[tOne]) nth(5 oOldSym[tOne]) _ssfnEnsureNonNilValue(nth(3 oOldComp[tOne])))
     
200.                         xItem++
     
201.                 )
     
202.                 fprintf(pPort "\n")
     
203.                 ;輸出變更的資料到檔案
     
204.                 xItem = 1
     
205.                 foreach(tOne lChanged
     
206.                         fprintf(pPort "%4d %-5s %-8s %20s %-20s %-4s %6s %-25s %-17s %-40s\n" xItem "[New]" "Changed:" tOne car(oNewSym[tOne]) cadr(oNewSym[tOne]) caddr(oNewSym[tOne]) nth(4 oNewSym[tOne]) nth(5 oNewSym[tOne]) _ssfnEnsureNonNilValue(nth(3 oNewComp[tOne])))
     
207.                         fprintf(pPort "%4d %-5s %-8s %20s %-20s %-4s %6s %-25s %-17s %-40s\n" xItem "[Old]" "Changed:" tOne car(oOldSym[tOne]) cadr(oOldSym[tOne]) caddr(oOldSym[tOne]) nth(4 oOldSym[tOne]) nth(5 oOldSym[tOne]) _ssfnEnsureNonNilValue(nth(3 oOldComp[tOne])))
     
208.                         fprintf(pPort "\n")
     
209.                         xItem++
     
210.                 )
     
211.                 ;輸出總數量的訊息
     
212.                 fprintf(pPort "\n\nTotal: %5d\n\n" length(lAdded)+length(lDeleted)+length(lChanged))
     
213.                 fprintf(pPort "Summary:\n")
     
214.                 fprintf(pPort "  %d Added symbols\n" length(lAdded))
     
215.                 fprintf(pPort "  %d Deleted symbols\n" length(lDeleted))
     
216.                 fprintf(pPort "  %d Changed symbols\n\n" length(lChanged))
     
217.                 close(pPort)
     
218.                
     
219.                 axlUIViewFileCreate(tFile "Report Window" t (120:60)) ;觀看輸出結果
     
220.         )
     
221. )
     
222. procedure(_ssfnEnsureNonNilValue(val)
     
223.         unless(val
     
224.                 val = ""
     
225.         )
     
226.         val
     
227. )
     
228. procedure(fnCSExtractaData(tBrdPathNew tBrdPathOld)
     
229.         let((tFile pPort tBrdName tCmd)
     
230.                 ;要導出比較的資料
     
231.                 tFile = strcat(getWorkingDir() "/symbol.view")
     
232.                 pPort = outfile(tFile)
     
233.                 fprintf(pPort "SYMBOL\n\n")
     
234.                 fprintf(pPort "REFDES\n")
     
235.                 fprintf(pPort "SYM_X\n")
     
236.                 fprintf(pPort "SYM_Y\n")
     
237.                 fprintf(pPort "SYM_MIRROR\n")
     
238.                 fprintf(pPort "SYM_ROTATE\n")
     
239.                 fprintf(pPort "SYM_TYPE\n")
     
240.                 fprintf(pPort "SYM_NAME\n")
     
241.                 fprintf(pPort "END\n")
     
242.                 fprintf(pPort "COMPONENT\n")
     
243.                 fprintf(pPort "REFDES\n")
     
244.                 fprintf(pPort "COMP_PART_NUMBER\n")
     
245.                 fprintf(pPort "COMP_VALUE\n")
     
246.                 fprintf(pPort "COMP_TOL\n")
     
247.                 fprintf(pPort "COMP_PACKAGE\n")
     
248.                 fprintf(pPort "COMP_DEVICE_TYPE\n")
     
249.                 fprintf(pPort "COMP_CLASS\n")
     
250.                 fprintf(pPort "COMP_DEVICE_LABEL\n")
     
251.                 fprintf(pPort "END\n")
     
252.                 close(pPort)
     
253.                
     
254.                 ;導出新舊brd的資料,使用axlRunBatchDBProgram()就不會開啟cmd視窗
     
255.                 foreach(tBrdPath list(tBrdPathNew tBrdPathOld)
     
256.                         tBrdName = cadr(axlDMFileParts(tBrdPath))
     
257.                         sprintf(tCmd "extracta %L %s %s_sym.txt %s_comp.txt" tBrdPath tFile tBrdName tBrdName)
     
258.                         axlRunBatchDBProgram("extracta" tCmd ?silent t ?noUnload t ?reloadDB nil)
     
259.                         deleteFile(strcat(getWorkingDir() "/extract.log"))
     
260.                 )
     
261.                 deleteFile(tFile)
     
262.         )
     
263. )
     

复制代码

JIMDENG

测试了一下，两个文件中元件坐标变动了，能直观的显示出来！很实用！新年的好礼物！谢谢楼主！

snow6333

這個skill比較出來的資料比較完整,又有原始碼可以研究
感謝感謝

jackoosam

這功能很不錯用
小弟常常在比對檔案阿
這是太謝謝了

penny190

謝謝大大 ~~ 又有新分享喔

guanhaiji301

真的这么好吗？谢谢

nanosoc

好东西，谢谢楼主分享！！！

huzf

看看

wolf343105

ding xiexie.

lindaling59420

好东西

武紫旭

不错，赞一个！

ben71431

感謝分享~

卫冬冬

看看 学习学习学习学习

mistletoe

感谢分享，楼主威武

zqy610710

好东西，谢谢楼主分享！！！

小四月

厉害 支持哦  学习一下