谁能帮我看看这个自动打孔的skill脚本错在哪里啊~（已解决正确code贴在脚本程序区）

zhaon1129

求大家帮帮忙~~~我没查出来
procedure(p()      
enterBox(?prompts      
list("enter a Bbox")      
?doneProc "pointdonehw"      
)    ;enterBox end   
)    ;p() end   
      
      
procedure(pointdonehw(w done pts)      
if(done then      
xl=xCoord(lowerLeft(pts))      
yl=yCoord(lowerLeft(pts))      
xu=xCoord(upperRight(pts))      
yu=yCoord(upperRight(pts))      
)    ;if end   
)    ;pointdonehw  end
      
      
procedure(hw()      
geDeselectAllFig()      
xl=0      
yl=0      
xu=0      
yu=0        
list_m1=list（）      
list_m2=list（）      
list_m3=list（）      
list_m4=list（）      
list_top=list()      
list_bottom=list()      
contact_xl=0      
contact_yl=0      
contact_xu=0      
bottom=0      
top=0      
      
p()      
load("1");这里load的内容为{leHiYank()  addPoint(xl:yl)  addPoint(xu:yu)  leHiPaste()  addPoint(xl-1000:yl)}      
geDeselectAllFig()      
      
geSingleSelectBox(hiGetCurrentWindow() nil list(xl-1000:y1 xu-1000:yu))      
      
w=geGetSelectedSet()      
      
for(i 0 (length(w)-1)      
if((nth(i  w)~>layerName=="M1"&&nth(i  w)~>purpose=="logic")!=nil      
then      
list_m1=nth(i  w)~>bBox      
)      
      
if((nth(i  w)~>layerName=="M2"&&nth(i  w)~>purpose=="logic")!=nil      
then      
list_m2=nth(i  w)~>bBox      
)      
      
if((nth(i  w)~>layerName=="M3"&&nth(i  w)~>purpose=="logic")!=nil      
then      
list_m3=nth(i  w)~>bBox      
)      
      
if((nth(i  w)~>layerName=="M4"&&nth(i  w)~>purpose=="logic")!=nil      
then      
list_m4=nth(i  w)~>bBox      
)      
      
)      
      
if(list_m1!=nil then   
list_bottom=list_m1      
bottom=1      
  else if(list_m2!=nil then     
  list_bottom=list_m2     
  bottom=2     
   else if(list_m3!=nil then   
   list_bottom=list_m3   
   bottom=3   
      
   else printf("no bottom layer")   
    )   
   )   
  )     
      
      
if(list_m4!=nil then      
list_bottom=list_m1      
top=4      
  else if(list_m3!=nil then     
  list_bottom=list_m3     
  bottom=3     
   else if(list_m2!=nil then   
   list_bottom=list_m2   
   bottom=2   
      
   else printf("no top layer")   
    )   
   )   
  )     
      
if(      
caar(list_bottom)>caar(list_top)      
then      
contact_xl=caar(list_bottom)      
else      
contact_xl=caar(list_top)      
)      
      
if(      
caadr(list_bottom)>caadr(list_top)      
then      
contact_yl=caadr(list_bottom)      
else      
contact_yl=caadr(list_top)      
)      
      
if(      
cadar(list_bottom)>cadar(list_top)      
then      
contact_yl=cadar(list_bottom)      
else      
contact_yl=cadar(list_top)      
)      
      
if(      
cadadr(list_bottom)>cadadr(list_top)      
then      
contact_yl=cadadr(list_bottom)      
else      
contact_yl=cadadr(list_top)      
)      
      
      
xabs=abs(contact_xu-contact_xl)      
yabs=abs(contact_yu-contact_yl)      
      
x=xabs/2+xl      
y=yabs/2+yl      
      
rows=float(truncate((yabs-0.14+1e-6)/0.22)+1)      
cols=float(truncate((xabs-0.14+1e-6)/0.22)+1)      
      
for(i bottom+1 top      
if(i==2 then      
leCreatContact(geGetEditRep() "V2_M1" x+1000:y "R0" 0.1 0.1 rows cols 0.22 0.22 "center" "center")      
)      
if(i==3 then      
leCreatContact(geGetEditRep() "V3_M2" x+1000:y "R0" 0.1 0.1 rows cols 0.22 0.22 "center" "center")      
)      
if(i==4 then      
leCreatContact(geGetEditRep() "V4_M3" x+1000:y "R0" 0.1 0.1 rows cols 0.22 0.22 "center" "center")      
      
)      
      
leHiDelete()      
)      
      
hiSetBindKey(Layout" "Alt<key>p" "hw")

cxl666

回复 1# zhaon1129


    发你的一个能用的,根据自己的工艺增添或修改前几行的LibList,LibSelect中对应的process即可。

zhaon1129

回复 2# cxl666


    感谢这位同仁，这个我在网上也下载过。试验之后发现，这个脚本是实现自动划线然后在换线时自动将孔加上。

我是希望在我将线画好之后点击这两根线或者框选这两根线的交叉地方就会自动将孔打上，不需要画线这一步了。

oxo

回复 3# zhaon1129
你的目的是点一下两层金属的地方，自动加上via，是吧。
可以用 “Create Contact"命令，一般快捷键是o,
选择”Auto contact",就可以了。
前提是这两条线都是path线才行。

   

                               
登录/注册后可看大图

zhaon1129

回复 4# oxo


    你说的只能打相邻两层金属，我的这个可以打多层，隔层

hao_0071

我来学习，帮顶

xinwaixin

回复 5# zhaon1129

可以在间隔多层金属之间自动打孔

璞光

谢谢了。。。。。。。。

oooeee

学习学习

1249068807

有没有修改好了的脚本啊