Allegro中实现PADS无模Z命令层面切换（源码）

laikelang · 发表于 2011-5-28 15:32

EDA365欢迎您！

您需要登录才可以下载或查看，没有帐号？注册

x

在Command命令行中输入
L<n> [n] [n]...
n表示所在层序列，支持多层输入。例:显示第1,3层 Command > L1 3回车

axlCmdRegister("layernumvisible" 'layernumvisible ?cmdType "general")

procedure( layernumvisible( @rest num)
  _LCSetNumLayVis( num)
);end-procedure

;###########################################################
;#                number layer visible                   #
;###########################################################

defun( _LCSetNumLayVis ( lnum, @optional msg)
prog( ( class, i, n, layer)
  n = 0
  ln = nil
  foreach( enum, lnum
         num = atoi( enum)
         if( num then
            if( num <= axlGetParam( "paramLayerGroup:ETCH") -> nChildren && num > 0 then
               class = nthelem( num axlGetParam( "paramLayerGroup:ETCH") -> groupMembers)
               i = makeVector( 11 nil)
               i[0] = axlGetParam( "paramLayerGroup:ANTI ETCH") -> visible != nil
               i[1] = axlGetParam( "paramLayerGroup:BOUNDARY") -> visible != nil
               i[2] = axlGetParam( "paramLayerGroup:ROUTE KEEPOUT") -> visible != nil
               i[3] = axlGetParam( "paramLayerGroup:VIA KEEPOUT") -> visible != nil
               i[4] = axlIsVisibleLayer( "BOARD GEOMETRY/CONSTRAINT_AREA")
               i[5] = axlIsVisibleLayer( "ROUTE KEEPIN/ALL")
               i[6] = axlIsVisibleLayer( "ROUTE KEEPOUT/ALL")
               i[7] = axlIsVisibleLayer( "DRC ERROR CLASS/ALL")
               i[8] = axlIsVisibleLayer( "VIA KEEPOUT/ALL")
               i[9] = axlIsVisibleLayer( "ANTI ETCH/ALL")
               i[10] = axlIsVisibleLayer( "BOUNDARY/ALL")
               if( n == 0 then
                     axlVisibleDesign( nil)
                  else
                     axlVisibleSet( layer)
                  );end-if
               axlVisibleLayer( "BOARD GEOMETRY/OUTLINE", t)
               axlVisibleLayer( strcat( "ANTI ETCH/", class), i[0])
               axlVisibleLayer( strcat( "BOUNDARY/", class), i[1])
               axlVisibleLayer( strcat( "ROUTE KEEPOUT/", class), i[2])
               axlVisibleLayer( strcat( "VIA KEEPOUT/", class), i[3])
               axlVisibleLayer( "BOARD GEOMETRY/CONSTRAINT_AREA", i[4])
               axlVisibleLayer( "ROUTE KEEPIN/ALL", i[5])
               axlVisibleLayer( "ROUTE KEEPOUT/ALL", i[6])
               axlVisibleLayer( "DRC ERROR CLASS/ALL", i[7])
               axlVisibleLayer( "VIA KEEPOUT/ALL", i[8])
               axlVisibleLayer( "ANTI ETCH/ALL", i[9])
               axlVisibleLayer( "BOUNDARY/ALL", i[10])
               axlVisibleLayer( strcat( "PIN/", class), t)
               axlVisibleLayer( strcat( "VIA CLASS/", class), t)
               axlVisibleLayer( strcat( "DRC ERROR CLASS/", class), t)
               axlVisibleLayer( strcat( "ETCH/", class), t)
               if( class == "TOP" || class == "BOTTOM" then
                     axlVisibleLayer( strcat( "PACKAGE GEOMETRY/SILKSCREEN_", class), t)
                  );end-if
               n++
               ln = append1( ln num)
               else
               if( num == 0 then
                     if( n == 0 then
                        axlVisibleDesign( nil)
                        axlVisibleLayer( "BOARD GEOMETRY/OUTLINE" t)
                        class = nil
                        n++
                        ln = append1( ln num)
                     );end-if
                  else
                     axlMsgPut( "E- The %d etch layer is not exist.", num)
                  );end-if
               );end-if
            else axlMsgPut( "E- %L is not number.", enum)
         );end-if
         if( n != 0 then layer = axlVisibleGet())
      );end-foreach
  if( n == 1 && class then axlSetActiveLayer( strcat( "ETCH/", class)))
  if( n != 0 && ! msg then
   axlVisibleUpdate( t)
   msg = ""
   foreach( n ln
            sprintf(layer "%d", n)
            if( msg == "" then msg = layer else msg = strcat( msg, " ", layer))
         );end-foreach
   axlMsgPut( "The %s etch layer display.", msg)
);end-if
);end-prog
);end-defun

;###########################################################
;#                customize shortcut key                #
;###########################################################

prog( ( n, s, key)
  n = 0
  while( n < 255
      sprintf(key "l%d", n)
      sprintf(s "layernumvisible %d", n)
      axlSetAlias( key, s)
      sprintf(key "L%d", n)
      sprintf(s "layernumvisible %d", n)
      axlSetAlias( key, s)
      n++
   );end-while
);end-prog