SKILL程序收集

sunxeu · 发表于 2019-12-31 16:09:29

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

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

x

本帖最后由 sunxeu 于 2021-10-4 14:50 编辑

这是个总结帖，我将目前看到的SKILL程序收集起来，方便以后大家使用，也方便自己使用。

十字标尺：（快捷键5）
十字标尺 crossruler 简洁写法 ^.^
http://bbs.eetop.cn/forum.php?mo ... 716&fromuid=1573268
(出处: ET创芯网论坛(EETOP) )

hiSetBindKey("Layout" "<Key>5" "CreateCrossRuler()")
procedure(CreateCrossRuler()
point=enterPoint()
leCreateRuler(geGetEditRep() list(point xCoord(point)+100:yCoord(point)))
leCreateRuler(geGetEditRep() list(point xCoord(point)-100:yCoord(point)))
leCreateRuler(geGetEditRep() list(point xCoord(point):yCoord(point)+100))
leCreateRuler(geGetEditRep() list(point xCoord(point):yCoord(point)-100))
); end procedure CreateCrossRuler

复制代码

两条交叉的metal线，去除多余的线头：（
快捷键6）
脚本，两条交叉的metal线，去除多余的线头
http://bbs.eetop.cn/forum.php?mo ... 086&fromuid=1573268
(出处: ET创芯网论坛(EETOP) )

hiSetBindKey("Layout" "<Key>6" "xiubian()")
procedure(xiubian()
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))
)
)

复制代码

转换只读模式和可编辑模式：（快捷键F12）

http://blog.eetop.cn/blog-1550883-6944230.html
(出处: yangqi666的个人空间 http://blog.eetop.cn/yeungchie)

procedure(changemode()
prog(()
cond(
(geGetEditCellView()~>mode=="a"
geChangeEditMode("r")
)
(geGetEditCellView()~>mode=="r"
geChangeEditMode("a")
)
(t
return(nil)
]
foreach(x list("Layout" "Schematics" "Symbol")
hiSetBindKey(x "<Key>F12" "changemode()")
]

复制代码

快速换层：（快捷键@）
（按@键即可将选中layer换成LSW中选中的layer）

procedure( ChangeLayer()
let( ( ToMetal )
ToMetal = leGetEntryLayer()
leReplace(geGetEditCellView(getCurrentWindow()) geGetSelSet() list(list("layer" nil list(car(ToMetal) cadr(ToMetal)))))
);end let
);end procedure
hiSetBindKey("Layout" "<Key>@" "ChangeLayer()" )

复制代码

自动POLY和METAL1打孔：（快捷键7）（需要根据不同工艺尺寸修改数据）
（缺点：不能在Convert to Mosaic下使用）
根据“大虾们谁有这个脚本啊太好用啦

http://bbs.eetop.cn/forum.php?mo ... amp;fromuid=1573268

(出处: ET创芯网论坛(EETOP) )”这个帖子中的“xxw9054 ”回复进行改写的

procedure( create_gate()
let(( cv instList inst_fl inst_l inst_fw
fingers tech viaDefId viaParams xy cutNum
x1 y1 x2 y2 x3 y3 x4 y4 x5 y5
PolyEncloseCO MetalEncloseCO COSpace
PolyExtensionOD MetalWidth COCoreSpaceOD
PolyEncloseMetal PolyWidth FingersPolySpace )
PolyEncloseCO = 0.07
MetalEncloseCO = 0.07
COSpace = PolyExtensionOD
PolyExtensionOD = 0.2
MetalWidth = 0.3
COCoreSpaceOD = 0.41
PolyEncloseMetal = 0.25
PolyWidth = 0.36
FingersPolySpace = 0.42
cv = geGetEditCellView(getCurrentWindow())
tech = techGetTechFile(cv)
instList = geGetSelSet()
foreach(inst instList
inst_fl = atof(car(last(inst~>prop~>l)));get instance l\
prop=information in properties\
atof is change to float from Character string\
atoi is change to integer from Character string
if( (inst_fl >= 100) then inst_fl = inst_fl / 1000 )
inst_fw = atof(car(last(inst~>prop~>fw)));get instance fw
fingers = atof(car(last(inst~>prop~>fingers)));get instance fingers
inst_l = inst_fl * fingers + (fingers - 1) * FingersPolySpace
xy = inst~>xy
cutNum = int(((inst_l - (MetalWidth * 2) ) / PolyWidth) +1)
if( (cutNum <= 2)
then cutNum = 2
else cutNum = cutNum
)
viaDefId = techFindViaDefByName(tech "M1_PO")
viaParams = list(list("cutSpacing" list(COSpace COSpace));cont via space
list("layer1Enc" list(PolyEncloseCO PolyEncloseCO));POLYG enclosures cont via
list("layer2Enc" list(MetalEncloseCO MetalEncloseCO));METAL1 enclosures cont via
list("cutRows" 1) list("cutColumns" cutNum));Row=1 Column=cutNum
case(inst~>orient
("R0"
x1 = car(xy)
y1 = cadr(xy) + inst_fw + PolyExtensionOD
x2 = x1 + inst_l
y2 = y1 + PolyWidth
x3 = x1 + inst_l/2
y3 = cadr(xy) + inst_fw + COCoreSpaceOD
x4 = x1 + PolyEncloseMetal
y4 = y2 - MetalWidth
x5 = x2 - PolyEncloseMetal
y5 = y2
dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
dbCreateVia( cv viaDefId list(x3 y3) "R0" viaParams)
);end "R0"
("R90"
x1 = car(xy) - inst_fw - (PolyExtensionOD + PolyWidth)
y1 = cadr(xy)
x2 = car(xy) - inst_fw - PolyExtensionOD
y2 = y1 + inst_l
x3 = x1 + (MetalWidth / 2)
y3 = y1 + inst_l/2
x4 = x1
y4 = y1 + PolyEncloseMetal
x5 = x1 + MetalWidth
y5 = y2 - PolyEncloseMetal
dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
dbCreateVia( cv viaDefId list(x3 y3) "R90" viaParams)
);end "R90"
("R180"
x1 = car(xy) - inst_l
y1 = cadr(xy) + PolyExtensionOD
x2 = car(xy)
y2 = cadr(xy) + (PolyExtensionOD + PolyWidth)
x3 = x1 + inst_l/2
y3 = cadr(xy) + COCoreSpaceOD
x4 = x1 + PolyEncloseMetal
y4 = y2 - MetalWidth
x5 = x2 - PolyEncloseMetal
y5 = y2
dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
dbCreateVia( cv viaDefId list(x3 y3) "R180" viaParams)
);end "R180"
("R270"
x1 = car(xy) - (PolyExtensionOD + PolyWidth)
y1 = cadr(xy) - inst_l
x2 = car(xy) - PolyExtensionOD
y2 = cadr(xy)
x3 = x1 + (MetalWidth / 2)
y3 = y1 + inst_l/2
x4 = x1
y4 = y1 + PolyEncloseMetal
x5 = x1 + MetalWidth
y5 = y2 - PolyEncloseMetal
dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
dbCreateVia( cv viaDefId list(x3 y3) "R270" viaParams)
);end "R270"
("MY"
x1 = car(xy) - inst_l
y1 = cadr(xy) + inst_fw + PolyExtensionOD
x2 = car(xy)
y2 = y1 + PolyWidth
x3 = x1 + inst_l/2
y3 = y1 + PolyExtensionOD
x4 = x1 + PolyEncloseMetal
y4 = y2 - MetalWidth
x5 = x2 - PolyEncloseMetal
y5 = y2
dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
dbCreateVia( cv viaDefId list(x3 y3) "MY" viaParams)
);end "MY"
("MYR90"
x1 = car(xy) - inst_fw - (PolyExtensionOD + PolyWidth)
y1 = cadr(xy) - inst_l
x2 = car(xy) - inst_fw - PolyExtensionOD
y2 = cadr(xy)
x3 = x1 + (MetalWidth / 2)
y3 = y1 + inst_l/2
x4 = x1
y4 = y1 + PolyEncloseMetal
x5 = x1 + MetalWidth
y5 = y2 - PolyEncloseMetal
dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
dbCreateVia( cv viaDefId list(x3 y3) "MYR90" viaParams)
);end "MYR90"
("MX"
x1 = car(xy)
y1 = cadr(xy) + PolyExtensionOD
x2 = x1 + inst_l
y2 = y1 + PolyWidth
x3 = x1 + inst_l/2
y3 = y1 + PolyExtensionOD
x4 = x1 + PolyEncloseMetal
y4 = y2 - MetalWidth
x5 = x2 - PolyEncloseMetal
y5 = y2
dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
dbCreateVia( cv viaDefId list(x3 y3) "MX" viaParams)
);end "MX"
("MXR90"
x1 = car(xy) - (PolyExtensionOD + PolyWidth)
y1 = cadr(xy)
x2 = car(xy) - PolyExtensionOD
y2 = cadr(xy)+ inst_l
x3 = x1 + (MetalWidth / 2)
y3 = y1 + inst_l/2
x4 = x1
y4 = y1 + PolyEncloseMetal
x5 = x1 + MetalWidth
y5 = y2 - PolyEncloseMetal
dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
dbCreateVia( cv viaDefId list(x3 y3) "MXR90" viaParams)
);end "MXR90"
);end case
);end foreach
);end let
);end procedure
<div>hiSetBindKey("Layout" "<Key>7" "create_gate()" )
</div>

复制代码

sunxeu · 发表于 2020-1-3 10:06:43

第四个自动打poly和metal1孔的skill程序是根据“大虾们谁有这个脚本啊太好用啦
http://bbs.eetop.cn/forum.php?mo ... amp;fromuid=1573268
(出处: ET创芯网论坛(EETOP) )”这个帖子中的“xxw9054 ”回复进行改写的。

sunxeu · 发表于 2020-8-14 12:01:37

鼠标滚轮直接修改 Via 的行数和列数skill脚本
http://bbs.eetop.cn/forum.php?mo ... amp;fromuid=1573268
(出处: EETOP 创芯网论坛 (原名：电子顶级开发网))
此处增加一个

;==========================================================================
;Function: "Ctrl" or "Shift" + mouse wheel to modify the horizontal or vertical number of through holes (Via)
;Instructions:
; 1.In the CIW window, Load this il file
; 2.In the layout window, After selecting Via,
; Hold down "Ctrl" or "Shift" and slide the mouse wheel
;
;Note: When selecting Via, you may accidentally select other devices.
; This script only modifies Via parameters, not other device parameters.
;
;==========================================================================
row = "row"
col = "column"
hiSetBindKey("Layout" "Shift<Btn4Down>" "NewVia(row 1)")
hiSetBindKey("Layout" "Shift<Btn5Down>" "NewVia(row -1)")
hiSetBindKey("Layout" "Ctrl<Btn4Down>" "NewVia(col 1)")
hiSetBindKey("Layout" "Ctrl<Btn5Down>" "NewVia(col -1)")
procedure(NewVia(dir num)
instID = geGetSelSet() ;get via ID list
viaID = setof(obj instID obj~>objType == "stdVia")
rotation = list("R90" "R270" "MYR90" "MXR90")
foreach(via viaID
when(dir == "row"
if(member(via~>orient rotation) == nil then
org = via~>cutRows
via~>cutRows = apply('plus list(org num))
else
org = via~>cutColumns
via~>cutColumns = apply('plus list(org num))
);end if
);end when
when(dir == "column"
if(member(via~>orient rotation) == nil then
org = via~>cutColumns
via~>cutColumns = apply('plus list(org num))
else
org = via~>cutRows
via~>cutRows = apply('plus list(org num))
);end if
);end when
);end foreach()
);end procedure

复制代码

sunxeu · 发表于 2020-8-17 17:21:43

本帖最后由 sunxeu 于 2021-10-4 14:51 编辑

这里再增加一个，可以使用Shift+上下左右键增加已有孔的数目，使用Ctrl+上下左右来减少已有孔的数目

<div>UpAdd = "UpAdd"
DownAdd = "DownAdd"
LeftAdd = "LeftAdd"
RightAdd = "RightAdd"
UpMinus = "UpMinus"
DownMinus = "DownMinus"
LeftMinus = "LeftMinus"
RightMinus = "RightMinus"
hiSetBindKey("Layout" "Shift<Key>Up" "ChangeVia(UpAdd)")
hiSetBindKey("Layout" "Shift<Key>Down" "ChangeVia(DownAdd)")
hiSetBindKey("Layout" "Shift<Key>Left" "ChangeVia(LeftAdd)")
hiSetBindKey("Layout" "Shift<Key>Right" "ChangeVia(RightAdd)")
hiSetBindKey("Layout" "Ctrl<Key>Up" "ChangeVia(UpMinus)")
hiSetBindKey("Layout" "Ctrl<Key>Down" "ChangeVia(DownMinus)")
hiSetBindKey("Layout" "Ctrl<Key>Left" "ChangeVia(LeftMinus)")
hiSetBindKey("Layout" "Ctrl<Key>Right" "ChangeVia(RightMinus)") </div><div> </div><div>procedure(ChangeVia(change)
instID = geGetSelSet() ;get via ID list
viaID = setof(obj instID obj~>objType == "stdVia") ;choose Via ID list
foreach(via viaID ;loop via IDlist
ViaOrient = via~>orient ;get via Rotation
ViaRows = via~>cutRows ;get via row number
ViaColumns = via~>cutColumns ;get via column number
viaWidth = via ~> cutWidth
viaRowSpace = cadr(via~>cutSpacing)
viaColumnSpace = car(via~>cutSpacing)
layer1 = dbGetViaLayer(via "layer1") ;get via layer1
;~~~~~~~~~~~~~~~~~TSMC 130nm BCD+ HV~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Cont = 0.2 ;Array 4X4
Via12 = 0.29 ;Array 3X3
Via34 = 0.54 ;Array 3X3
;~~~~~~~~~~~~~~~~~use UpAdd/DownAdd , judge the Rows number is equal to 2~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
when(ViaOrient=="R0"||ViaOrient=="R180"||ViaOrient=="MY"||ViaOrient=="MX"
when(ViaRows==2 && ViaColumns>=3 && change=="UpAdd" && layer1=="METAL3"
if(viaRowSpace < Via34
dbMoveFig(via nil list(0:Via34-viaRowSpace "R0")))
via~>cutSpacing = (viaColumnSpace:Via34)
);end when
when(ViaRows==2 && ViaColumns>=3 && change=="UpAdd" && layer1=="METAL2"
if(viaRowSpace < Via12
dbMoveFig(via nil list(0:Via12-viaRowSpace "R0")))
via~>cutSpacing = (viaColumnSpace:Via12)
);end when
when(ViaRows==2 && ViaColumns>=3 && change=="UpAdd" && layer1=="METAL1"
if(viaRowSpace < Via12
dbMoveFig(via nil list(0:Via12-viaRowSpace "R0")))
via~>cutSpacing = (viaColumnSpace:Via12)
);end when
when(ViaRows==2 && ViaColumns>=3 && change=="UpAdd" && layer1=="POLYG"
if(viaRowSpace < Cont
dbMoveFig(via nil list(0:Cont-viaRowSpace "R0")))
via~>cutSpacing = (viaColumnSpace:Cont)
);end when
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
when(ViaRows==2 && ViaColumns>=3 && change=="DownAdd" && layer1=="METAL3"
if(viaRowSpace < Via34
dbMoveFig(via nil list(0:-Via34+viaRowSpace "R0")))
via~>cutSpacing = (viaColumnSpace:Via34)
);end when
when(ViaRows==2 && ViaColumns>=3 && change=="DownAdd" && layer1=="METAL2"
if(viaRowSpace < Via12
dbMoveFig(via nil list(0:-Via12+viaRowSpace "R0")))
via~>cutSpacing = (viaColumnSpace:Via12)
);end when
when(ViaRows==2 && ViaColumns>=3 && change=="DownAdd" && layer1=="METAL1"
if(viaRowSpace < Via12
dbMoveFig(via nil list(0:-Via12+viaRowSpace "R0")))
via~>cutSpacing = (viaColumnSpace:Via12)
);end when
when(ViaRows==2 && ViaColumns>=3 && change=="DownAdd" && layer1=="POLYG"
if(viaRowSpace < Cont
dbMoveFig(via nil list(0:-Cont+viaRowSpace "R0")))
via~>cutSpacing = (viaColumnSpace:Cont)
);end when
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
when(ViaRows>=3 && ViaColumns==2 && change=="LeftAdd" && layer1=="METAL3"
if(viaRowSpace < Via34
dbMoveFig(via nil list(-Via34+viaRowSpace:0 "R0")))
via~>cutSpacing = (Via34:viaColumnSpace)
);end when
when(ViaRows>=3 && ViaColumns==2 && change=="LeftAdd" && layer1=="METAL2"
if(viaRowSpace < Via12
dbMoveFig(via nil list(-Via12+viaRowSpace:0 "R0")))
via~>cutSpacing = (Via12:viaColumnSpace)
);end when
when(ViaRows>=3 && ViaColumns==2 && change=="LeftAdd" && layer1=="METAL1"
if(viaRowSpace < Via12
dbMoveFig(via nil list(-Via12+viaRowSpace:0 "R0")))
via~>cutSpacing = (Via12:viaColumnSpace)
);end when
when(ViaRows>=3 && ViaColumns==2 && change=="LeftAdd" && layer1=="POLYG"
if(viaRowSpace < Cont
dbMoveFig(via nil list(-Cont+viaRowSpace:0 "R0")))
via~>cutSpacing = (Cont:viaColumnSpace)
);end when
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
when(ViaRows>=3 && ViaColumns==2 && change=="RightAdd" && layer1=="METAL3"
if(viaRowSpace < Via34
dbMoveFig(via nil list(Via34-viaRowSpace:0 "R0")))
via~>cutSpacing = (Via34:viaColumnSpace)
);end when
when(ViaRows>=3 && ViaColumns==2 && change=="Rightdd" && layer1=="METAL2"
if(viaRowSpace < Via12
dbMoveFig(via nil list(Via12-viaRowSpace:0 "R0")))
via~>cutSpacing = (Via12:viaColumnSpace)
);end when
when(ViaRows>=3 && ViaColumns==2 && change=="RightAdd" && layer1=="METAL1"
if(viaRowSpace < Via12
dbMoveFig(via nil list(Via12-viaRowSpace:0 "R0")))
via~>cutSpacing = (Via12:viaColumnSpace)
);end when
when(ViaRows>=3 && ViaColumns==2 && change=="RightAdd" && layer1=="POLYG"
if(viaRowSpace < Cont
dbMoveFig(via nil list(Cont-viaRowSpace:0 "R0")))
via~>cutSpacing = (Cont:viaColumnSpace)
);end when
);end when
;~~~~~~~~~~~~~~~~~use LeftAdd/RightAdd,judge the Columns number is equal to 2~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
when(ViaOrient=="R90"||ViaOrient=="R270"||ViaOrient=="MYR90"||ViaOrient=="MXR90"
when(ViaRows>=3 && ViaColumns==2 && change=="UpAdd" && layer1=="METAL3"
if(viaRowSpace < Via34
dbMoveFig(via nil list(0:Via34-viaRowSpace "R0")))
via~>cutSpacing = (Via34:viaColumnSpace)
);end when
when(ViaRows>=3 && ViaColumns==2 && change=="UpAdd" && layer1=="METAL2"
if(viaRowSpace < Via12
dbMoveFig(via nil list(0:Via12-viaRowSpace "R0")))
via~>cutSpacing = (Via12:viaColumnSpace)
);end when
when(ViaRows>=3 && ViaColumns==2 && change=="UpAdd" && layer1=="METAL1"
if(viaRowSpace < Via12
dbMoveFig(via nil list(0:Via12-viaRowSpace "R0")))
via~>cutSpacing = (Via12:viaColumnSpace)
);end when
when(ViaRows>=3 && ViaColumns==2 && change=="UpAdd" && layer1=="POLYG"
if(viaRowSpace < Cont
dbMoveFig(via nil list(0:Cont-viaRowSpace "R0")))
via~>cutSpacing = (Cont:viaColumnSpace)
);end when
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
when(ViaRows>=3 && ViaColumns==2 && change=="DownAdd" && layer1=="METAL3"
if(viaRowSpace < Via34
dbMoveFig(via nil list(0:-Via34+viaRowSpace "R0")))
via~>cutSpacing = (Via34:viaColumnSpace)
);end when
when(ViaRows>=3 && ViaColumns==2 && change=="DownAdd" && layer1=="METAL2"
if(viaRowSpace < Via12
dbMoveFig(via nil list(0:-Via12+viaRowSpace "R0")))
via~>cutSpacing = (Via12:viaColumnSpace)
);end when
when(ViaRows>=3 && ViaColumns==2 && change=="DownAdd" && layer1=="METAL1"
if(viaRowSpace < Via12
dbMoveFig(via nil list(0:-Via12+viaRowSpace "R0")))
via~>cutSpacing = (Via12:viaColumnSpace)
);end when
when(ViaRows>=3 && ViaColumns==2 && change=="DownAdd" && layer1=="POLYG"
if(viaRowSpace < Cont
dbMoveFig(via nil list(0:-Cont+viaRowSpace "R0")))
via~>cutSpacing = (Cont:viaColumnSpace)
);end when
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
when(ViaRows==2 && ViaColumns>=3 && change=="LeftAdd" && layer1=="METAL3"
if(viaRowSpace < Via34
dbMoveFig(via nil list(-Via34+viaRowSpace:0 "R0")))
via~>cutSpacing = (viaColumnSpace:Via34)
);end when
when(ViaRows==2 && ViaColumns>=3 && change=="LeftAdd" && layer1=="METAL2"
if(viaRowSpace < Via12
dbMoveFig(via nil list(-Via12+viaRowSpace:0 "R0")))
via~>cutSpacing = (viaColumnSpace:Via12)
);end when
when(ViaRows==2 && ViaColumns>=3 && change=="LeftAdd" && layer1=="METAL1"
if(viaRowSpace < Via12
dbMoveFig(via nil list(-Via12+viaRowSpace:0 "R0")))
via~>cutSpacing = (viaColumnSpace:Via12)
);end when
when(ViaRows==2 && ViaColumns>=3 && change=="LeftAdd" && layer1=="POLYG"
if(viaRowSpace < Cont
dbMoveFig(via nil list(-Cont+viaRowSpace:0 "R0")))
via~>cutSpacing = (viaColumnSpace:Cont)
);end when
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
when(ViaRows==2 && ViaColumns>=3 && change=="RightAdd" && layer1=="METAL3"
if(viaRowSpace < Via34
dbMoveFig(via nil list(Via34-viaRowSpace:0 "R0")))
via~>cutSpacing = (viaColumnSpace:Via34)
);end when
when(ViaRows==2 && ViaColumns>=3 && change=="Rightdd" && layer1=="METAL2"
if(viaRowSpace < Via12
dbMoveFig(via nil list(Via12-viaRowSpace:0 "R0")))
via~>cutSpacing = (viaColumnSpace:Via12)
);end when
when(ViaRows==2 && ViaColumns>=3 && change=="RightAdd" && layer1=="METAL1"
if(viaRowSpace < Via12
dbMoveFig(via nil list(Via12-viaRowSpace:0 "R0")))
via~>cutSpacing = (viaColumnSpace:Via12)
);end when
when(ViaRows==2 && ViaColumns>=3 && change=="RightAdd" && layer1=="POLYG"
if(viaRowSpace < Cont
dbMoveFig(via nil list(Cont-viaRowSpace:0 "R0")))
via~>cutSpacing = (viaColumnSpace:Cont)
);end when
);end when
;~~~~~~~~~~~~~~~~~judge the distance of Via coordinate movement~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if(ViaOrient=="R0"||ViaOrient=="R180"||ViaOrient=="MY"||ViaOrient=="MX"
then if(change=="UpAdd"||change=="DownAdd"||change=="UpMinus"||change=="DownMinus"
then MoveDistance=(viaWidth/2) + (viaRowSpace/2)
else MoveDistance=(viaWidth/2) + (viaColumnSpace/2)
)
else if(change=="UpAdd"||change=="DownAdd"||change=="UpMinus"||change=="DownMinus"
then MoveDistance=(viaWidth/2) + (viaColumnSpace/2)
else MoveDistance=(viaWidth/2) + (viaRowSpace/2)
)
)
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
when(change=="UpAdd"
if(ViaOrient=="R0"||ViaOrient=="R180"||ViaOrient=="MY"||ViaOrient=="MX"
then via~>cutRows = ViaRows+1
else via~>cutColumns = ViaColumns+1);end if
dbMoveFig(via nil list(0:MoveDistance "R0")))
when(change=="DownAdd"
if(ViaOrient=="R0"||ViaOrient=="R180"||ViaOrient=="MY"||ViaOrient=="MX"
then via~>cutRows = ViaRows+1
else via~>cutColumns = ViaColumns+1);end if
dbMoveFig(via nil list(0:-MoveDistance "R0")))
when(change=="LeftAdd"
if(ViaOrient=="R0"||ViaOrient=="R180"||ViaOrient=="MY"||ViaOrient=="MX"
then via~>cutColumns = ViaColumns+1
else via~>cutRows = ViaRows+1);end if
dbMoveFig(via nil list(-MoveDistance:0 "R0")))
when(change=="RightAdd"
if(ViaOrient=="R0"||ViaOrient=="R180"||ViaOrient=="MY"||ViaOrient=="MX"
then via~>cutColumns = ViaColumns+1
else via~>cutRows = ViaRows+1);end if
dbMoveFig(via nil list(MoveDistance:0 "R0")))
when(change=="UpMinus"
if(ViaOrient=="R0"||ViaOrient=="R180"||ViaOrient=="MY"||ViaOrient=="MX"
then via~>cutRows = ViaRows-1
else via~>cutColumns = ViaColumns-1);end if
dbMoveFig(via nil list(0:-MoveDistance "R0")))
when(change=="DownMinus"
if(ViaOrient=="R0"||ViaOrient=="R180"||ViaOrient=="MY"||ViaOrient=="MX"
then via~>cutRows = ViaRows-1
else via~>cutColumns = ViaColumns-1);end if
dbMoveFig(via nil list(0:MoveDistance "R0")))
when(change=="LeftMinus"
if(ViaOrient=="R0"||ViaOrient=="R180"||ViaOrient=="MY"||ViaOrient=="MX"
then via~>cutColumns = ViaColumns-1
else via~>cutRows = ViaRows-1);end if
dbMoveFig(via nil list(MoveDistance:0 "R0")))
when(change=="RightMinus"
if(ViaOrient=="R0"||ViaOrient=="R180"||ViaOrient=="MY"||ViaOrient=="MX"
then via~>cutColumns = ViaColumns-1
else via~>cutRows = ViaRows-1);end if
dbMoveFig(via nil list(-MoveDistance:0 "R0")))
);end foreach
);end procedure
</div>

复制代码

sunxeu · 发表于 2020-8-18 11:55:17

更新一下给instance打gate via的skill

procedure( create_gate()
let(( cv instList inst_fl inst_l inst_fw
fingers tech viaDefId viaParams xy cutNum via
x1 y1 x2 y2 x3 y3 x4 y4 x5 y5
PolyEncloseCOUD PolyEncloseCOLR MetalEncloseCOUD MetalEncloseCOLR COSpace
PolyExtensionOD MetalWidth COCoreSpaceOD
PolyEncloseMetal PolyWidth FingersPolySpace )
;~~~~~~~~~~~~~~TSMC 130nm BCD+ HV~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
PolyEncloseCOUD = 0.07 ;contact ~> poly enclosures contact top and down
PolyEncloseCOLR = 0.12 ;contact ~> poly enclosures contact left and right
MetalEncloseCOUD = 0.07 ;contact ~> metal1 enclosures contact top and down
MetalEncloseCOLR = 0.12 ;contact ~> metal1 enclosures contact left and right
COSpace = 0.2 ;contact ~> space
PolyExtensionOD = 0.2 ;instance ~> poly extension diffusion
MetalWidth = 0.3 ;analog ~> metal1 width
COCoreSpaceOD = 0.41
PolyEncloseMetal = 0.25
PolyWidth = 0.36
FingersPolySpace = 0.42
Polybitch = 0.36
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
cv = geGetEditCellView(getCurrentWindow())
tech = techGetTechFile(cv)
instList = geGetSelSet()
foreach(inst instList
inst_fl = atof(car(last(inst~>prop~>l)));get instance l\
prop=information in properties\
atof is change to float from Character string\
atoi is change to integer from Character string
if( (inst_fl >= 100) then inst_fl = inst_fl / 1000 )
inst_fw = atof(car(last(inst~>prop~>fw)));get instance fw
fingers = atof(car(last(inst~>prop~>fingers)));get instance fingers
inst_l = inst_fl * fingers + (fingers - 1) * FingersPolySpace
xy = inst~>xy
cutNum = int(((inst_l - (MetalWidth * 2)) / Polybitch))
if( (cutNum <= 2)
then cutNum = 2
else cutNum = cutNum
)
viaDefId = techFindViaDefByName(tech "M1_PO")
viaParams = list(list("cutSpacing" list(COSpace COSpace));cont via space
list("layer1Enc" list(PolyEncloseCOLR PolyEncloseCOUD));POLYG enclosures cont via
list("layer2Enc" list(MetalEncloseCOLR MetalEncloseCOUD));METAL1 enclosures cont via
list("cutRows" 1) list("cutColumns" cutNum));Row=1 Column=cutNum
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
case(inst~>orient
("R0"
x1 = car(xy)
y1 = cadr(xy) + inst_fw + PolyExtensionOD
x2 = x1 + inst_l
y2 = y1 + PolyWidth
x3 = x1 + inst_l/2
y3 = cadr(xy) + inst_fw + COCoreSpaceOD
x4 = x1 + PolyEncloseMetal
y4 = y2 - MetalWidth
x5 = x2 - PolyEncloseMetal
y5 = y2
dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
dbCreateVia( cv viaDefId list(x3 y3) "R0" viaParams)
);end "R0"
("R90"
x1 = car(xy) - inst_fw - (PolyExtensionOD + PolyWidth)
y1 = cadr(xy)
x2 = car(xy) - inst_fw - PolyExtensionOD
y2 = y1 + inst_l
x3 = x1 + (MetalWidth / 2)
y3 = y1 + inst_l/2
x4 = x1
y4 = y1 + PolyEncloseMetal
x5 = x1 + MetalWidth
y5 = y2 - PolyEncloseMetal
dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
dbCreateVia( cv viaDefId list(x3 y3) "R90" viaParams)
);end "R90"
("R180"
x1 = car(xy) - inst_l
y1 = cadr(xy) + PolyExtensionOD
x2 = car(xy)
y2 = cadr(xy) + (PolyExtensionOD + PolyWidth)
x3 = x1 + inst_l/2
y3 = cadr(xy) + COCoreSpaceOD
x4 = x1 + PolyEncloseMetal
y4 = y2 - MetalWidth
x5 = x2 - PolyEncloseMetal
y5 = y2
dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
dbCreateVia( cv viaDefId list(x3 y3) "R180" viaParams)
);end "R180"
("R270"
x1 = car(xy) - (PolyExtensionOD + PolyWidth)
y1 = cadr(xy) - inst_l
x2 = car(xy) - PolyExtensionOD
y2 = cadr(xy)
x3 = x1 + (MetalWidth / 2)
y3 = y1 + inst_l/2
x4 = x1
y4 = y1 + PolyEncloseMetal
x5 = x1 + MetalWidth
y5 = y2 - PolyEncloseMetal
dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
dbCreateVia( cv viaDefId list(x3 y3) "R270" viaParams)
);end "R270"
("MY"
x1 = car(xy) - inst_l
y1 = cadr(xy) + inst_fw + PolyExtensionOD
x2 = car(xy)
y2 = y1 + PolyWidth
x3 = x1 + inst_l/2
y3 = y1 + PolyExtensionOD + 0.01
x4 = x1 + PolyEncloseMetal
y4 = y2 - MetalWidth
x5 = x2 - PolyEncloseMetal
y5 = y2
dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
dbCreateVia( cv viaDefId list(x3 y3) "MY" viaParams)
);end "MY"
("MYR90"
x1 = car(xy) - inst_fw - (PolyExtensionOD + PolyWidth)
y1 = cadr(xy) - inst_l
x2 = car(xy) - inst_fw - PolyExtensionOD
y2 = cadr(xy)
x3 = x1 + (MetalWidth / 2)
y3 = y1 + inst_l/2
x4 = x1
y4 = y1 + PolyEncloseMetal
x5 = x1 + MetalWidth
y5 = y2 - PolyEncloseMetal
dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
dbCreateVia( cv viaDefId list(x3 y3) "MYR90" viaParams)
);end "MYR90"
("MX"
x1 = car(xy)
y1 = cadr(xy) + PolyExtensionOD
x2 = x1 + inst_l
y2 = y1 + PolyWidth
x3 = x1 + inst_l/2
y3 = y1 + PolyExtensionOD + 0.01
x4 = x1 + PolyEncloseMetal
y4 = y2 - MetalWidth
x5 = x2 - PolyEncloseMetal
y5 = y2
dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
dbCreateVia( cv viaDefId list(x3 y3) "MX" viaParams)
);end "MX"
("MXR90"
x1 = car(xy) - (PolyExtensionOD + PolyWidth)
y1 = cadr(xy)
x2 = car(xy) - PolyExtensionOD
y2 = cadr(xy)+ inst_l
x3 = x1 + (MetalWidth / 2)
y3 = y1 + inst_l/2
x4 = x1
y4 = y1 + PolyEncloseMetal
x5 = x1 + MetalWidth
y5 = y2 - PolyEncloseMetal
dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
dbCreateVia( cv viaDefId list(x3 y3) "MXR90" viaParams)
);end "MXR90"
);end case
);end foreach
);end let
);end procedure
hiSetBindKey("Layout" "<Key>7" "create_gate()" )

复制代码

sunxeu · 发表于 2020-9-10 16:20:17

procedure(CreateCrossRuler()
let( ( windowID enterpoint point cvID x y )
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
cvID = geGetEditCellView(getCurrentWindow());geGetWindowCellView()
windowID = getCurrentWindow()
enterpoint = enterPoint()
x = car(enterpoint)
y = cadr(enterpoint)
point = geWindowToEditPoint(windowID x:y)
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dbCreateRuler(cvID list(point xCoord(point)+100:yCoord(point)))
dbCreateRuler(cvID list(point xCoord(point)-100:yCoord(point)))
dbCreateRuler(cvID list(point xCoord(point):yCoord(point)+100))
dbCreateRuler(cvID list(point xCoord(point):yCoord(point)-100))
); end of let
); end procedure CreateCrossRuler
hiSetBindKey("Layout" "<Key>6" "CreateCrossRuler()")

复制代码

JC_09 · 发表于 2020-1-3 00:45:32

thank you for sharing

chinarml · 发表于 2020-1-8 10:53:53

十字标尺的脚本，获取鼠标点坐标的函数enterPoint（）只在当前层使用时有效，如果在上层x进去底层，enterPoint（）就找不到正确的点了。可以用point=hiGetPoint（hiGetCurrentWindows()）替代

sunxeu · 发表于 2020-1-8 15:47:57

chinarml 发表于 2020-1-8 10:53
十字标尺的脚本，获取鼠标点坐标的函数enterPoint（）只在当前层使用时有效，如果在上层x进去底层，enterPo ...

谢谢

hypo029 · 发表于 2020-1-8 19:45:43

赞一个

sunxeu · 发表于 2020-1-9 15:25:47

自动给MOS打poly孔脚本微调

procedure( create_gate()

         let(( cv instList inst_fl inst_l inst_fw
               fingers tech viaDefId viaParams xy cutNum
               x1 y1 x2 y2 x3 y3 x4 y4 x5 y5
               PolyEncloseCO MetalEncloseCO COSpace
               PolyExtensionOD MetalWidth COCoreSpaceOD
               PolyEncloseMetal PolyWidth FingersPolySpace )

            PolyEncloseCO = 0.07
            MetalEncloseCO = 0.07
            COSpace = PolyExtensionOD

            PolyExtensionOD = 0.2
            MetalWidth = 0.3
            COCoreSpaceOD = 0.41
            PolyEncloseMetal = 0.25
            PolyWidth = 0.36
            FingersPolySpace = 0.42

            cv = geGetEditCellView(getCurrentWindow())
            tech = techGetTechFile(cv)
            instList = geGetSelSet()
            foreach(inst instList
                     inst_fl = atof(car(last(inst~>prop~>l)));get instance l\
                              prop=information in properties\
                              atof is change to float from Character string\
                              atoi is change to integer from Character string
                     if( (inst_fl >= 100) then inst_fl = inst_fl / 1000 )
                     inst_fw = atof(car(last(inst~>prop~>fw)));get instance fw
                     fingers = atof(car(last(inst~>prop~>fingers)));get instance fingers
                     inst_l = inst_fl * fingers + (fingers - 1) * FingersPolySpace
                     xy = inst~>xy
                     cutNum = int(((inst_l - (MetalWidth * 2) ) / PolyWidth) +1)
                     if( (cutNum <= 2)
                        then cutNum = 2
                        else cutNum = cutNum
                     )
                     viaDefId = techFindViaDefByName(tech "M1_PO")
                     viaParams = list(list("cutSpacing" list(COSpace COSpace));cont via space
                                    list("layer1Enc" list(PolyEncloseCO PolyEncloseCO))

OLYG enclosures cont via
                                    list("layer2Enc" list(MetalEncloseCO MetalEncloseCO));METAL1 enclosures cont via
                                    list("cutRows" 1) list("cutColumns" cutNum));Row=1 Column=cutNum
                     case(inst~>orient
                        ("R0"
                        x1 = car(xy)
                        y1 = cadr(xy) + inst_fw + PolyExtensionOD
                        x2 = x1 + inst_l
                        y2 = y1 + PolyWidth
                        x3 = x1 + inst_l/2
                        y3 = cadr(xy) + inst_fw + COCoreSpaceOD
                        x4 = x1 + PolyEncloseMetal
                        y4 = y2 - MetalWidth
                        x5 = x2 - PolyEncloseMetal
                        y5 = y2
                        dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
                        dbCreateRect( cv list( "

OLYG" "drawing" ) list(x1:y1 x2:y2))
                        dbCreateVia( cv viaDefId list(x3 y3) "R0" viaParams)
                        );end "R0"
                        ("R90"
                        x1 = car(xy) - inst_fw - (PolyExtensionOD + PolyWidth)
                        y1 = cadr(xy)
                        x2 = car(xy) - inst_fw - PolyExtensionOD
                        y2 = y1 + inst_l
                        x3 = x1 + (MetalWidth / 2)
                        y3 = y1 + inst_l/2
                        x4 = x1
                        y4 = y1 + PolyEncloseMetal
                        x5 = x1 + MetalWidth
                        y5 = y2 - PolyEncloseMetal
                        dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
                        dbCreateRect( cv list( "

OLYG" "drawing" ) list(x1:y1 x2:y2))
                        dbCreateVia( cv viaDefId list(x3 y3) "R90" viaParams)
                        );end "R90"
                        ("R180"
                        x1 = car(xy) - inst_l
                        y1 = cadr(xy) + PolyExtensionOD
                        x2 = car(xy)
                        y2 = cadr(xy) + (PolyExtensionOD + PolyWidth)
                        x3 = x1 + inst_l/2
                        y3 = cadr(xy) + COCoreSpaceOD
                        x4 = x1 + PolyEncloseMetal
                        y4 = y2 - MetalWidth
                        x5 = x2 - PolyEncloseMetal
                        y5 = y2
                        dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
                        dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
                        dbCreateVia( cv viaDefId list(x3 y3) "R180" viaParams)
                        );end "R180"
                        ("R270"
                        x1 = car(xy) - (PolyExtensionOD + PolyWidth)
                        y1 = cadr(xy) - inst_l
                        x2 = car(xy) - PolyExtensionOD
                        y2 = cadr(xy)
                        x3 = x1 + (MetalWidth / 2)
                        y3 = y1 + inst_l/2
                        x4 = x1
                        y4 = y1 + PolyEncloseMetal
                        x5 = x1 + MetalWidth
                        y5 = y2 - PolyEncloseMetal
                        dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
                        dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
                        dbCreateVia( cv viaDefId list(x3 y3) "R270" viaParams)
                        );end "R270"
                        ("MY"
                        x1 = car(xy) - inst_l
                        y1 = cadr(xy) + inst_fw + PolyExtensionOD
                        x2 = car(xy)
                        y2 = y1 + PolyWidth
                        x3 = x1 + inst_l/2
                        y3 = y1 + PolyExtensionOD
                        x4 = x1 + PolyEncloseMetal
                        y4 = y2 - MetalWidth
                        x5 = x2 - PolyEncloseMetal
                        y5 = y2
                        dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
                        dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
                        dbCreateVia( cv viaDefId list(x3 y3) "MY" viaParams)
                        );end "MY"
                        ("MYR90"
                        x1 = car(xy) - inst_fw - (PolyExtensionOD + PolyWidth)
                        y1 = cadr(xy) - inst_l
                        x2 = car(xy) - inst_fw - PolyExtensionOD
                        y2 = cadr(xy)
                        x3 = x1 + (MetalWidth / 2)
                        y3 = y1 + inst_l/2
                        x4 = x1
                        y4 = y1 + PolyEncloseMetal
                        x5 = x1 + MetalWidth
                        y5 = y2 - PolyEncloseMetal
                        dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
                        dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
                        dbCreateVia( cv viaDefId list(x3 y3) "MYR90" viaParams)
                        );end "MYR90"
                        ("MX"
                        x1 = car(xy)
                        y1 = cadr(xy) + PolyExtensionOD
                        x2 = x1 + inst_l
                        y2 = y1 + PolyWidth
                        x3 = x1 + inst_l/2
                        y3 = y1 + PolyExtensionOD
                        x4 = x1 + PolyEncloseMetal
                        y4 = y2 - MetalWidth
                        x5 = x2 - PolyEncloseMetal
                        y5 = y2
                        dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
                        dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
                        dbCreateVia( cv viaDefId list(x3 y3) "MX" viaParams)
                        );end "MX"
                        ("MXR90"
                        x1 = car(xy) - (PolyExtensionOD + PolyWidth)
                        y1 = cadr(xy)
                        x2 = car(xy) - PolyExtensionOD
                        y2 = cadr(xy)+ inst_l
                        x3 = x1 + (MetalWidth / 2)
                        y3 = y1 + inst_l/2
                        x4 = x1
                        y4 = y1 + PolyEncloseMetal
                        x5 = x1 + MetalWidth
                        y5 = y2 - PolyEncloseMetal
                        dbCreateRect( cv list( "METAL1" "drawing" ) list(x4:y4 x5:y5))
                        dbCreateRect( cv list( "POLYG" "drawing" ) list(x1:y1 x2:y2))
                        dbCreateVia( cv viaDefId list(x3 y3) "MXR90" viaParams)
                        );end "MXR90"
                        );end case
                     );end foreach
            );end let
);end procedure
hiSetBindKey("Layout" "<Key>7" "create_gate()" )

sunxeu · 发表于 2020-1-10 09:18:02

快速换层：（快捷键@）（按@键即可将选中layer换成LSW中选中的layer）

procedure( ChangeLayer()
         let( ( ToMetal )
            ToMetal = leGetEntryLayer()
            leReplace(geGetEditCellView(getCurrentWindow()) geGetSelSet() list(list("layer" nil list(car(ToMetal) cadr(ToMetal)))))
            );end let
      );end procedure
hiSetBindKey("Layout" "<Key>@" "ChangeLayer()" )

IvenC · 发表于 2020-1-10 10:00:19

希望楼主能用论坛的代码功能发帖子呢。这样看起来更舒服一点，也不会有变量名被替换成论坛的表情符号

sunxeu · 发表于 2020-1-10 10:12:00

IvenC 发表于 2020-1-10 10:00
希望楼主能用论坛的代码功能发帖子呢。这样看起来更舒服一点，也不会有变量名被替换成论坛的表情符号 ...

可以请教一下怎么用代码功能发吗？

[转贴] SKILL程序收集

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

点评