求检查多余在线上的孔的SKILL

wolf343105

画线时候不小心在网络上打了过孔,而实际上这个是多余的,好像ALLEGRO软件检查不出来,(或者是我不知道),有这种SKILL吗?

betamelody

szhot 发表于 2013-6-26 23:29
如何调用？

将文本存为一个文本文件,比如UnnecessaryVia.il,存在某路径比如C:/pcbskill/UnnecessaryVia.il
然后输入
Command > skill load "C:/pcbskill/UnnecessaryVia.il"
即是运行了一次

szhot

如何调用？

betamelody

1. let((vias l_tlayer c)
   
2.   axlClearSelSet()
   
3.   axlSetFindFilter(?enabled '("noall" "vias" "INVISIBLE") ?onButtons '("vias"))
   
4.   axlAddSelectAll()
   
5.   vias = axlGetSelSet()
   
6.   axlClearSelSet()
   
7.   res = nil
   
8.   foreach(via vias
   
9.     l_tlayer = nil
   
10.     c = axlDBGetConnect(via)
    
11.     when(length(c) > 1
    
12.       foreach(e c
    
13.         if(e->objType == "path" then l_tlayer = cons(e->layer l_tlayer))
    
14.       )
    
15.     )
    
16.     if(length(unique(l_tlayer)) == 1 && !via->testPoint then res = cons(via res))
    
17.   )
    
18.   axlHighlightObject(res)
    
19. )

复制代码

之前没有考虑到测试点的情况,已更新

wolf343105

xiexie.

betamelody

1. let((vias l_tlayer c)
   
2.   axlClearSelSet()
   
3.   axlSetFindFilter(?enabled '("noall" "vias" "INVISIBLE") ?onButtons '("vias"))
   
4.   axlAddSelectAll()
   
5.   vias = axlGetSelSet()
   
6.   axlClearSelSet()
   
7.   res = nil
   
8.   foreach(via vias
   
9.     l_tlayer = nil
   
10.     c = axlDBGetConnect(via)
    
11.     when(length(c) > 1
    
12.       foreach(e c
    
13.         if(e->objType == "path" then l_tlayer = cons(e->layer l_tlayer))
    
14.       )
    
15.     )
    
16.     if(length(unique(l_tlayer)) == 1 then res = cons(via res))
    
17.   )
    
18.   axlHighlightObject(res)
    
19. )

复制代码

帮你写了个,功能是高亮所有多出来的过孔,可以在运行完输入指令
Command > skill axlDeleteObject(res)
来删除这些孔

betamelody

就是via只连着两条cline并且这两条都在相同层面，把这样的via找出来，这样的逻辑？