skill to create shape based on vias

Question

Hi 
 Attached, 
 i want use skill to create a shape based on select via, but i can't wirte the skill.

Hoangkhoipcb · Answer

Hi zpofrp ! 
 Please refer this code. 
 HoangKhoi. 
 ; ##################################################################### axlCmdRegister("createShapeByVia" 'createShapeByVia ) (defun createShapeByVia () vi_via = setof(e axlSubclassRoute(?field 'isEtch) axlIsVisibleLayer(strcat("VIA CLASS/" e ))) if(length(vi_via) > 1 then axlUIConfirm( "Visible Via must one layer") else layer = car(vi_via) axlClearSelSet(vi_via) axlSetFindFilter(?enabled '(noall VIAS NAMEFORM) ?onButtons '(noall VIAS)) mypopup = axlUIPopupDefine(nil (list (list "Done" 'axlFinishEnterFun) (list "Cancel" 'axlCancelEnterFun))) axlUIPopupSet( mypopup) while(axlSelect(?prompt "Please select an element...") Input_List = axlGetSelSet() axlClearSelSet() if(length(Input_List)>1 then tmp = nil net = car(Input_List)->net foreach(via Input_List foreach(via2 setof(e Input_List e->xy != via->xy) sizeVia1 = getSizeVia(via, layer) sizeVia2 = getSizeVia(via2, layer) lineWidth = max(sizeVia1,sizeVia2) r_path = axlPathStart(list( via->xy via2->xy ) lineWidth) r_path_poly = car(axlPolyFromDB(r_path ?line2poly t ?endCapType 'ROUND)) tmp = cons(r_path_poly tmp) ) ) poly_tmp = car(axlPolyOperation(car(tmp) cdr(tmp) 'OR)) if(poly_tmp->holes != nil then hole_list = nil foreach(h poly_tmp->holes hole_list = cons(car(axlPolyFromHole(h)) hole_list) ) poly_tmp = car(axlPolyOperation(poly_tmp hole_list 'OR)) ) create_shape = axlDBCreateShape(poly_tmp t strcat("ETCH/" layer) net ) ) ) ) ) (defun getSizeVia (via, layer) prog((sizeVia) pad_box = axlDBGetPad(via strcat("VIA CLASS/" layer) "regular")->bBox p1 = car(pad_box) p2 = xCoord(car(pad_box)) : yCoord(cadr(pad_box)) p3 = xCoord(cadr(pad_box)) : yCoord(car(pad_box)) sizeVia = max(axlDistance(p1 p2), axlDistance(p1 p3)) return(sizeVia) ) ) ;#####################################################################

eDave · Answer

Here's a more complex alternative: 
 axlCmdRegister("createShapeByVia" 'CreateShapeByVia) 
 defun( CreateShapeByVia () let((visViaSubclasses, subclass, etchLayer, popupAllActive, popupGrayOops, mark, (oopsCount 0), selectedVias, polys, nets, net, viaPairs, via1, via2, dia1, dia2, lineWidth, path, poly, oShape, shp) visViaSubclasses = setof(sc, axlSubclassRoute(?field, 'isEtch), axlIsVisibleLayer(strcat("VIA CLASS/", sc))) if(!onep(length(visViaSubclasses)) then axlUIConfirm("Only one etch layer can be visible") else subclass = car(visViaSubclasses) etchLayer = strcat("ETCH/", subclass); Use strcat("BOUNDARY/", subclass) if the shape needs to be dynamic axlClearSelSet() axlSetFindFilter(?enabled '(noall, vias), ?onButtons '(noall, vias)) popupAllActive = axlUIPopupDefine(nil '( ("Done", "axlDBTransactionCommit(mark), axlFinishEnterFun()") ("Oops", "axlDBTransactionOops(mark), when(zerop(--oopsCount), axlUIPopupSet(popupGrayOops))") ("Cancel", "axlDBTransactionRollback(mark), axlCancelEnterFun()") )) popupGrayOops = axlUIPopupDefine(nil, '( ("Done", "axlDBTransactionCommit(mark), axlFinishEnterFun()") ("Cancel", "axlDBTransactionRollback(mark), axlCancelEnterFun()") )) axlUIPopupSet(popupGrayOops) mark = axlDBTransactionStart() 
 while(axlSelect(?prompt "Select vias...") selectedVias = axlGetSelSet() axlClearSelSet() polys = nil nets = selectedVias ~>net net = cadar(sortcar(mapcar(lambda((n), list(length(setof(nt, nets, nt == n)), n)), unique(nets)), 'greaterp)); Select the net of the most number of vias viaPairs = CreateShapeByVia_PairCombinations(setof(v, selectedVias, v ->net == net)) foreach(viaPair, viaPairs; Create a line or a shape polygon between each and every via via1 = car(viaPair) via2 = cadr(viaPair) dia1 = CreateShapeByVia_viaDia(via1, subclass) dia2 = CreateShapeByVia_viaDia(via2, subclass) if(dia1 == dia2 then lineWidth = max(dia1,dia2) path = axlPathStart(list(via1 ->xy, via2 ->xy), lineWidth) poly = car(axlPolyFromDB(path, ?line2poly t, ?endCapType 'ROUND)); Use a line polygon if the via pads are the same diameter else poly = CreateShapeByVia_circleCircleTangentialPoly(via1 ->xy, dia1 / 2, via2 ->xy, dia2 / 2); Use a tangential polygon if the via pads are different diameters ) polys = cons(poly, polys) ) when(polys poly = car(axlPolyOperation(car(polys), cdr(polys), 'OR)); Combine all the line polys into one polygon axlDBTransactionMark(mark) oShape = axlDBCreateOpenShape(poly, t, etchLayer, net) axlShapeDeleteVoids(oShape) shp = car(axlDBCreateCloseShape(oShape)) when(shp axlShapeAutoVoid(shp); Try to void any objects that shouldn't be included. ie on a different net. Doesn't work well. oopsCount++ axlUIPopupSet(popupAllActive) ) ) ) 
 axlDBTransactionCommit(mark) ) )) 
 ;Return the via pad diameter from the selected subclass defun( CreateShapeByVia_viaDia (via @optional (subclass, "TOP")) let((pad, bbox) pad = axlDBGetPad(via, strcat("VIA CLASS/", subclass), "regular") bbox = pad ->bBox if(pad ->figureName == "CIRCLE" then max(abs(caadr(bbox) - caar(bbox)), abs(cadadr(bbox) - cadar(bbox))); Maximum of x and y extents. else axlDistance(car(bbox), cadr(bbox)) ) )) 
 ;Return a list of all the pair combinations of the objects passed. defun( CreateShapeByVia_PairCombinations (objs) let((obj1, objPairs) while(objs obj1 = car(objs) objs = cdr(objs) foreach(obj2, objs, objPairs = cons(list(obj1, obj2), objPairs)) ) objPairs )) 
 ; Create a polygon that encompasses the tangential boundaries of two circles of differeing sizes. defun( CreateShapeByVia_circleCircleTangentialPoly (cpt1, r1, cpt2, r2 @optional layer, netName, parent) let((x1, y1, x2, y2, ang1, ang2, ang, pt1, pt2, pt3, pt4, path, poly) x1 = car(cpt1), y1 = cadr(cpt1) x2 = car(cpt2), y2 = cadr(cpt2) ; en.wikipedia.org/.../Tangent_lines_to_circles ang1 = -atan2(y2-y1, x2 - x1) ang2 = asin((r2 - r1) / sqrt((x2 - x1)**2 + (y2 - y1)**2)) ang = ang1 - ang2 pt1 = list(x1 + r1 * sin(ang), y1 + r1 * cos(ang)) pt3 = list(x2 + r2 * sin(ang), y2 + r2 * cos(ang)) ang = ang1 + ang2 pt2 = list(x1 - r1 * sin(ang), y1 - r1 * cos(ang)) pt4 = list(x2 - r2 * sin(ang), y2 - r2 * cos(ang)) path = axlPathStart(list(pt1, pt3)) axlPathArcCenter(path, nil, pt4, t, cpt2) axlPathLine(path, nil, pt2) axlPathArcCenter(path, nil, pt1, t, cpt1) poly = car(axlPolyFromDB(path)) when(layer, axlDBCreateShape(poly, t, layer, netName, parent)) poly ))

Stats

skill to create shape based on vias

Community Guidelines