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

XYX365 · 发表于 2016-2-2 10:21

本帖最后由 XYX365 于 2016-2-4 07:19 编辑

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

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

;
;FileName:
;Load: load("fCN.il")
;Command: cn
;
;功能:比較兩個PCB的Netlist差異
;使用方法:
; 1.開起一個新的brd
; 2.執行cn
; 3.會提示讀取一個舊的brd
; 4.選擇檔案後,再選擇開啟之後就開始比較,直到輸出結果
;
;; 程式特色:
; 1.源代碼分享,讓所有人都可以依照自己的方式加入其他功能,
; 例如加入輸出檔案為excel檔
; 或是其他功能,自己想像.
axlCmdRegister("cn" 'fnCompareNetlist ?cmdType "general")
procedure(fnCompareNetlist()
prog((tBrdPathNew tBrdOld tBrdPathOld pPort tCmd tNewFile tOldFile lNewList lOldList)
;取新舊brd檔案名稱
axlMsgPut("M-Please select a brd file:")
tBrdPathOld = axlDMFileBrowse("ALLEGRO_BRD" nil ?title "Compare Netlist" ?optFilters "Board file(*.brd)|*.brd|") ;瀏覽舊的brd
unless(tBrdPathOld
return(nil)
)
tBrdNew = axlCurrentDesign() ;目前所開啟的brd
tBrdPathNew = strcat(simplifyFilename(tBrdNew) ".brd")
;要導出比較的資料
tFile = strcat(getWorkingDir() "/netlist.view")
pPort = outfile(tFile)
fprintf(pPort "LOGICAL_PIN\n")
fprintf(pPort " REFDES\n")
fprintf(pPort " PIN_NUMBER\n")
fprintf(pPort " NET_NAME\n")
fprintf(pPort "END\n")
close(pPort)
;
;導出新舊brd的資料,使用axlRunBatchDBProgram()就不會開啟cmd視窗
foreach(tBrdPath list(tBrdPathNew tBrdPathOld)
tBrdName = cadr(axlDMFileParts(tBrdPath))
sprintf(tCmd "extracta %L %s %s_pin.txt" tBrdPath tFile tBrdName)
axlRunBatchDBProgram("extracta" tCmd ?silent t ?noUnload t ?reloadDB nil)
deleteFile(strcat(getWorkingDir() "/extract.log"))
)
deleteFile(tFile)
;讀取新brd所導出的資料
tNewFile = strcat(getWorkingDir() "/" cadr(axlDMFileParts(tBrdPathNew)) "_pin.txt")
lNewList = fnCNReadFile(tNewFile)
deleteFile(tNewFile)
;讀取舊brd所導出的資料
tOldFile = strcat(getWorkingDir() "/" cadr(axlDMFileParts(tBrdPathOld)) "_pin.txt")
lOldList = fnCNReadFile(tOldFile)
deleteFile(tOldFile)
;比較新舊brd差異並輸出到檔案
fnCNCompareData(tBrdPathNew tBrdPathOld lNewList lOldList)
)
)
procedure(fnCNReadFile(tFile)
let((pPort tLine lLines)
if(tFile && isFile(tFile) then
pPort = infile(tFile)
rexCompile(".$")
for(x 1 2 ;讀取前面兩行,這兩行不會處理
gets(tLine pPort)
)
while(gets(tLine pPort)
unless(blankstrp(tLine)
lLines = cons(rexReplace(tLine "" 0) lLines)
)
)
close(pPort)
sort(lLines nil) ;排序所有資料
else
axlUIConfirm("E- Misssing file.")
)
)
)
procedure(fnCNCompareData(tBrdPathNew tBrdPathOld lNewList lOldList)
let((oNewPin oOldPin lLines tRefDes tPin tNetName)
for(x 0 1
if(zerop(x) then
oNewPin = makeTable("NEWDATA" nil)
else
oOldPin = makeTable("OLDDATA" nil)
)
rexCompile("!!")
foreach(tLine nth(x list(lNewList lOldList))
tLine = rexReplace(tLine "! !" 0)
lLines = parseString(tLine "!")
tRefDes = cadr(lLines)
tPin = strcat(tRefDes "." caddr(lLines))
tNetName = nth(3 lLines)
if(zerop(x) then
oNewPin[tPin] = list(tNetName)
else
oOldPin[tPin] = list(tNetName)
)
)
)
fnCNOutputData(tBrdPathNew tBrdPathOld oNewPin oOldPin)
)
)
procedure(fnCNOutputData(tBrdPathNew tBrdPathOld oNewPin oOldPin)
let((lAdded lDeleted lChanged tFile pPort xItem tOne)
;判斷是否有新增資料
foreach(tPin oNewPin
unless(oOldPin[tPin]
lAdded = cons(tPin lAdded)
)
)
lAdded = sort(lAdded nil)
;判斷是否有減少資料
foreach(tPin oOldPin
unless(oNewPin[tPin]
lDeleted = cons(tPin lDeleted)
)
)
lDeleted = sort(lDeleted nil)
;判斷是否有改變資料
foreach(tPin oNewPin
when(oOldPin[tPin]
unless(oNewPin[tPin] == oOldPin[tPin]
lChanged = cons(tPin lChanged)
)
)
)
lChanged = sort(lChanged nil)
;輸出資料到檔案
drain()
tFile = strcat(getWorkingDir() "/" cadr(axlDMFileParts(tBrdPathNew)) "_OldNew.rpt")
pPort = outfile(tFile)
;檔案顯示的標題
fprintf(pPort "Compare NetList report\n")
fprintf(pPort "Date: %s\n" getCurrentTime())
fprintf(pPort "%s.brd [Old]\n" cadr(axlDMFileParts(tBrdPathOld)))
fprintf(pPort "%s.brd [New]\n\n" cadr(axlDMFileParts(tBrdPathNew)))
fprintf(pPort "%s\n" "===================================================================================================================")
fprintf(pPort "%-4s | %-20s | %-40s | %-40s |\n" "Item" "Pin Name" "Current(New) Design" "Old Design")
fprintf(pPort "%s\n" "===================================================================================================================")
xItem = 1
;輸出新增的資料到檔案
foreach(tOne lAdded
fprintf(pPort "%-4d | %-20s | %-40s | %-40s |\n" xItem tOne car(oNewPin[tOne]) "(***)")
fprintf(pPort "%s\n" "-------------------------------------------------------------------------------------------------------------------")
xItem++
)
;輸出減少的資料到檔案
foreach(tOne lDeleted
fprintf(pPort "%-4d | %-20s | %-40s | %-40s |\n" xItem tOne "(***)" car(oOldPin[tOne]))
fprintf(pPort "%s\n" "-------------------------------------------------------------------------------------------------------------------")
xItem++
)
;輸出變更的資料到檔案
foreach(tOne lChanged
fprintf(pPort "%-4d | %-20s | %-40s | %-40s |\n" xItem tOne car(oNewPin[tOne]) car(oOldPin[tOne]))
fprintf(pPort "%s\n" "-------------------------------------------------------------------------------------------------------------------")
xItem++
)
;輸出總數量的訊息
fprintf(pPort "Total: %5d\n\n" length(lAdded)+length(lDeleted)+length(lChanged))
fprintf(pPort "Summary:\n")
fprintf(pPort " %d Added pins\n" length(lAdded))
fprintf(pPort " %d Deleted pins\n" length(lDeleted))
fprintf(pPort " %d Changed pins\n\n" length(lChanged))
fprintf(pPort "%s\n" "Remark: (***) = Pin not exist in the design.")
close(pPort)
axlUIViewFileCreate(tFile "Report Window" t (120:60)) ;觀看輸出結果
)
)

复制代码

wyh12345 · 发表于 2017-3-22 17:12

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

361553894 · 发表于 2016-2-3 17:08

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

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

XYX365 · 发表于 2016-2-4 08:43

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

已修改,附件是正常的,

nanosoc · 发表于 2016-2-2 10:51

谢谢楼主分享！！！

penny190 · 发表于 2016-2-2 14:04

謝謝分享

dewyomo · 发表于 2016-2-2 14:06

bruceljc · 发表于 2016-2-2 21:57

谢谢楼主分享！！！

vivianwu0317 · 发表于 2016-2-3 09:43

谢谢楼主分享！！！

vivianwu0317 · 发表于 2016-2-3 13:04

谢谢楼主分享！！！

361553894 · 发表于 2016-2-3 16:24

感谢大神开放源码

XYX365 · 发表于 2016-2-3 16:31

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

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

361553894 · 发表于 2016-2-3 16:34

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

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

XYX365 · 发表于 2016-2-3 16:41

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

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

361553894 · 发表于 2016-2-3 16:47

第58行的
AADAKDALKDKL
不理解。。

XYX365 · 发表于 2016-2-3 16:49

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

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

jinshan010 · 发表于 2016-2-4 08:35

谢谢分享

		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

评分

点评

点评

点评

点评

点评

点评

推荐内容 /1