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

deargds

代码如下：

1. axlCmdRegister("EDA365_Assign_Shape_Net" 'EDA365_Assign_Shape_Net ?cmdType "interactive")
   
2. defun( EDA365_Assign_Shape_Net ()
   
3. let((lEtchLayer lShape s i)
   
4.     lEtchLayer = mapcan(lambda((p) list(strcat("ETCH/" p))) axlGetParam("paramLayerGroup:ETCH")-> groupMembers)
   
5.     lShape = EDA365_Get_Object(list("SHAPES") lEtchLayer)
   
6.     lClineSeg = EDA365_Get_Object(list("CLINESEGS") lEtchLayer)
   
7.     i = 0
   
8.     foreach(s lShape
   
9.         lFind = setof(c lClineSeg and(axlGeoPointInShape(xCoord(c->startEnd) s) axlGeoPointInShape(yCoord(c->startEnd) s) s->layer==c->layer))
   
10.         when(lFind
    
11.             axlDBAssignNet(s car(lFind)->net)
    
12.             i++
    
13.         )
    
14.     )
    
15.     axlMsgPut("Process %L Shapes." i)
    
16. )
    
17. )
    
18. 
    
19. defun( EDA365_Get_Object (lFilter lLayer)
    
20. prog((lVis lSel)
    
21.     lSel = nil
    
22.     lVis = axlVisibleGet()
    
23.     axlVisibleDesign(nil)  
    
24.     foreach(p lLayer
    
25.         axlVisibleLayer(p t)
    
26.     )
    
27.     axlClearSelSet()
    
28.     axlSetFindFilter( ?enabled cons("noall" lFilter) ?onButtons cons("noall" lFilter))
    
29.     lSel = axlGetSelSet(axlAddSelectAll())
    
30.     axlClearSelSet()
    
31.     axlVisibleSet(lVis)
    
32.     return(lSel)
    
33. ))
    
34. ;deargds
    
35. ;www.eda365.com

复制代码

longzhiming99

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

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

longzhiming99

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

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

longzhiming99

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

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

penny190

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

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

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

謝謝

longzhiming99

penny190 发表于 2016-1-12 15:49
不好意思 ~~  想請問一下
是否將代碼另存成 ~~  EDA365_Assign_Shape_Net.il
再到 allegro.ilinit 中 ...

load("AsignShapeNet.il" "www.eda365.com")

penny190

longzhiming99 发表于 2016-1-12 16:01
load("AsignShapeNet.il" "www.eda365.com")

謝謝大大說明
已經可以正常載入
剛剛試了一下 ~~ 真的方便又實用

非常謝謝分享

JIMDENG

年华版主是牛人啊！点个赞！

wcjcn

学习一下。。。