|
|
本帖最后由 laikelang 于 2011-5-30 03:33 编辑
) F: Y9 i8 h9 k1 `0 F( m0 s, W- t* N% f4 `/ j& T
可以用Skill实现，和PADS一样，用po命令切换显示。
' R; W' e$ R) B* g* A6 y* o( s- R8 i( S: N# ?- j) u3 ~
axlCmdRegister("layertoggle" '_LCSetLayTog ?cmdType "general")- N; t8 s5 n+ a9 q( u" F: t$ k
axlSetAlias( "po", "layertoggle shape_outline")
# [5 i% g8 V4 z/ C5 }. ^8 I& R4 i5 V; _4 u3 n& u
procedure( layertoggle( @rest layer)' K: b/ e7 R) T
_LCSetLayTog( layer)
% X | O; B* u6 l);end-procedure9 ]% R" u% K7 P3 M d; m
$ m d" O% f# o& c' gdefun( _LCSetLayTog ( layer)
3 F c1 H" q! w# i) q1 Oprog( ()% z7 H+ ^% |" M( P8 Q* w2 a' U% S _
case( layer
" Y( J, ~# Y" X$ ], g ( "shape_outline"
9 g" B) l& K. o# N if( axlGetVariable( "no_shape_fill") then( S; Y1 x! D$ U Y# p
axlUnsetVariable("no_shape_fill")
# y0 l& b0 @( `1 a* O( j) c r0 H# @8 [ axlMsgPut( "Turn on shape outline.")$ C! P n3 U0 v0 p3 p: b7 S0 B
else3 @+ Q, _1 \& `0 {* a4 J( H
axlSetVariable( "no_shape_fill", t)
! }4 K$ S9 T( f0 a- M3 F: U axlMsgPut( "Turn off shape outline.")
+ y& N$ i8 f0 v& h! Y/ P );end-if! k W d! T! x+ N
);case6 ^0 Z8 P' q' k
);end-case% X9 E% {, e3 H3 r
axlVisibleUpdate( t)
+ P1 z; Z; I+ Y+ I" L);end-prog
- z7 R" w a; V- K! y9 U6 H( W/ O);end-defun' N& a$ V5 O2 g$ a( g
- z& F. Z4 }6 z0 X& E$ }
9 e9 G! ], O+ w* I' n" G6 V; ]; w
|
|
/1 
发表于 2011-5-28 12:34
收藏
淘帖
支持！
反对！
发表于 2011-5-28 13:13
楼主
少复制了个换行符，已经修改。
