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

db-_-

复制代码到记事本，保存为任意名.il，在%HOME\\pcbenv\allegro.ilinit中load "文件名.il",在env中funckey t laytop。
' ~* v2 H' [( N7 q

1. ;;v1.0 初稿
   
2. axlCmdRegister("laytop" 'dbSetTopLayer ?cmdType "general")
   
3. axlCmdRegister("laybtm" 'dbSetBtmLayer ?cmdType "general")
   9 v8 x' w& t* V. C
4. ;;---------------------------------------------------------
   
5. ;;set_layer_visible.il
   
6. ;;指令：laytop 和 laybtm
   
7. ;;功能：只显示TOP层或者BOTTOM层
   2 L* D0 f' O' o5 N  ?
8. ;;描述：v1.0
   
9. ;;  可自行修改代码中的CLASS/SUBCLASS
   
10. ;;  15.2未测试
    0 C; }( H+ [7 s9 p$ @
11. ;;---------------------------------------------------------               
    
12.                
    
13. procedure(dbSetTopLayer()
    0 {8 A5 h8 a7 R1 y' U
14. (let ()
    5 [( S* d  Y" t7 A
15.         ;;清空所有层
    
16.         axlVisibleDesign(nil)
    % O& j8 O3 B9 F( v
17. 
    2 n, J7 s* M* j6 N
18.         ;;设置层可见
    - K1 m4 t% J  x; P# T6 \0 K5 D. R
19.         axlVisibleLayer("via class/soldermask_top" t)
    6 @1 S2 {/ E7 p! `: `0 X* i
20.         axlVisibleLayer("pin/top" t)
      f3 M4 ]. H" o# v& M( I* r
21.         axlVisibleLayer("via class/top" t)
    
22.         axlVisibleLayer("drc error class/top" t)
    
23.         axlVisibleLayer("etch/top" t)
    
24.         ;;设置层可见
    8 Y- Y5 {8 a2 _6 v
25.         axlVisibleLayer("board geometry/soldermask_top" t)
    
26.         axlVisibleLayer("board geometry/silkscreen_top" t)
    
27.         axlVisibleLayer("board geometry/outline" t)
    + ]2 |& ^( m$ x# D5 M
28.         axlVisibleLayer("board geometry/design_outline" t)
    2 G* D9 G1 d6 g4 h
29.         axlVisibleLayer("package geometry/silkscreen_top" t)
    
30.         axlVisibleLayer("package geometry/soldermask_top" t)
    * T, C* _( T$ @( N: M
31.         ;;生效
    ! ?; H$ h  W1 p/ G3 I6 p: H' V
32.         axlVisibleUpdate(nil)
    # c. R6 ~. y! ~) n
33. ))
    
34. 
    
35. procedure(dbSetBtmLayer()
    
36. (let ()
    - N* |) y0 l! s. O& h/ H: u% ?
37.         ;;清空所有层
    
38.         axlVisibleDesign(nil)
    ! s5 A) t9 M; [0 ~7 F0 J& a* Y
39. 
    
40.         ;;设置层可见
    " n& z; e  A! Z0 v/ p8 h  N( d
41.         axlVisibleLayer("via class/soldermask_bottom" t)
    : w" j. G6 A) m" y3 I& d1 D
42.         axlVisibleLayer("pin/bottom" t)
    + W# R$ S) s3 y2 Y) X
43.         axlVisibleLayer("via class/bottom" t)
    
44.         axlVisibleLayer("drc error class/bottom" t)
    
45.         axlVisibleLayer("etch/bottom" t)
      {! J+ V0 U* s3 S2 H8 s& j
46.         ;;设置层可见
    ) T0 T- k$ `2 Q% p/ N' S7 a. V, v" L
47.         axlVisibleLayer("board geometry/soldermask_bottom" t)
    
48.         axlVisibleLayer("board geometry/silkscreen_bottom" t)
    
49.         axlVisibleLayer("board geometry/outline" t)
    4 s9 s( N! B: W+ v9 @: M+ r
50.         axlVisibleLayer("board geometry/design_outline" t)
    
51.         axlVisibleLayer("package geometry/silkscreen_bottom" t)
    ; L2 p7 r, b! @
52.         axlVisibleLayer("package geometry/soldermask_bottom" t)
    # J1 W2 J5 x3 r4 \4 O
53.         ;;生效
    # U: f& m4 r% w  p
54.         axlVisibleUpdate(nil)
    4 f# C9 Q  E( U; m
55. ))

复制代码

db-_-

切换层
: Q% L7 D, b& O' T
$ a8 O' J+ Z6 {; _, B

1. ;;v1.2 添加注释
   
2. ;;v1.1 整理结构
   
3. ;;v1.0 初稿
   ; P! }5 f0 h: u5 `! o7 v5 N' a
4. axlCmdRegister("nextlayer" 'dbNextLayer)
   . }7 H8 c2 G# I  f8 b
5. axlCmdRegister("lastlayer" 'dbLastLayer)
   
6. ;;---------------------------------------------------------
   5 V* h$ b! ^; I! y" o* D
7. ;;change_layer.il
   ' C5 {! @1 V! p' L- C& N4 L
8. ;;指令：nextlayer 和 lastlayer
   
9. ;;功能：从第一层开始，让所有的非地层轮流显示。
   
10. ;;描述：v1.2
    
11. ;;  系统默认的+和-是用来轮循当前激活层（Active Class and Subclass），可以改成这个。
    * `8 e7 V7 \& F# R! W
12. ;;  该命令不改变当前激活层，而是改变可见层。
    3 Q+ I  _% L. P1 S
13. ;;  15.2未测试
    
14. ;;---------------------------------------------------------
    
15. 
    
16. temp_curLayer = nil        ;全局变量，
    + u2 ^+ N' r2 B( f* Q4 s
17. 
    
18. procedure(dbNextLayer()
    ; R! S0 _: }  k; }: [
19. (let ()
    
20.         _dbSetLayerVisible("Next")
    # Q$ V5 m5 {& S5 V
21. ))
    , u2 P& o  D, T7 J8 S6 s
22. 
    
23. procedure(dbLastLayer()
    2 x6 _: `6 q; y3 h6 y. ]% n- r
24. (let ()
    
25.         _dbSetLayerVisible("Last")
    
26. ))
    
27. 
    
28. ;;设置层显示
    
29. procedure(_dbSetLayerVisible(direction)
    8 f2 @5 `# N- ?, h& J9 `
30. (let (item allLayers itemClass)
    
31. 
    : ]1 \9 v  N. [0 T5 s4 j7 l, r
32.         foreach(item axlSubclasses("etch")        ;获取etch class下的的所有subclass的字符串
    
33.                 unless(index(item "GND")        ;把字符串不含GND的层先收集起来
    % d0 I3 Z" m* t5 z' k! D+ G
34.                         allLayers = cons(item allLayers)        ;收集
    
35.                 )
    
36.         )
    $ v& L) w6 M4 ]  T  U& V
37.         allLayers = reverse(allLayers)        ;因为cons是在list开头增加，所有颠倒一下
    ! e6 v* h' W5 f9 W" i* R; [4 C
38. 
    
39.         when(allLayers
    / U: k7 Y! f0 Z: e  r  M
40.                 temp_curLayer = _dbSearchLayer(allLayers direction)        ;获取下一个要显示的层
    
41.                 axlVisibleDesign(nil)        ;关闭所有层显示
    
42.                 foreach(itemClass '("pin" "via class" "drc error class" "etch")
    ; o" ~- e6 X. P- }8 x- v
43.                         axlVisibleLayer(strcat(itemClass "/" temp_curLayer) t)        ;打开这些层
    6 N: }2 {" G) J/ p
44.                 )
    8 c3 q# s5 A& x- N5 Z/ G
45.                 axlVisibleUpdate(nil)        ;刷新层显示
    
46.         )
    
47. ))
    ' P1 Z& W" H* b5 `, f# @
48. 
    + h# V1 K+ G$ G4 H
49. ;;寻找下一个要显示的层
    5 v  f: B4 L( r
50. procedure(_dbSearchLayer(allLayers direction)
    
51. (let (curIndex nextIndex)
    
52.        
    ' y& h; P8 d5 v& k
53.         if(temp_curLayer then
    - r& c0 b- k7 Q) z
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
    
59.                         )
    7 s+ [! e) B! F% n4 X- b! _
60.                 else
    
61.                         nextIndex = curIndex - 1        ;如果是LAST，序号就-1
    / A- A. e& @8 N6 e; W# |5 A5 Q7 q
62.                         when(nextIndex < 1
    5 K1 t9 z) o2 x9 a# B1 w. a: Y
63.                                 nextIndex = length(allLayers)        ;当序号小于1，自动恢复到list尾
    
64.                         )
    
65.                 )
    
66.                 temp_curLayer = nthelem(nextIndex allLayers)        ;根据序号，计算下一个层的层名
    7 e  F$ [% L5 n5 X5 H/ C
67.         else
    * J5 `+ A' {' j
68.                 temp_curLayer = car(allLayers)        ;如果第一次运行，就显示第一层
    
69.         )
    
70.         temp_curLayer                ;运行的最后一行表示返回值。这一行写不写都行，if和else里面最后一行本来就返回temp_curLayer了。
    ( N1 ?; O7 z+ I& r
71. ))
    1 a3 v" o/ E2 V" Y
72. 
    
73. 
    3 N+ w; s# I1 S9 x* I( q; m
74.        

复制代码