SKILL程序收集

sunxeu · 发表于 2020-9-9 10:23:31

zhaoxu12 发表于 2020-9-8 15:43
你好，请问打散的layout里，shapes的width和height怎么获取？

width=cadr(cadr(car(geGetSelSet())~>bBox))-cadr(car(car(geGetSelSet())~>bBox))
length=car(cadr(car(geGetSelSet())~>bBox))-car(car(car(geGetSelSet())~>bBox))
可以试试这个，应该还有更好的方法，感觉这个比较笨

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()")

复制代码

Quinn714 · 发表于 2020-9-16 10:23:58

你好打扰了去线头的脚本只能用path线，而且只能是直线，不能带拐角我是小白请问这个有修改过的嘛

sunxeu · 发表于 2020-9-16 10:28:41

wx148520 发表于 2020-9-16 10:23
你好打扰了去线头的脚本只能用path线，而且只能是直线，不能带拐角我是小白请问这个有修改过的嘛 ...

抱歉，我也是才开始学习SKILL不久，那个去线头的程序还没有研究到，所以我也不太清楚。

Quinn714 · 发表于 2020-9-16 11:09:09

sunxeu 发表于 2020-9-16 10:28
抱歉，我也是才开始学习SKILL不久，那个去线头的程序还没有研究到，所以我也不太清楚。
...

谢谢谢谢

fan309550595 · 发表于 2020-9-16 21:45:13

好东西啊感谢

Aimeewang · 发表于 2020-9-17 10:53:32

大佬，我load脚本的时候出现了这个错误，不知道是因为什么原因引起的

sunxeu · 发表于 2020-9-21 10:29:48

hiSetBindKey("Layout" "None<Btn2Down>" "xiubian()")
procedure(xiubian()
let((windowID cvID point viaList bBox pointbBox layer1 layer2 netList net via path Rect netAbBox notcutnet
pathList1 pathList2 pathList RectangleList Rectlayer via2List via2 net2 pathlayer width polygonList
viabBox viax viay netEndPoints netBeginPoints netBeginx netBeginy netEndx netEndy netmetal net2List
path2List Rect2List pathSeg2List netBeginxbk netBeginybk polygon)
windowID = getCurrentWindow()
cvID = geGetEditCellView(windowID)
point=enterPoint()
pointbBox = list(xCoord(point)-0.01:yCoord(point)-0.01 xCoord(point)+0.01:yCoord(point)+0.01)
viaList = leSearchHierarchy(cvID pointbBox 0 "via" nil)
foreach(via viaList
layer1 = dbGetViaLayer(via "layer1")
layer2 = dbGetViaLayer(via "layer2")
viabBox = via~>bBox
RectangleList = leSearchHierarchy(cvID viabBox 0 "rectangle" nil)
foreach(Rect RectangleList
Rectlayer=Rect~>layerName
if(Rectlayer==layer1 || Rectlayer==layer2
leConvertPolygonToPath(Rect)
);if
);foreach
polygonList = leSearchHierarchy(cvID viabBox 0 "polygon" nil)
foreach(polygon polygonList
polygonlayer=polygon~>layerName
if(polygonlayer==layer1 || polygonlayer==layer2
leConvertPolygonToPath(polygon)
);if
);foreach
pathList = leSearchHierarchy(cvID viabBox 0 "path" nil)
foreach(path pathList
pathlayer=path~>layerName
if(pathlayer==layer1 || pathlayer==layer2
leConvertShapeToPathSeg(path)
);if
);foreach
netList = leSearchHierarchy(cvID viabBox 0 "pathSeg" nil)
foreach(net netList
netmetal = net~>layerName
if(netmetal==layer1 || netmetal==layer2 then
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
net~>endStyle = "truncate"
net~>beginStyle = "truncate"
width = net~>width
netType = net~>objType
viabBox = via~>bBox
viax = car(via~>origin)
viay = cadr(via~>origin)
notcutnet = 0
netEndPoints = net~>endPt
netBeginPoints = net~>beginPt
netBeginx = car(netBeginPoints)
netBeginy = cadr(netBeginPoints)
netEndx = car(netEndPoints)
netEndy = cadr(netEndPoints)
if(netBeginy!=netEndy
then dy1 = abs(netBeginy-viay)
dy2 = abs(netEndy-viay)
if(dy2>dy1
then netBeginxbk = netBeginx
netBeginybk = netBeginy
netBeginx = netEndx
netBeginy = netEndy
netEndx = netBeginxbk
netEndy = netBeginybk
);if
netAbBox = list((netEndx-netwidth/2):netEndy (netEndx+netwidth/2):viay)
via2List = remove(via leSearchHierarchy(cvID netAbBox 0 "via" nil))
path2List = leSearchHierarchy(cvID netAbBox 0 "path" nil)
pathSeg2List = leSearchHierarchy(cvID netAbBox 0 "pathSeg" nil)
Rect2List = leSearchHierarchy(cvID netAbBox 0 "rectangle" nil)
net2List = append(append(path2List pathSeg2List) Rect2List)
net2List = remove(net net2List);pathSeg2List)
foreach(net2 net2List
if(net2~>layerName==netmetal
then notcutnet = notcutnet+1
);if
);foreach
foreach(via2 via2List
layer21 = dbGetViaLayer(via2 "layer1")
layer22 = dbGetViaLayer(via2 "layer2")
if(layer21==netmetal || layer22==netmetal
then notcutnet = notcutnet+1
);if
);foreach
if(notcutnet==0
then if(dy2>dy1
then net~>beginPt = (netBeginx:viay)
else net~>endPt = (netEndx:viay)
);if
notcutnet = 0
else notcutnet = 0
);if
else dx1 = abs(netBeginx-viax)
dx2 = abs(netEndx-viax)
if(dx2>dx1
then netBeginxbk = netBeginx
netBeginybk = netBeginy
netBeginx = netEndx
netBeginy = netEndy
netEndx = netBeginxbk
netEndy = netBeginybk
);if
netAbBox = list(netEndx:(netEndy-width/2) viax:(netEndy+width/2))
via2List = remove(via leSearchHierarchy(cvID netAbBox 0 "via" nil))
path2List = leSearchHierarchy(cvID netAbBox 0 "path" nil)
pathSeg2List = leSearchHierarchy(cvID netAbBox 0 "pathSeg" nil)
Rect2List = leSearchHierarchy(cvID netAbBox 0 "rectangle" nil)
net2List = append(append(path2List pathSeg2List) Rect2List)
net2List = remove(net net2List)
foreach(net2 net2List
if(net2~>layerName==netmetal
then notcutnet = notcutnet+1
);if
);foreach
foreach(via2 via2List
layer21 = dbGetViaLayer(via2 "layer1")
layer22 = dbGetViaLayer(via2 "layer2")
if(layer21==netmetal || layer22==netmetal
then notcutnet = notcutnet+1
);if
);foreach
if(notcutnet==0
then if(dx2>dx1
then net~>beginPt = (viax:netEndy)
else net~>endPt = (viax:netEndy)
);if
notcutnet = 0
else notcutnet = 0
);if
);if
);foreach
);if
);foreach
);let
);procedure

复制代码

Quinn714 · 发表于 2020-9-21 11:08:43

sunxeu 发表于 2020-9-21 10:29

你好请问这个是功能是那个相同层去线头的嘛？

sunxeu · 发表于 2020-9-21 12:53:00

wx148520 发表于 2020-9-21 11:08
你好请问这个是功能是那个相同层去线头的嘛？

这个是按鼠标滚轮，然后点击孔，就会自动cut掉和孔同层且较短的一边，如果较短的一边有其他孔或者同层的net，则不会cut掉

[转贴] SKILL程序收集

站长推荐 /2