請問要怎麼改成所有的白漆層 (有原碼)

Pkron

原本功能是via會有top的shpae覆蓋

想要改成所有的via挖掉白漆shape

請問高手該怎麼改?

謝謝!




axlCmdRegister("gsd" 'gnd_shape)
defun(gnd_shape ()
let((via_p via_net shape_Radius via_drill via_Broad Geometry/Silkscreen_top poly_via)
        axlClearSelSet()
        axlSetFindFilter( ?enabled '( "NOALL" "vias") ?onButtons '("vias"))
        LCBpopup = axlUIPopupDefine( nil (list
    (list "Done" "axlFinishEnteRFun()")
    (list "Cancel" "axlCancelEnterFun()")
     ))
        axlUIPopupSet(LCBpopup)
    while(axlSelect(?prompt "Please select via")        
    foreach(via axlGetSelSet()  
            via_drill = via->definition->drillDiameter/2
            via_net = via->net->name
            via_p = via->xy
            foreach(pad via->pads
            when(pad->layer == "via_Broad Geometry/Silkscreen_top" && pad->type == "REGULAR"
                    via_Broad Geometry/Silkscreen_top_pad = caadr(pad->bBox)
            )
            );end foreach
            shape_Radius = (via_Broad Geometry/Silkscreen_top_pad - via_drill)/2 + via_drill
            poly_via = axlPathStartCircle(list(via_p shape_Radius) 0)
        axlDBCreateShape(poly_via,t,strcat("via_Broad Geometry/Silkscreen_top"),via_net)                    
    );foreach
    );while
);end let
);defun

jspij1

看看其他人怎么说