[已解决]不知能不能求到这么一个skill?

deargds · 发表于 2016-1-12 13:23

代码如下：

axlCmdRegister("EDA365_Assign_Shape_Net" 'EDA365_Assign_Shape_Net ?cmdType "interactive")
defun( EDA365_Assign_Shape_Net ()
let((lEtchLayer lShape s i)
lEtchLayer = mapcan(lambda((p) list(strcat("ETCH/" p))) axlGetParam("paramLayerGroup:ETCH")-> groupMembers)
lShape = EDA365_Get_Object(list("SHAPES") lEtchLayer)
lClineSeg = EDA365_Get_Object(list("CLINESEGS") lEtchLayer)
i = 0
foreach(s lShape
lFind = setof(c lClineSeg and(axlGeoPointInShape(xCoord(c->startEnd) s) axlGeoPointInShape(yCoord(c->startEnd) s) s->layer==c->layer))
when(lFind
axlDBAssignNet(s car(lFind)->net)
i++
)
)
axlMsgPut("Process %L Shapes." i)
)
)
defun( EDA365_Get_Object (lFilter lLayer)
prog((lVis lSel)
lSel = nil
lVis = axlVisibleGet()
axlVisibleDesign(nil)
foreach(p lLayer
axlVisibleLayer(p t)
)
axlClearSelSet()
axlSetFindFilter( ?enabled cons("noall" lFilter) ?onButtons cons("noall" lFilter))
lSel = axlGetSelSet(axlAddSelectAll())
axlClearSelSet()
axlVisibleSet(lVis)
return(lSel)
))
;deargds
;www.eda365.com

复制代码

longzhiming99 · 发表于 2016-1-12 13:44

deargds 发表于 2016-1-12 13:23
代码如下：

谢谢老大，我下下来试试，我没写过skill，先看看是咋用的。

longzhiming99 · 发表于 2016-1-12 14:02

deargds 发表于 2016-1-12 13:23
代码如下：

已成功用上，正是所需要的，比我要求的、想像的更好，一次性整板就各自assign上了，我原先还以为只能一块一块shape去assign呢，还是老大考虑周到，太好用了。非常感谢。经常画单面板的人有福了。

longzhiming99 · 发表于 2016-1-12 14:05

chrysalis 发表于 2016-1-12 09:24
有一点不是很明白，为什么要先画cline再画shape？不能直接画shape赋网络连接吗？

这样你试试就知道了，很长的弯来弯去的，没有cline先走个样，很难圈正确，这不是主要的，主要还是赋网络名很困难，你只圈一个块不难，圈几十上百块，你试了就知道

penny190 · 发表于 2016-1-12 15:49

本帖最后由 penny190 于 2016-1-12 16:13 编辑

不好意思 ~~ 想請問一下 ~~
是否將代碼另存成 ~~ EDA365_Assign_Shape_Net.il
再到 allegro.ilinit 中寫入load("EDA365_Assign_Shape_Net") 嗎?

好像不是這樣,因為我開啟ALLEGRO時,出現
E- *Error* load: can't access file - "EDA365_Assign_Shape_Net"

那要如何才能載入使用呢?

謝謝