IC61版本SKILL图形界面加入菜单栏并关联tf应该如何实现？

yuniang

RT
刚开始学习SKILL，借鉴一个脚本想实现去掉交叉金属线多余部分并自动打孔（该脚本为IC51版本，想通过修改相关函数来达到目的）
目前卡在了两个地方
1：在图形界面实现菜单，查阅Cadence Help发现可以在hicreateAPPForm/hiCreateStringField后接入hiContextMenu实现，但是没有接触过脚本语言，对语法嵌套比较陌生，不知道怎么写
2：脚本中的 Via 关联到tf文件；通过填入过孔名称的方式来打孔，CIW报错提示：*Error* dbCreateVia: argument #2 should be a database object (type template = "ddltg") at line 222 of file "~/test.il" - "M1_M2"

请问各位前辈，应该如何解决

备注：相对于51，61的函数有些变化，取消了leCreateContact，我查询Cadence help后用dbCreateVia代替
Cadence版本：6.1.6
参考贴1：http://bbs.eetop.cn/thread-765518-2-1.html
参考资料：Cadence help

yuniang

改动后脚本如下：
hiSetBindKey("Layout" "Ctrl<Key>C" "xiubian()")

procedure(xiubian2()
        object_List=geGetSelSet()
        objectA=car(object_List)
        pointsA=objectA~>points
        widthA=objectA~>width
        objectB=cadr(object_List)
                pointsB=objectB~>points
        widthB=objectB~>width
        
        if(car(car(pointsA))==car(cadr(pointsA)) then
                pointsShu=pointsA
                widthShu=widthA
                object_Shu=objectA
                pointsHeng=pointsB
                widthHeng=widthB
                object_Heng=objectB        
                shoubian()
        else
                pointsShu=pointsB
                widthShu=widthB
                object_Shu=objectB
                pointsHeng=pointsA
                widthHeng=widthA
                object_Heng=objectA
                shoubian()
        )
)

procedure(shoubian()
        y1Shu=cadr(car(pointsShu))
        y2Shu=cadr(cadr(pointsShu))
        yMaxShu=max(y1Shu y2Shu)
        yMinShu=min(y1Shu y2Shu)
        x1Heng=car(car(pointsHeng))
        x2Heng=car(cadr(pointsHeng))
        xMaxHeng=max(x1Heng x2Heng)
        xMinHeng=min(x1Heng x2Heng)
        xShu=car(car(pointsShu))
        yHeng=cadr(car(pointsHeng))
        
        when((xMaxHeng-xShu)<(xShu-xMinHeng)&&x1Heng<x2Heng
                xHeng_new=xShu+widthShu/2
                object_Heng~>points=list(car(pointsHeng) rplaca(cadr(pointsHeng) xHeng_new))
        )
        when((xMaxHeng-xShu)<(xShu-xMinHeng)&&x1Heng>x2Heng
                xHeng_new=xShu+widthShu/2
                object_Heng~>points=list(rplaca(car(pointsHeng) xHeng_new) cadr(pointsHeng))
        )        

        when((xMaxHeng-xShu)>(xShu-xMinHeng)&&x1Heng<x2Heng
                xHeng_new=xShu-widthShu/2
                object_Heng~>points=list(rplaca(car(pointsHeng) xHeng_new) cadr(pointsHeng))
        )
        when((xMaxHeng-xShu)>(xShu-xMinHeng)&&x1Heng>x2Heng
                xHeng_new=xShu-widthShu/2
                object_Heng~>points=list(car(pointsHeng) rplaca(cadr(pointsHeng) xHeng_new))
        )        


        when((yMaxShu-yHeng)>(yHeng-yMinShu)&&y1Shu<y2Shu
                yShu_new=yHeng-widthHeng/2
                remove_cell=cadr(car(pointsShu))
                object_Shu~>points=list(remove(remove_cell append1(car(pointsShu) yShu_new)) cadr(pointsShu))
        )
        when((yMaxShu-yHeng)>(yHeng-yMinShu)&&y1Shu>y2Shu
                yShu_new=yHeng-widthHeng/2
                remove_cell=cadr(cadr(pointsShu))
                object_Shu~>points=list(car(pointsShu) remove(remove_cell append1(cadr(pointsShu) yShu_new)))
        )
        
        when((yMaxShu-yHeng)<(yHeng-yMinShu)&&y1Shu<y2Shu
                yShu_new=yHeng+widthHeng/2
                remove_cell=cadr(cadr(pointsShu))
                object_Shu~>points=list(car(pointsShu) remove(remove_cell append1(cadr(pointsShu) yShu_new)))
        )
        when((yMaxShu-yHeng)<(yHeng-yMinShu)&&y1Shu>y2Shu
                yShu_new=yHeng+widthHeng/2
                remove_cell=cadr(car(pointsShu))
                object_Shu~>points=list(remove(remove_cell append1(car(pointsShu) yShu_new)) cadr(pointsShu))
        )                        


hiDisplayForm(CreatContactGUIForm)

)     

M1M2ContactTypeGUI=hiCreateStringField(

?name   'M1M2ContactTypeGUI
?prompt "M1_M2 Contact Type"
?defValue "M1_M2" ;contact cype must be same as PDK name
?callback  "hiGetCurrentForm()"
?editable  t

)

M2MTTContactTypeGUI=hiCreateStringField(

?name   'M2MTTContactTypeGUI
?prompt "M2_MTT Contact Type"
?defValue "M2_MTT" ;contact type must be same as PDK name
?callback  "hiGetCurrentForm()"
?editable  t

)

WidthViaGUI=hiCreateFloatField(

?name 'WidthViaGUI
?prompt "Width of Via"
?defValue 0.1 ;default
?callback "hiGetCurrentForm()"
?editable t

)

LengthViaGUI=hiCreateFloatField(

?name 'LengthViaGUI
?prompt "Length of Via"
?defValue 0.1 ;default
?callback "hiGetCurrentForm()"
?editable t

)

XViaSpaceGUI=hiCreateFloatField(

?name  'XViaSpaceGUI
?prompt "X Via Space"
?defValue 0.13 ;default
?callback "hiGetCurrentForm()"
?editable t

)

YViaSpaceGUI=hiCreateFloatField(

?name  'YViaSpaceGUI
?prompt "Y Via Space"
?defValue 0.13 ;default
?callback "hiGetCurrentForm()"
?editable t

)

ViaEnclosureGUI=hiCreateFloatField(  

?name 'ViaEnclosureGUI
?prompt "Via Enclosure"
?defValue 0.03 ;default
?callback "hiGetCurrentForm()"
?editable t

)

CreatContactGUIForm=hiCreateAppForm(

?name 'CreatContactGUIForm
?formTitle "Creat Contact"
?callback "CreatContact(
                       M1M2ContactTypeGUI->value
                       M2MTTContactTypeGUI->value
                       WidthViaGUI->value
                       LengthViaGUI->value
                       XViaSpaceGUI->value
                       YViaSpaceGUI->value
                       ViaEnclosureGUI->value  
                       )"

?fields list(
            M1M2ContactTypeGUI
            M2MTTContactTypeGUI
            WidthViaGUI
            LengthViaGUI
            XViaSpaceGUI  
            YViaSpaceGUI
            ViaEnclosureGUI
            )
?help ""
)

               

procedure(CreatContact(
                                M1M2ContactType
                                M2MTTContactType
                                WidthVia
                                LengthVia
                                XViaSpace
                                YViaSpace
                                ViaEnclosureGUI
                                )
x=xShu
y=yHeng
XDelta=LengthVia+XViaSpace
YDelta=WidthVia+YViaSpace
XData=(widthShu-ViaEnclosureGUI*2+XViaSpace)/XDelta
YData=(widthHeng-ViaEnclosureGUI*2+YViaSpace)/YDelta
rows=max(floor(YData) 1)
columns=max(floor(XData) 1)

if((objectA~>purpose=="drawing"&&objectB~>purpose=="drawing")!=t
then
JWMessage("Error!!!" 'Close "Incorrect Layer,Create Contact Failed!")
)
/*
if((widthA>=0.16&&widthB>=0.16)!=t
then
JWMessage("Warning!!!" 'Close "The metal width is too small")
)
*/

if(objectA~>layerName=="A1"&&objectB~>layerName=="A2"
then
dbCreateVia(geGetEditRep() M1M2ContactType list(x y) "R0" list(list(rows XData) list(columns YData)) )
)
if(objectA~>layerName=="A2"&&objectB~>layerName=="A1"
then
dbCreateVia(geGetEditRep() M1M2ContactType list(x y) "R0" list(list(rows XData) list(columns YData)) )
)

if(objectA~>layerName=="MTT"&&objectB~>layerName=="A2"
then
dbCreateVia(geGetEditRep() M2MTTContactTypeGUI list(x y) "R0" list(list(rows XData) list(columns YData)) )
)

if(objectA~>layerName=="A2"&&objectB~>layerName=="MTT"
then
dbCreateVia(geGetEditRep() M2MTTContactTypeGUI list(x y) "R0" list(list(rows XData) list(columns YData)) )
)
)

yuniang

修改后脚本如下：


hiSetBindKey("Layout" "Ctrl<Key>C" "xiubian()")

procedure(xiubian2()
        object_List=geGetSelSet()
        objectA=car(object_List)
        pointsA=objectA~>points
        widthA=objectA~>width
        objectB=cadr(object_List)
                pointsB=objectB~>points
        widthB=objectB~>width

        if(car(car(pointsA))==car(cadr(pointsA)) then
                pointsShu=pointsA
                widthShu=widthA
                object_Shu=objectA
                pointsHeng=pointsB
                widthHeng=widthB
                object_Heng=objectB        
                shoubian()
        else
                pointsShu=pointsB
                widthShu=widthB
                object_Shu=objectB
                pointsHeng=pointsA
                widthHeng=widthA
                object_Heng=objectA
                shoubian()
        )
)

procedure(shoubian()
        y1Shu=cadr(car(pointsShu))
        y2Shu=cadr(cadr(pointsShu))
        yMaxShu=max(y1Shu y2Shu)
        yMinShu=min(y1Shu y2Shu)
        x1Heng=car(car(pointsHeng))
        x2Heng=car(cadr(pointsHeng))
        xMaxHeng=max(x1Heng x2Heng)
        xMinHeng=min(x1Heng x2Heng)
        xShu=car(car(pointsShu))
        yHeng=cadr(car(pointsHeng))

        when((xMaxHeng-xShu)<(xShu-xMinHeng)&&x1Heng<x2Heng
                xHeng_new=xShu+widthShu/2
                object_Heng~>points=list(car(pointsHeng) rplaca(cadr(pointsHeng) xHeng_new))
        )
        when((xMaxHeng-xShu)<(xShu-xMinHeng)&&x1Heng>x2Heng
                xHeng_new=xShu+widthShu/2
                object_Heng~>points=list(rplaca(car(pointsHeng) xHeng_new) cadr(pointsHeng))
        )        

        when((xMaxHeng-xShu)>(xShu-xMinHeng)&&x1Heng<x2Heng
                xHeng_new=xShu-widthShu/2
                object_Heng~>points=list(rplaca(car(pointsHeng) xHeng_new) cadr(pointsHeng))
        )
        when((xMaxHeng-xShu)>(xShu-xMinHeng)&&x1Heng>x2Heng
                xHeng_new=xShu-widthShu/2
                object_Heng~>points=list(car(pointsHeng) rplaca(cadr(pointsHeng) xHeng_new))
        )        


        when((yMaxShu-yHeng)>(yHeng-yMinShu)&&y1Shu<y2Shu
                yShu_new=yHeng-widthHeng/2
                remove_cell=cadr(car(pointsShu))
                object_Shu~>points=list(remove(remove_cell append1(car(pointsShu) yShu_new)) cadr(pointsShu))
        )
        when((yMaxShu-yHeng)>(yHeng-yMinShu)&&y1Shu>y2Shu
                yShu_new=yHeng-widthHeng/2
                remove_cell=cadr(cadr(pointsShu))
                object_Shu~>points=list(car(pointsShu) remove(remove_cell append1(cadr(pointsShu) yShu_new)))
        )

        when((yMaxShu-yHeng)<(yHeng-yMinShu)&&y1Shu<y2Shu
                yShu_new=yHeng+widthHeng/2
                remove_cell=cadr(cadr(pointsShu))
                object_Shu~>points=list(car(pointsShu) remove(remove_cell append1(cadr(pointsShu) yShu_new)))
        )
        when((yMaxShu-yHeng)<(yHeng-yMinShu)&&y1Shu>y2Shu
                yShu_new=yHeng+widthHeng/2
                remove_cell=cadr(car(pointsShu))
                object_Shu~>points=list(remove(remove_cell append1(car(pointsShu) yShu_new)) cadr(pointsShu))
        )                        


hiDisplayForm(CreatContactGUIForm)

)     

M1M2ContactTypeGUI=hiCreateStringField(

?name   'M1M2ContactTypeGUI
?prompt "M1_M2 Contact Type"
?defValue "M1_M2" ;contact cype must be same as PDK name
?callback  "hiGetCurrentForm()"
?editable  t

)

M2MTTContactTypeGUI=hiCreateStringField(

?name   'M2MTTContactTypeGUI
?prompt "M2_MTT Contact Type"
?defValue "M2_MTT" ;contact type must be same as PDK name
?callback  "hiGetCurrentForm()"
?editable  t

)

WidthViaGUI=hiCreateFloatField(

?name 'WidthViaGUI
?prompt "Width of Via"
?defValue 0.1 ;default
?callback "hiGetCurrentForm()"
?editable t

)

LengthViaGUI=hiCreateFloatField(

?name 'LengthViaGUI
?prompt "Length of Via"
?defValue 0.1 ;default
?callback "hiGetCurrentForm()"
?editable t

)

XViaSpaceGUI=hiCreateFloatField(

?name  'XViaSpaceGUI
?prompt "X Via Space"
?defValue 0.13 ;default
?callback "hiGetCurrentForm()"
?editable t

)

YViaSpaceGUI=hiCreateFloatField(

?name  'YViaSpaceGUI
?prompt "Y Via Space"
?defValue 0.13 ;default
?callback "hiGetCurrentForm()"
?editable t

)

ViaEnclosureGUI=hiCreateFloatField(  

?name 'ViaEnclosureGUI
?prompt "Via Enclosure"
?defValue 0.03 ;default
?callback "hiGetCurrentForm()"
?editable t

)

CreatContactGUIForm=hiCreateAppForm(

?name 'CreatContactGUIForm
?formTitle "Creat Contact"
?callback "CreatContact(
                       M1M2ContactTypeGUI->value
                       M2MTTContactTypeGUI->value
                       WidthViaGUI->value
                       LengthViaGUI->value
                       XViaSpaceGUI->value
                       YViaSpaceGUI->value
                       ViaEnclosureGUI->value  
                       )"

?fields list(
            M1M2ContactTypeGUI
            M2MTTContactTypeGUI
            WidthViaGUI
            LengthViaGUI
            XViaSpaceGUI  
            YViaSpaceGUI
            ViaEnclosureGUI
            )
?help ""
)

               

procedure(CreatContact(
                                M1M2ContactType
                                M2MTTContactType
                                WidthVia
                                LengthVia
                                XViaSpace
                                YViaSpace
                                ViaEnclosureGUI
                                )
x=xShu
y=yHeng
XDelta=LengthVia+XViaSpace
YDelta=WidthVia+YViaSpace
XData=(widthShu-ViaEnclosureGUI*2+XViaSpace)/XDelta
YData=(widthHeng-ViaEnclosureGUI*2+YViaSpace)/YDelta
rows=max(floor(YData) 1)
columns=max(floor(XData) 1)

if((objectA~>purpose=="drawing"&&objectB~>purpose=="drawing")!=t
then
JWMessage("Error!!!" 'Close "Incorrect Layer,Create Contact Failed!")
)
/*
if((widthA>=0.16&&widthB>=0.16)!=t
then
JWMessage("Warning!!!" 'Close "The metal width is too small")
)
*/

if(objectA~>layerName=="A1"&&objectB~>layerName=="A2"
then
dbCreateVia(geGetEditRep() M1M2ContactType list(x y) "R0" list(list(rows XData) list(columns YData)) )
)
if(objectA~>layerName=="A2"&&objectB~>layerName=="A1"
then
dbCreateVia(geGetEditRep() M1M2ContactType list(x y) "R0" list(list(rows XData) list(columns YData)) )
)

if(objectA~>layerName=="MTT"&&objectB~>layerName=="A2"
then
dbCreateVia(geGetEditRep() M2MTTContactTypeGUI list(x y) "R0" list(list(rows XData) list(columns YData)) )
)

if(objectA~>layerName=="A2"&&objectB~>layerName=="MTT"
then
dbCreateVia(geGetEditRep() M2MTTContactTypeGUI list(x y) "R0" list(list(rows XData) list(columns YData)) )
)
)

hccaiwh

为什么不用局部变量

open-CAD

记得用let