allegro 快捷键换层时只显示当前层隐藏其他层

db-_-

复制代码到记事本，保存为任意名.il，在%HOME\\pcbenv\allegro.ilinit中load "文件名.il",在env中funckey t laytop。
% O! F) O9 p& Q& J

1. ;;v1.0 初稿
   / a0 [0 C& G! B. y
2. axlCmdRegister("laytop" 'dbSetTopLayer ?cmdType "general")
   
3. axlCmdRegister("laybtm" 'dbSetBtmLayer ?cmdType "general")
   4 Z* m0 ?2 x/ K' R! }) o
4. ;;---------------------------------------------------------
   
5. ;;set_layer_visible.il
   : B! |. {. I' J
6. ;;指令：laytop 和 laybtm
   " u9 T' d; G7 N( d8 ~# O
7. ;;功能：只显示TOP层或者BOTTOM层
   
8. ;;描述：v1.0
   
9. ;;  可自行修改代码中的CLASS/SUBCLASS
   
10. ;;  15.2未测试
    
11. ;;---------------------------------------------------------               
    ' u5 `* W1 M. B' D; ], S3 S3 [+ v$ n
12.                
    
13. procedure(dbSetTopLayer()
    
14. (let ()
    4 k1 j/ n& r: x; `! ]+ E: [) _
15.         ;;清空所有层
    
16.         axlVisibleDesign(nil)
    . J& {$ h% [4 F' Q$ X
17. 
    
18.         ;;设置层可见
    * _3 Y  l. l# o: \9 J5 s: _% ~
19.         axlVisibleLayer("via class/soldermask_top" t)
    1 N# e- `* E4 _. P
20.         axlVisibleLayer("pin/top" t)
    
21.         axlVisibleLayer("via class/top" t)
    
22.         axlVisibleLayer("drc error class/top" t)
    
23.         axlVisibleLayer("etch/top" t)
    
24.         ;;设置层可见
    0 ^+ F! V5 G2 g
25.         axlVisibleLayer("board geometry/soldermask_top" t)
    ' }( G) q: X8 Y8 `5 K3 W9 T% V
26.         axlVisibleLayer("board geometry/silkscreen_top" t)
    3 B/ I+ S/ q7 F$ e
27.         axlVisibleLayer("board geometry/outline" t)
    
28.         axlVisibleLayer("board geometry/design_outline" t)
    / Q9 {8 j3 y" l: T  x& ^
29.         axlVisibleLayer("package geometry/silkscreen_top" t)
    9 P0 [) F9 E0 y
30.         axlVisibleLayer("package geometry/soldermask_top" t)
    
31.         ;;生效
    : O1 Y2 d" h6 |2 X  W: M% l
32.         axlVisibleUpdate(nil)
    ( ~5 p' n: f5 P; s5 e
33. ))
    0 i8 j$ f- D" C; s
34. 
    2 v, m% j0 D: G5 b5 R5 h7 N' {
35. procedure(dbSetBtmLayer()
    
36. (let ()
    ! z' u% ?. A. \0 n
37.         ;;清空所有层
    
38.         axlVisibleDesign(nil)
    
39. 
    
40.         ;;设置层可见
    
41.         axlVisibleLayer("via class/soldermask_bottom" t)
    
42.         axlVisibleLayer("pin/bottom" t)
    
43.         axlVisibleLayer("via class/bottom" t)
    / l/ n8 x( {3 M( ?; d5 c
44.         axlVisibleLayer("drc error class/bottom" t)
    2 n+ p/ ^' J  ?6 a4 H3 T
45.         axlVisibleLayer("etch/bottom" t)
    + Q, u  o0 j9 ^/ N( a3 h; L0 ?
46.         ;;设置层可见
    $ |+ N: B( r% k: b* Q! e! H
47.         axlVisibleLayer("board geometry/soldermask_bottom" t)
    
48.         axlVisibleLayer("board geometry/silkscreen_bottom" t)
    2 W4 ]: b( O) D7 v' z
49.         axlVisibleLayer("board geometry/outline" t)
    
50.         axlVisibleLayer("board geometry/design_outline" t)
    8 F0 [) ?# u4 \' L2 I! R
51.         axlVisibleLayer("package geometry/silkscreen_bottom" t)
    % M; c( d1 i# \5 t! w" g
52.         axlVisibleLayer("package geometry/soldermask_bottom" t)
    
53.         ;;生效
    
54.         axlVisibleUpdate(nil)
    9 o- [7 H  d( y# I
55. ))

复制代码

db-_-

切换层

# {1 X6 K! y: I9 b, E

1. ;;v1.2 添加注释
   
2. ;;v1.1 整理结构
   
3. ;;v1.0 初稿
   0 O+ k: P% S/ k: w% w* w
4. axlCmdRegister("nextlayer" 'dbNextLayer)
   
5. axlCmdRegister("lastlayer" 'dbLastLayer)
   
6. ;;---------------------------------------------------------
   
7. ;;change_layer.il
   5 x5 ?2 S2 a  m" \" t
8. ;;指令：nextlayer 和 lastlayer
   
9. ;;功能：从第一层开始，让所有的非地层轮流显示。
   + _& l0 e4 c0 E+ x* N( r% P/ m9 l
10. ;;描述：v1.2
    0 U# r  Z1 b1 s# w  r1 e% [9 t
11. ;;  系统默认的+和-是用来轮循当前激活层（Active Class and Subclass），可以改成这个。
    ( T" ?- l  Q! y; Q/ t" F7 u
12. ;;  该命令不改变当前激活层，而是改变可见层。
    7 s9 G. E! ~  `1 V
13. ;;  15.2未测试
    . Z/ ]* G4 c7 [3 V) W( V
14. ;;---------------------------------------------------------
    
15. 
    
16. temp_curLayer = nil        ;全局变量，
    
17. 
    $ {9 `9 j1 l) f; s: B" N/ d. _3 v
18. procedure(dbNextLayer()
    ' J. l, ^$ _' H5 P( D
19. (let ()
    
20.         _dbSetLayerVisible("Next")
    
21. ))
    
22. 
    / C  C- A" G; @! k: c
23. procedure(dbLastLayer()
    " i' K: j! z( ~* o
24. (let ()
    
25.         _dbSetLayerVisible("Last")
    
26. ))
    
27. 
    
28. ;;设置层显示
    ; _1 S% s! `- G# Z* v0 H& o
29. procedure(_dbSetLayerVisible(direction)
    ; J$ L# c* A, V' X
30. (let (item allLayers itemClass)
    9 z: g# B4 T" F: G- B. D, M
31. 
    
32.         foreach(item axlSubclasses("etch")        ;获取etch class下的的所有subclass的字符串
    1 A  K+ b% T- Z8 o' N% F
33.                 unless(index(item "GND")        ;把字符串不含GND的层先收集起来
    
34.                         allLayers = cons(item allLayers)        ;收集
    
35.                 )
    
36.         )
    
37.         allLayers = reverse(allLayers)        ;因为cons是在list开头增加，所有颠倒一下
    
38. 
    + Z4 B; v( d( U8 r8 R5 i
39.         when(allLayers
    ( E" K7 ?4 S$ T) d" q
40.                 temp_curLayer = _dbSearchLayer(allLayers direction)        ;获取下一个要显示的层
    / Z8 r9 \8 @; d* K* P
41.                 axlVisibleDesign(nil)        ;关闭所有层显示
    
42.                 foreach(itemClass '("pin" "via class" "drc error class" "etch")
    
43.                         axlVisibleLayer(strcat(itemClass "/" temp_curLayer) t)        ;打开这些层
    * d; X1 P( B/ Y! a4 j( E
44.                 )
    
45.                 axlVisibleUpdate(nil)        ;刷新层显示
    
46.         )
    
47. ))
    
48. 
    
49. ;;寻找下一个要显示的层
    
50. procedure(_dbSearchLayer(allLayers direction)
    
51. (let (curIndex nextIndex)
    
52.        
    - P* d3 B: F4 e. d0 w) D+ r* l
53.         if(temp_curLayer then
    
54.                 curIndex = lindex(allLayers temp_curLayer)        ;计算当前层在所有层中的序号
    
55.                 if(direction == "Next" then                ;如果是NEXT，序号就+1
    
56.                         nextIndex = curIndex + 1
    
57.                         when(nextIndex > length(allLayers)        ;当序号超出list的长度，自动恢复到list开头
    
58.                                 nextIndex = 1
    6 l/ R, u! V/ j3 A
59.                         )
    - g: a: g% x& c# x; l
60.                 else
    
61.                         nextIndex = curIndex - 1        ;如果是LAST，序号就-1
    
62.                         when(nextIndex < 1
    
63.                                 nextIndex = length(allLayers)        ;当序号小于1，自动恢复到list尾
    ( v" t# K4 S" u
64.                         )
    % z. ~$ z8 h% u
65.                 )
    0 B6 ?. M3 n% h0 P, }* H# ^& Z
66.                 temp_curLayer = nthelem(nextIndex allLayers)        ;根据序号，计算下一个层的层名
    
67.         else
    
68.                 temp_curLayer = car(allLayers)        ;如果第一次运行，就显示第一层
    
69.         )
    " e  U- u1 h) _; D9 s! T4 C
70.         temp_curLayer                ;运行的最后一行表示返回值。这一行写不写都行，if和else里面最后一行本来就返回temp_curLayer了。
    
71. ))
    
72. 
    
73. 
    
74.        

复制代码