求一个选中一条金属线上所有via孔的脚本

niuniudundun

求一个选中一条金属线上所有via孔的脚本，谢谢。

gongdaccy

同问，有这样的脚本吗？

着着着火了

procedure(SelViaFromNet()
    let((cv netList netMetal viaList layer1 layer2 newViaList)
        cv=geGetEditCellView()
        netList=geGetSelSet()

        foreach(net netList
            netMetal=net~>layerName
            viaList=leSearchHierarchy(cv net~>bBox 0 "via" nil)
            foreach(via viaList
                layer1=dbGetViaLayer(via "layer1")
                layer2=dbGetViaLayer(via "layer2")
                if(netMetal==layer1 || netMetal==layer2 then
                    newViaList=append1(newViaList via)
                );end if
            );end foreach
        );end foreach

        geDeselectAll()
        foreach(newVia newViaList
            geSelectObject(newVia)
        );end foreach
    );end let
);end procedure

可以一次选定好几根线运行，想要绑定快捷键就自己加一下，目前只能提取到stdVia，手动拉伸的那种就没考虑了，也够用了吧

niuniudundun

感谢大神

巴彦查着

学习了

着着着火了

着着着火了 发表于 2022-12-20 17:58
procedure(SelViaFromNet()
    let((cv netList netMetal viaList layer1 layer2 newViaList)
        cv= ...

前几天忽然想起这个脚本写得有BUG，当PATH线不是纯直线的时候bBox就会是一个超出path线范围的Rectangle，改了一下：


在第一个foreach处改
------------------------------
foreach(net netList
    netMetal=net~>layerName
    if(net~>objType=="path" then
        for(i 0 net~>nPoints-2
            netBBox=list(nth(i net~>points) nth(i+1 net~>points))
            viaListTemp=leSearchHierarchy(cv netBBox 0 "via" nil)
            viaList=append(viaList viaListTemp)
            i++
        );end for
    else viaList=leSearchHierarchy(cv net~>bBox 0 "via" nil)
    );end if

foreach(via viaList
...
---------------------------------

wangzhongyan

实验好久没成功，你试验过吗？改了几处写错的。
procedure(SelViaFromNet()
     let((cv netList netMetal viaList layer1 layer2 via)
         cv=geGetEditCellView()
         netList=geGetSelSet()
  
foreach(net netList
     netMetal=net~>layerName
     if(net~>objType=="path" then
         for(i 0 net~>nPoints-2
             netBBox=list(nth(i net~>points) nth(i+1 net~>points))
             viaListTemp=leSearchHierarchy(cv netBBox 0 "via" nil)
             viaList=append(viaList viaListTemp)
             i++
         );end for
     else viaList=leSearchHierarchy(cv net~>bBox 0 "via" nil)
     );end if
             );end foreach
         geDeselectAll()
         foreach(newVia via
             geSelectObject(newVia)
         );end foreach
     );end let
);end procedure

着着着火了

wangzhongyan 发表于 2023-2-10 11:00
实验好久没成功，你试验过吗？改了几处写错的。
procedure(SelViaFromNet()
     let((cv netList netMetal ...

你咋把后面的那个foreach对via提取的代码给漏了呢

wangzhongyan

实验了，搞不定，没有有dbGetViaLayer，给下过的脚本呗
layer1=dbGetViaLayer(via "layer1")
layer2=dbGetViaLayer(via "layer2")

着着着火了

wangzhongyan 发表于 2023-2-13 11:20
实验了，搞不定，没有有dbGetViaLayer，给下过的脚本呗
layer1=dbGetViaLayer(via "layer1")
layer2=dbGetV ...

把我写的那两段代码整合一下就是可以用的代码了，我测试过没有问题。

我用的是IC61版本，不知道你说的问题是不是IC51不支持这个函数（我没在51测试过）
如果你想问我，点“回复”功能吧，不然我还真不知道你还有问题