求一个skill，Ctrl+up或者down键上下快速切换各层

魅血小肥羊

如题，比如现在显示的是Sig1层，当按下Ctrl+down，就显示到sig1的下一个走线层。按下Ctrl+up就显示到sig1的上一个走线层，自动跳过中间的地平面。当需要显示地平面的时候，按Ctrl+left来一层一层的逐个显示
希望各位大神帮帮忙。

jordanli22

deargds yeah

pury

以前公司有这个skill，但是用的蛮少的

linb

魅血小肥羊 发表于 2015-5-19 19:59
可以的

能发一份到linb5050@163.com吗

魅血小肥羊

linb 发表于 2015-5-19 18:25
可以也给我一份吗

可以的

linb

可以也给我一份吗

魅血小肥羊

deargds 发表于 2015-5-14 14:57
已提供完整Skill文件源码，见附件，部分代码如下:

版主真的爱死你了

123123

层面名字要定义一样的吧，不然能实现吗？

魅血小肥羊

郁闷郁闷

魅血小肥羊

没有好心的大神吗

myhome43

也想要

魅血小肥羊

都没人帮帮忙吗

deargds

已提供完整Skill文件源码，见附件，部分代码如下:

1. ;*********************************************************************
   
2. ;Function:                            EDA365_SwitchLayer
   
3. ;Author:                               deargds
   
4. ;Company:                          EDA365.COM
   
5. ;E-Mail:                                 myeda@qq.com
   
6. ;Release Date :                     2015-05-14
   
7. ;*********************************************************************
   
8. ;如需更改快捷键，请修改下面两行
   
9. axlSetAlias("Pgup" "EDA365_SwitchLayer nil")
   
10. axlSetAlias("Pgdown" "EDA365_SwitchLayer")
    
11. 
    
12. axlCmdRegister( "EDA365_SwitchLayer" 'EDA365_SwitchLayer ?cmdType "interactive")
    
13. defun( EDA365_SwitchLayer (@optional (prev nil))
    
14. prog((lEtchLayer sCurLayerName iNextLayerNo sNextLayer)
    
15.         lEtchLayer = setof(layer axlGetParam("paramLayerGroup:ETCH")->groupMembers nequal(axlDBGetLayerType(strcat("ETCH/" layer)) "PLANE"))
    
16.         sCurLayerName = cadr(parseString(axlGetActiveLayer() "/"))
    
17.         if( member(sCurLayerName lEtchLayer) then
    
18.             ...
    
19.             ...
    
20.         else
    
21.                 iNextLayerNo = 1
    
22.         )
    
23.         
    
24. ...
    
25. ...
    
26. ...
    
27. )
    
28. )

复制代码