一个简单的换层显示工具

chuankay

这个比较简单，也不算是新奇的功能了，在代码行中，默认是按上下箭头换层。当然，可使用 + -键切换visibility中各导电层，也可以用其他的按键切换。

1. when(axlGetAlias("Up") != "UP";此处修改向上翻页快捷键 如"Up" => "+"
   
2. /* ========================================================= */
   
3.         axlSetFunckey("Up" "skill UP" t);此处修改向上翻页快捷键 如"Up" => "+"
   
4. /* ========================================================= */
   
5. );when
   
6. when(axlGetAlias("Down") != "DOWN";此处修改向下翻页快捷键 如"Down" => "-"
   
7. /* ========================================================= */
   
8.         axlSetFunckey("Down" "skill DOWN" t);此处修改向下翻页快捷键如"Down" => "-"
   
9. /* ========================================================= */
   
10. );when
    
11. axlCmdRegister("DOWN" 'DOWN)
    
12. axlCmdRegister("UP" 'UP)
    
13. defun(DOWN ()
    
14.         EC_layers = axlGetParam("paramLayerGroup:ETCH")->groupmembers
    
15.         sum = length(EC_layers)
    
16.         ACT_layer = substring(axlGetActiveLayer() 6 20)
    
17. by_ck = 0
    
18.         prog( ()
    
19.                 for(i 0 sum-1
    
20.                         when(ACT_layer == nth(i EC_layers)
    
21. by_ck = i
    
22.                                 return(by_ck)
    
23.                         );when
    
24.                 );for
    
25.         );prog 获取索引 兼容15.x
    
26.        
    
27.        
    
28.         if(by_ck == sum - 1
    
29.                 then
    
30.                         NXT_layer = nth(0 EC_layers)
    
31.                 else
    
32.                         NXT_layer = nth(by_ck+1 EC_layers)
    
33.         );
    
34.         axlSetActiveLayer(sprintf(nil "ETCH/%s" NXT_layer))
    
35.         axlVisibleDesign(nil)
    
36.         axlVisibleLayer(sprintf(nil "ETCH/%s" NXT_layer) t)
    
37.         axlVisibleLayer(sprintf(nil "VIA CLASS/%s" NXT_layer) t)
    
38.         axlVisibleLayer(sprintf(nil "PIN/%s" NXT_layer) t)
    
39.         axlVisibleLayer(sprintf(nil "DRC ERROR CLASS/%s" NXT_layer) t)
    
40.         axlVisibleLayer(sprintf(nil "ROUTE KEEPOUT/%s" NXT_layer) t)
    
41.         axlVisibleLayer("ROUTE KEEPOUT/ALL" t)
    
42.         axlVisibleLayer("BOARD GEOMETRY/OUTLINE" t)
    
43.         axlVisibleUpdate(t)
    
44. 
    
45. );defun
    
46. defun(UP ()
    
47.         EC_layers = axlGetParam("paramLayerGroup:ETCH")->groupMembers
    
48.         sum = length(EC_layers)
    
49.         ACT_layer = substring(axlGetActiveLayer() 6 20)
    
50. by_ck = 0
    
51.         prog( ()
    
52.                 for(i 0 sum-1
    
53.                         when(ACT_layer == nth(i EC_layers)
    
54. by_ck = i
    
55.                                 return(by_ck)
    
56.                         );when
    
57.                 );for
    
58.         );prog 获取索引 兼容15.x
    
59.        
    
60.         if(by_ck == 0
    
61.                 then
    
62.                         NXT_layer = nth(sum - 1 EC_layers)
    
63.                 else
    
64.                         NXT_layer = nth(by_ck -1 EC_layers)
    
65.         );
    
66.         axlSetActiveLayer(sprintf(nil "ETCH/%s" NXT_layer))
    
67.         axlVisibleDesign(nil)
    
68.         axlVisibleLayer(sprintf(nil "ETCH/%s" NXT_layer) t)
    
69.         axlVisibleLayer(sprintf(nil "VIA CLASS/%s" NXT_layer) t)
    
70.         axlVisibleLayer(sprintf(nil "PIN/%s" NXT_layer) t)
    
71.         axlVisibleLayer(sprintf(nil "DRC ERROR CLASS/%s" NXT_layer) t)
    
72.         axlVisibleLayer(sprintf(nil "ROUTE KEEPOUT/%s" NXT_layer) t)
    
73.         axlVisibleLayer("ROUTE KEEPOUT/ALL" t)
    
74.         axlVisibleLayer("BOARD GEOMETRY/OUTLINE" t)
    
75.         axlVisibleUpdate(t)
    
76. 
    
77. );defun

复制代码

kedacadence

mingqi 发表于 2014-2-10 15:03
可以给发些入门的资料么

主要在看一些文档文件
X:\Cadence\SPB_15.7\doc\sklanguser\sklanguser.pdf
X:\Cadence\SPB_15.7\doc\sklangref\sklangref.pdf
X:\Cadence\SPB_15.7\doc\algroskill\algroskill.pdf

vivienluo

不错，支持原创。。。

kedacadence

学习了 目前刚开始学习allegro-skill

chuankay

kedacadence 发表于 2014-1-8 16:21
学习了 目前刚开始学习allegro-skill

坚持，不是很难，祝你早日成功。

mingqi

kedacadence 发表于 2014-1-8 16:21
学习了 目前刚开始学习allegro-skill

可以给发些入门的资料么

srqrs

不错支持；

fycat

学习了~~~~

一直在路上

支持支持

menglide

楼主真是辛苦你了