设为首页收藏本站
在线咨询
eetop公众号 创芯大讲堂 创芯人才网
切换到宽版

EETOP 创芯网论坛 (原名：电子顶级开发网)

手机号码，快捷登录

手机号码，快捷登录

找回密码

  登录   注册  

快捷导航
创芯云服务  : 创芯大讲堂  | 创芯人才网 | 数字IC职业培训  EETOP诚邀线上IC培训讲师!
搜帖子
EETOP 创芯网论坛 (原名：电子顶级开发网)»论坛 › IC 设计及制造（半导体、微电子） › 脚本语言(script)学习交流 › 脚本讨论区 › 谁能帮我看看这个自动打孔的skill脚本错在哪里啊？？（ ...
1234下一页
返回列表 发新帖
查看: 17860|回复: 34

[原创] 谁能帮我看看这个自动打孔的skill脚本错在哪里啊？？（已解决，正确code贴在最后）

[复制链接]
zhaon1129
发表于 2012-2-22 17:33:11 | 显示全部楼层 |阅读模式

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？注册

x
本帖最后由 zhaon1129 于 2012-2-27 11:32 编辑

求大家帮帮忙~~~我没查出来
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")
autocontact, SKILL, 自动打孔

相关帖子
回复

举报

zhaon1129
 楼主| 发表于 2012-2-23 10:16:16 | 显示全部楼层
有哪位大侠帮忙调试一下？
EETOP创芯人才网简历投递入口
回复 支持 反对

举报

babmb
发表于 2012-2-23 18:40:51 | 显示全部楼层
根据你字面上的命名规则，我觉得
107~113行的判断语句确定的是contact_xu参数，
123~129行确定的是contact_yu参数。
回复 支持 反对

举报

zhaon1129
 楼主| 发表于 2012-2-24 11:30:14 | 显示全部楼层
if(      
caadr(list_bottom)>caadr(list_top)      
then      
contact_xl=caadr(list_bottom)      
else      
contact_xl=caadr(list_top)      
)      
      
这个地方我改了但是还是不行
EETOP创芯人才网职位发布入口
回复 支持 反对

举报

zhaon1129
 楼主| 发表于 2012-2-24 11:32:13 | 显示全部楼层
回复 3# babmb


    if(      
caadr(list_bottom)>caadr(list_top)      
then      
contact_xl=caadr(list_bottom)      
else      
contact_xl=caadr(list_top)      
)      
      
这个地方我改了但是还是不行
EETOP创芯人才网简历投递入口
回复 支持 反对

举报

babmb
发表于 2012-2-24 15:18:00 | 显示全部楼层
什么情况？脚本不运行还是没能打孔？
EETOP创芯人才网职位发布入口
回复 支持 反对

举报

babmb
发表于 2012-2-24 15:25:23 | 显示全部楼层
contact_xu,contact_yu参数应该取较小值。也就是说，选择contact_xu参数和contact_yu参数的if语句判断条件中的“>”要改成“<”。
还不行的话麻烦吧具体情况描述一下，手头没法调试，不知道具体出错情况。
EETOP创芯人才网简历投递入口
回复 支持 反对

举报

zhaon1129
 楼主| 发表于 2012-2-24 17:36:41 | 显示全部楼层
回复 7# babmb


    我已经修改了一下，请帮我看看，谢谢
但是还是不行。提示错误为

*Error* leCreateContact: shoul be an integer (type template = "dtltnnxxnnt") -4489.0
请你帮我看看我的数值取整哪里出问题了？？

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_top=list_m4      
top=4      
  else if(list_m3!=nil then     
  list_top=list_m3     
  top=3     
   else if(list_m2!=nil then   
   list_bottom=list_m2   
   top=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_xu=caadr(list_bottom)      
else      
contact_xu=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_yu=cadadr(list_bottom)      
else      
contact_yu=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")
EETOP创芯人才网职位发布入口
回复 支持 反对

举报

babmb
发表于 2012-2-24 18:09:33 | 显示全部楼层
rows，cols用truncate取整以后你怎么又变成float了，把float（）函数去掉试试
EETOP创芯人才网简历投递入口
回复 支持 反对

举报

zhaon1129
 楼主| 发表于 2012-2-27 09:15:31 | 显示全部楼层
回复 9# babmb


    float去掉了，但是孔还是不出来，可能是我的row和col值取的不对？
我再试试
回复 支持 反对

举报

下一页 »
1234下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐 上一条 /3 下一条

小黑屋| 关于我们| 联系我们| 在线咨询| 隐私声明| EETOP 创芯网
( 京ICP备:10050787号 京公网安备:11010502037710 )

GMT+8, 2024-4-25 08:44 , Processed in 0.028233 second(s), 6 queries , Gzip On, Redis On.

eetop公众号 创芯大讲堂 创芯人才网
快速回复 返回顶部 返回列表