请问有没有allegro自动布线的skill

chenxiumei

大家好，请问有没有allegro自动布线的skill，针对一些短线的连接。。。

ccwwbb2013

执行了 没什么反应

Cadence_skill

自带的不是可以？

Omar_Felix

1. axlCmdRegister("Cline_Link" 'Cline_Link ?cmdType "interactive")
   
2. 
   
3. procedure( Cline_Link()
   
4. let((selbox mark mypopup sels file port segs cline0 cline1 linex startxy0 startxy1 tt tt0 line0xy line1xy)
   
5.         mark = axlDBTransactionStart()
   
6.         mypopup = axlUIPopupDefine(nil
   
7.                 list(
   
8.                         list("Done" "axlDBTransactionCommit(mark) axlUIPopupSet(nil) axlFinishEnterFun()")
   
9.             list("Oops" "axlDBTransactionOops(mark)")
   
10.             list("Cancel" "axlDBTransactionRollback(mark) axlUIPopupSet(nil) axlCancelEnterFun()")
    
11.                 )
    
12.         )
    
13.         axlSetFindFilter(?enabled '("NOALL" "ratsnests") ?onButtons '("all"))
    
14.         axlClearSelSet()
    
15.         axlUIPopupSet(mypopup)
    
16.         while(selbox = axlEnterBox(?prompts list(">>\307\353\312\344\310\353\265\332\322\273\270\366\265\343" ">>\307\353\312\344\310\353\265\332\266\376\270\366\265\343"))
    
17.                 axlUIPopupSet(mypopup)
    
18.                 axlDBTransactionMark(mark)
    
19.           axlSingleSelectBox(selbox)
    
20.           sels = axlGetSelSet()
    
21.                 axlClearSelSet()
    
22.                 foreach(n0 sels
    
23.                         file = car(axlShowObjectToFile(n0))
    
24.                         port = infile(file)
    
25.                         while(gets(line port)
    
26.                                 when(rexMatchp("end points:+" lowerCase(line))
    
27.                                         gets(line port)
    
28.                                         tt = member("xy" parseString(line " ()\t\n"))
    
29.                                         line0xy = list(atof(cadr(tt)) atof(nth(2 tt)))
    
30.                                         if(member("xy" cdr(tt)) then
    
31.                                                 line1xy = list(atof(nth(4 tt)) atof(nth(5 tt)))
    
32.                                         else
    
33.                                                 gets(line port)
    
34.                                                 tt = member("xy" parseString(line " ()\t\n"))
    
35.                                                 line1xy = list(atof(cadr(tt)) atof(nth(2 tt)))
    
36.                                         )
    
37.                                 )
    
38.                         )
    
39.                         close(port)
    
40.                         deleteFile(file)
    
41.                         segs = '()
    
42.                         foreach(n1 n0->net->branches~>children
    
43.                                 foreach(n2 setof(x0 n1 ((x0->objType == "path" && x0->segments != nil) || x0->objType == "via" || x0->objType == "pin"))
    
44.                                         when(n2->segments
    
45.                                                 segs = append(n2->segments segs)
    
46.                                         )
    
47.                                         when(n2->objType == "via" || n2->objType == "pin"
    
48.                                                 segs = cons(n2 segs)
    
49.                                         )
    
50.                                 )
    
51.                         )
    
52.                         cline0 = car(setof(x0 segs (member(line0xy x0->startEnd) != nil)))
    
53.                         via0 = car(setof(x0 segs (line0xy == x0->xy && x0->objType == "via")))
    
54.                         pin0 = car(setof(x0 segs (line0xy == x0->xy && x0->objType == "pin")))
    
55.                         cline1 = car(setof(x0 segs (member(line1xy x0->startEnd) != nil)))
    
56.                         via1 = car(setof(x0 segs (line1xy == x0->xy && x0->objType == "via")))
    
57.                         pin1 = car(setof(x0 segs (line1xy == x0->xy && x0->objType == "pin")))
    
58.                         when(cline0 && cline1
    
59.                                 if(axlLineSlope(cline0->startEnd) != axlLineSlope(cline1->startEnd) then
    
60.                                   linex = axl_ol_ol2(cline0->startEnd cline1->startEnd)
    
61.                                         startxy0 = car(remd(line0xy cline0->startEnd))
    
62.                                         startxy1 = car(remd(line1xy cline1->startEnd))
    
63.                                         while(car(linex) != cadr(linex)
    
64.                                                 tt = list(startxy0 axlMUniVector(startxy0 car(linex) axlDistance(startxy0 car(linex))+nth(2 linex)))
    
65.                                                 tt0 = list(startxy1 axlMUniVector(startxy1 cadr(linex) axlDistance(startxy1 cadr(linex))+nth(2 linex)))
    
66.                                                 linex = axl_ol_ol2(tt tt0)
    
67.                                         )
    
68.                                        
    
69.                                         tt = ncons(nil)
    
70.                                         tt->width = cline0->width
    
71.                                         tt->layer = cline0->layer
    
72.                                         tt->netname = cline0->net->name
    
73.                                         tt0 = ncons(nil)
    
74.                                         tt0->width = cline1->width
    
75.                                         tt0->layer = cline1->layer
    
76.                                         tt0->netname = cline1->net->name
    
77.                                         axlDeleteObject(cline0)
    
78.                                         axlDeleteObject(cline1)
    
79.                                         axlDBCreateLine(list(car(linex) startxy0) tt->width tt->layer tt->netname)
    
80.                                         axlDBCreateLine(list(car(linex) startxy1) tt0->width tt0->layer tt0->netname)
    
81.                                         when(via0
    
82.                                                 axlChangeNet(via0 tt->netname)
    
83.                                         )
    
84.                                         when(via1
    
85.                                                 axlChangeNet(via1 tt->netname)
    
86.                                         )
    
87.                                         unless(car(linex) == via0->xy || car(linex) == via1->xy
    
88.                                                 when((tt->layer != tt0->layer)
    
89.                                                         axlDBCreateVia(car(axlCnsGetViaList("")) car(linex) tt->netname)
    
90.                                                 )
    
91.                                         )
    
92.                                 else
    
93.                                         linex = axl_ol_ol2(cline0->startEnd cline1->startEnd)
    
94.                                         when(axlLineSlope(cline0->startEnd) == axlLineSlope(list(car(linex) cadr(linex)))
    
95.                                                 axlDBCreateLine(list(car(linex) cadr(linex)) cline0->width cline0->layer cline0->net->name)
    
96.                                                 unless(car(linex) == via0->xy || car(linex) == via1->xy
    
97.                                                         when(cline0->layer != cline1->layer
    
98.                                                                 axlDBCreateVia(car(axlCnsGetViaList("")) cadr(linex) cline0->net->name)
    
99.                                                         )
    
100.                                                 )
     
101.                                         )
     
102.                                 )
     
103.                         )
     
104. ;                        when(cline0 && pin1 || cline1 && pin0
     
105. ;                                println(axlLineSlope(list(line0xy line1xy)))
     
106. ;                                println(axlLineSlope(cline1->startEnd))
     
107. ;                                println(pin0)
     
108. ;                        )
     
109.                 )
     
110.         )
     
111.         axlDBRefreshId(nil)
     
112.         axlDBTransactionCommit(mark)
     
113.         axlUIPopupSet(nil)
     
114. )
     
115. )

复制代码

chengyingwudi

请大佬说明使用方法，没有反应

Omar_Felix

chengyingwudi 发表于 2023-12-18 09:45
请大佬说明使用方法，没有反应

执行命令后点飞线

ms19961009

113

雞翅加辣

我17.4
load "Cline_Link.il"後
跳到command下 ˋ執行Cline_Link 會出現 >> 亂碼
就算點了鼠線也沒作用，請問跟語言或版本有關係嗎?

zwzlove

66666666666666

zwzlove

ccwwbb2013 发表于 2023-12-17 21:44
执行了 没什么反应

果然没什么反应