|
本帖最后由 laikelang 于 2011-5-30 03:33 编辑
5 w L$ W" x. O) Y, @. G8 d: e
" K9 q* t5 H5 c/ n) l9 P7 B可以用Skill实现,和PADS一样,用po命令切换显示。
$ F/ `. M- F% s) p5 e5 T# J& h! @" \- t7 c9 K9 p% o o
axlCmdRegister("layertoggle" '_LCSetLayTog ?cmdType "general") v$ j5 o8 B9 Z; K& @
axlSetAlias( "po", "layertoggle shape_outline")
0 J7 X T% Z/ S/ s6 z, {' ^ m( x- B$ r' Z. m7 Z
procedure( layertoggle( @rest layer)
6 [6 q, D3 L& P* Z _LCSetLayTog( layer)
t# o. q' j. ^! Q);end-procedure5 C" p# ^7 I' h6 H# o: _+ l
0 l2 p0 p7 E# J/ p' {: \# ]defun( _LCSetLayTog ( layer)
* q% e" w( \! m! ^1 r/ c' ]! {4 Iprog( ()- Y q+ y5 I9 f4 T' A! b
case( layer
& v, H9 P. v" ^& d ( "shape_outline"
1 y: b5 _& L& f9 w ]3 l if( axlGetVariable( "no_shape_fill") then
, L) f' Y* }) K7 e0 H: t axlUnsetVariable("no_shape_fill")7 I! C3 |" P# t. E
axlMsgPut( "Turn on shape outline.")) G8 c1 P, }: w2 I/ \0 ]
else0 J) T) r# K3 S. ]( J5 U1 C
axlSetVariable( "no_shape_fill", t)( W: J+ _7 @; l& Z
axlMsgPut( "Turn off shape outline.")( H; _! t0 ~' u
);end-if
1 Y" l' R$ {6 [) p a# z );case
2 M3 g& R. p; J5 {3 @* v3 O' K );end-case
! ?% S& |4 J2 S$ v% W1 p axlVisibleUpdate( t)
; g0 S4 h( H% J) H+ _4 B);end-prog
$ C+ n! {- h# `);end-defun0 x2 P$ F" _) h2 |" F
. b+ d" e& a4 g, E
. B6 K: i; I+ M/ v
|
|