EDA365电子论坛网»电子社区 › EDA工具&PCB设计 › Allegro Skill开发 › [原创]根据ECS里面的CLASS/BUS来自动创建PINPAIR以及对 ...

[原创]根据ECS里面的CLASS/BUS来自动创建PINPAIR以及对应的MATCHGROUP

查看数: 23913 | 评论数: 122 | 收藏 28

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

kevin890505

发布时间: 2014-12-31 10:33

正文摘要:

前一阵子有点时间，就整了个，因为觉得大多时候，直接从NET来创建MATCHGROUP的形式并不合适，大多都需要pinpair，但是即使是用sigXplorer，还是觉得不够方便，尤其是很多组等长要约束的时候，所以就弄了个自动创建， ...

digitzing 发表于 2022-10-19 17:33

本帖最后由 digitzing 于 2022-10-19 17:44 编辑

kevin890505 发表于 2021-6-19 22:00
要有BUS或者CLASS才可以忘了做防呆如果没有就会出现这情况

我帮你修改了，改成英文，并支持allegro 17以上，没有BUS也不会一条细线无法退出

/*
├─
│ ├─ 程序名称：Quick_pinpair.il
│ ├─ 程序功能：快速创建选择BUS/CLASS对应的pin pair
│ ├─ 创建时间：2014年10月31日
│ ├─ 作者：kevin wong
│ ├─ Q Q：263350809
├─
1，2014.10.31开始构建主函数思路；
2，2014.11.07完成初步功能，测试通过；
3，2014.12.31修改添加部分按钮，提示；
4，2019.07.31修改增加分列显示功能，以避免超出屏幕范围
5，2019.07.31修改多30整除情况下的界面布局，以避免空白列
6，2019.09.01修改再3个以上器件时候，只显示位号不容易区分，以REF+VALUE的形式展示，
并增加新建的MG添加约束，点对点为5mil，菊花链为20mil
7,2022.10.19 修改width为0时，from显示问题 by digitzing
*/
axlCmdRegister( "quickpinpair" 'Quick_PinPair)
; load("Quick_pinpair.il")
defun(Quick_PinPair ()
let( (one allclass)
allclass = axlDBGetDesign()->netclass
alleleclass_name = list()
foreach(one allclass
if(one->electrical
then
alleleclass_name = cons(list(one->name one) alleleclass_name)
)
)
if(allbus = axlDBGetDesign()->bus
foreach(one allbus
alleleclass_name = cons(list(one->name one) alleleclass_name)
)
)
classnum = length(alleleclass_name) ;class 数量
if(classnum <= 30
then
hig = classnum*2+6
else
hig = 30*2 + 6 ;>30个时高度固定，增加宽度
)
;----------修改部分
if(mod(classnum 30) == 0
then
width = ((classnum/30) + 0)*30 ;项目过多时加宽列数,整除列宽=列数*30
else
width = ((classnum/30) + 1)*30 ;项目过多时加宽列数，有多余的，不整除列宽=（列数+1）*30
)
if(width == 0
then
width = 31
axlUIWPrint(displayform "No Class was found!")
else
nil
)
;----------修改部分
Quick_pinpairform()
))
defun(Quick_pinpairform ()
let( (curclass)
Formfile = axlTempFile()
;Formfile = "./pinpairform.form"
formport = outfile(Formfile "w")
fprintf(formport "FILE_TYPE=FORM_DEFN VERSION=2\n")
if(axlVersion('version)>17
then
fprintf(formport "FORM \n")
else
fprintf(formport "FORM toolwindow\n")
)
fprintf(formport "FIXED\n")
fprintf(formport "PORT %d 1\n" width)
fprintf(formport "HEADER \"Create PinPair - kevin\"\n")
fprintf(formport "TILE\n")
fprintf(formport "\n")
fprintf(formport "TEXT \"1.Please creat BUS/CLASS first\"\n")
fprintf(formport "TLOC 2 1\n")
fprintf(formport "ENDTEXT\n")
fprintf(formport "\n")
fprintf(formport "TEXT \"2.Please select blew BUS/CLASS\"\n")
fprintf(formport "TLOC 2 2\n")
fprintf(formport "ENDTEXT\n")
x =2
y = 4
foreach(curclass alleleclass_name
fieldname = car(curclass)
fprintf( formport "FIELD %s\n" fieldname)
fprintf( formport "FLOC %d %d\n" x y)
fprintf( formport "CHECKLIST \" %s\"\n" fieldname)
fprintf( formport "ENDFIELD\n\n")
y = y+2
if( y >= 64 ;大于30行就切换下一列
then
y = 4
x = x+30
)
)
fprintf(formport "FIELD sel\n")
fprintf(formport "FLOC 2 %d\n" hig)
fprintf(formport "MENUBUTTON \"Select All\" 10 3\n")
fprintf(formport "ENDFIELD \n\n")
fprintf(formport "FIELD desel\n")
fprintf(formport "FLOC 14 %d\n" hig)
fprintf(formport "MENUBUTTON \"Deselect\" 10 3\n")
fprintf(formport "ENDFIELD \n\n")
fprintf(formport "FIELD create\n")
fprintf(formport "FLOC 2 %d\n" hig+2)
fprintf(formport "MENUBUTTON \"Creat\" 10 3\n")
fprintf(formport "ENDFIELD \n\n")
fprintf(formport "FIELD cacel\n")
fprintf(formport "FLOC 14 %d\n" hig+2)
fprintf(formport "MENUBUTTON \"Exit\" 10 3\n")
fprintf(formport "ENDFIELD \n\n")
fprintf(formport "ENDTILE\n")
fprintf(formport "ENDFORM\n")
close(formport)
displayform = axlFormCreate((gensym) Formfile '(ne inner) 'createpinpairact t)
axlFormDisplay(displayform)
foreach(curclass alleleclass_name
axlFormSetField(displayform car(curclass) t)
)
if(width == 31
then
axlUIWPrint(displayform "No Class or Bus was found!")
else
axlUIWPrint(displayform "Kevin Wong")
)
deleteFile(Formfile)
)
)
defun(createpinpairact (displayform)
let( (membersel curclass onecl one alldp2net)
allclass = axlDBGetDesign()->netclass
alleleclass_name = list()
foreach(one allclass
if(one->electrical
then
alleleclass_name = cons(list(one->name one) alleleclass_name)
)
)
if(allbus = axlDBGetDesign()->bus
foreach(one allbus
alleleclass_name = cons(list(one->name one) alleleclass_name)
)
)
membersel = displayform->curField
case(membersel
("sel"
foreach(curclass alleleclass_name
axlFormSetField(displayform car(curclass) t)
axlUIWPrint(displayform "Select All")
)
)
("desel"
foreach(curclass alleleclass_name
axlFormSetField(displayform car(curclass) nil)
axlUIWPrint(displayform "Deselect All")
)
)
("create"
axlUIWPrint(displayform "Create the pinpair of selected BUS/Class")
foreach(onecl alleleclass_name
alldp2net = cadr(onecl)->groupMembers
foreach(one alldp2net
if(one->type == "DIFF_PAIR"
alldp2net = append(remove(one alldp2net) one->groupMembers)
)
)
if(axlFormGetField(displayform car(onecl))
then
curMGname = strcat("MG_" car(onecl))
allpinslist = list()
foreach(one alldp2net
allpinslist = append1(allpinslist axlPinsOfNet(one 'pin))
)
get_min_pinlist(allpinslist)
if(length(result) == 1
then
axlUIConfirm(strcat("there is some thing wrong with the BUS/Class " car(onecl)))
else
if(length(result) == 2
then
get_main_pinlist()
Creat_Match_Group()
else
if(length(result) >= 3
then
axlClearSelSet()
axlSetFindFilter(?enabled list("noall" "COMPONENTS") ?onButtons list("all"))
axlSingleSelectName("REFDES" result)
resultdbid = axlGetSelSet()
resultref = nil
foreach(ref resultdbid
resultref = append1(resultref strcat(strcat(ref->name "_") ref->deviceType))
)
choice = axlUIMultipleChoice("Please select a main CPU"
resultref strcat("Please select branch" car(onecl)))
maindev = nth(choice result)
get_main_pinlist()
Creat_Match_Group()
)
)
)
)
)
axlUIWPrint(displayform "Create the pinpair successfully!")
)
("cacel"
axlUIWPrint(displayform "Exit")
axlFormClose(displayform)
deleteFile(Formfile)
)
)
) )
defun( get_min_pinlist (allpinslist)
let( (one mlist pin2netlist i j curlist okflag)
mlist = list()
foreach(one nth(0 allpinslist)
mlist= cons(one->component->name mlist) ;list(U1 U2)
)
result = mlist
foreach(pin2netlist allpinslist
curlist = pin2netlist
i = 0
while( (i < length(mlist))
j = nth(i mlist)
okflag = 0
foreach(one curlist
if(j == one->component->name
okflag++
)
)
if(okflag == 0
result = remove(j result)
)
i++
)
)
))
defun( get_main_pinlist ()
let( (curcalcu pinid containflag)
pinneedres = list()
foreach(curcalcu allpinslist
curcalcu = car(allpinslist)
allpinslist = remove(curcalcu allpinslist)
foreach(pinid curcalcu
containflag = 0
foreach(one result
if(pinid->component->name == one
containflag++
)
)
if(containflag == 0
curcalcu = remove(pinid curcalcu) )
)
if(length(result)>=3
then
foreach(one curcalcu
if(one->component->name == maindev
curcalcu = cons(one remove(one curcalcu))
)
)
pinneedres = append1(pinneedres curcalcu)
else
pinneedres = append1(pinneedres curcalcu)
)
)
))
defun( Creat_Match_Group ()
let( (lastpinlist onepinlist lastpins onespin onelist curpinpair ref one onepin)
lastpinlist = list()
foreach(onepinlist pinneedres
lastpins = list()
foreach(one onepinlist
onespin = strcat(strcat(one->component->name ".") one->number)
lastpins = append1(lastpins onespin)
)
lastpinlist = cons(lastpins lastpinlist)
)
if(length(result) == 2
then
axlMatchGroupDelete(curMGname)
axlMatchGroupCreate(curMGname)
foreach(onelist lastpinlist
curpinpair = axlPinPair(car(onelist) cadr(onelist))
axlMatchGroupAdd(curMGname curpinpair)
axlMatchGroupProp(curMGname curpinpair strcat(curMGname ":G:::0 mil:5mil"))
)
else
if(length(result)>=3
then
groupneedsuf = remove(maindev result)
foreach(ref groupneedsuf
axlMatchGroupDelete(strcat(strcat(curMGname "_") ref))
axlMatchGroupCreate(strcat(strcat(curMGname "_") ref))
)
foreach(one lastpinlist
pinpre = car(one)
pinsuflist = cdr(one)
foreach(onepin pinsuflist
curpinpair = axlPinPair(pinpre onepin)
; car(parseString(onepin "."))
lastname = strcat(strcat(curMGname "_") car(parseString(onepin ".")))
axlMatchGroupAdd(lastname curpinpair)
axlMatchGroupProp(lastname curpinpair strcat(lastname ":G:::0 mil:20mil"))
)
)
)
)
))

复制代码

点评

ximencuocuo0517

你好，加载后报错怎么回事啊 *Error* eval:unbound variable - displayform 详情回复发表于 2023-6-1 08:33

kevin890505 发表于 2015-10-14 16:25

penny190 发表于 2015-10-14 15:09
非常棒的Skill喔
不好意思想請問一下,要如何將對話框的中文字改變成英文的
謝謝

分别位于54，58，63，80，85，90，95行的类似 fprintf(formport "HEADER \"\264\264\275\250PinPair - kevin\"\n")的

\"XXX\"双引号中间的\"\264\264\275\250PinPair - kevin\" \+三个数字的就是一个汉字，你替换了即可
比如"\264\264\275\250PinPair - kevin\" 改成 "ABCDEFG PinPair - HHH\"
很简单，试试就知道了