|
|
本帖最后由 laikelang 于 2011-5-30 03:33 编辑 % g& C E D& t4 Z
! @6 v! y. O) x/ K) L) n可以用Skill实现，和PADS一样，用po命令切换显示。
0 ~' v# Y) n, |. i* h1 g" n3 m8 W, O5 |
axlCmdRegister("layertoggle" '_LCSetLayTog ?cmdType "general")0 x. ^& ^; {+ c& [. A
axlSetAlias( "po", "layertoggle shape_outline")
* n A9 x/ j' u% J/ |, T, e G/ P. @: V! E9 E
procedure( layertoggle( @rest layer)
% I% T3 y3 z* S3 P _LCSetLayTog( layer)
6 _2 e7 Y4 {0 `; @$ I+ h- `$ h; N);end-procedure
5 i" G4 j: j6 }- }
8 X& ~3 y& A4 h" Tdefun( _LCSetLayTog ( layer)
- T7 D1 y7 @7 n7 U( K5 t) B# ?prog( ()
+ \9 H, T0 o; {& l7 h case( layer
. d) O/ P) f$ |1 Z, G( [ ( "shape_outline"; N9 u. _5 W# G R5 N, p+ ]
if( axlGetVariable( "no_shape_fill") then+ G: g: b H' Z0 C; t3 v2 p: O
axlUnsetVariable("no_shape_fill")& r" w# i2 g) U" E
axlMsgPut( "Turn on shape outline.")' Z5 @' |! |% @( B/ q: L9 ?
else
7 Q M9 G. t7 Y, m7 {% O axlSetVariable( "no_shape_fill", t)
( T X9 e9 Q/ j% i( ~$ O1 {/ f- b axlMsgPut( "Turn off shape outline.")2 D' V, p1 ], m* Z8 q
);end-if, \7 w! ?0 l8 }5 [- T. t+ k7 t
);case7 H# H: l* e0 V7 v( l- Z. ` l" j0 w
);end-case+ m* M1 S& I; T) |
axlVisibleUpdate( t)
' R$ c# q, q8 h2 F' P: E; Y) X3 _);end-prog9 M* M4 {5 D+ V
);end-defun
. Z u; b3 j' `" P
4 J5 z3 {3 v- O4 F6 H( l! {7 T9 ^/ Q; H
|
|
/1 
发表于 2011-5-28 12:34
收藏
淘帖
支持！
反对！
发表于 2011-5-28 13:13
楼主
少复制了个换行符，已经修改。
