|
|
本帖最后由 laikelang 于 2011-5-30 03:33 编辑 , J* ?& R0 D% x- D9 G0 g
/ L9 L. U$ L. T
可以用Skill实现，和PADS一样，用po命令切换显示。
* z' V, \; \. _$ X0 O8 y+ y0 K0 _& \1 V1 H& Z' K
axlCmdRegister("layertoggle" '_LCSetLayTog ?cmdType "general")
) C3 P$ e8 @( j0 Q: l' k2 JaxlSetAlias( "po", "layertoggle shape_outline")( J9 ]; z- G( l
3 S* q8 n: k( R8 E7 n1 }+ P
procedure( layertoggle( @rest layer)- D% q- x2 u1 {5 h
_LCSetLayTog( layer)
" Y2 ^' p8 A1 |0 a);end-procedure
3 A( s0 a. v' _+ W7 V$ r2 s7 [6 e2 g9 c2 {4 n; }3 O D* F. d3 V+ {2 @1 G
defun( _LCSetLayTog ( layer), w' C; k; n2 y# O* h$ S3 V, q7 o
prog( ()+ {7 n u- O q I5 _ W2 ^3 j
case( layer& D# ~- L6 T# x0 }
( "shape_outline"
0 g3 u5 x; n* L) `$ [8 E! x1 } if( axlGetVariable( "no_shape_fill") then
4 W# k' s4 [$ E) n9 l axlUnsetVariable("no_shape_fill"); T9 f/ E: e0 D# [5 m4 u" b" b
axlMsgPut( "Turn on shape outline.")9 B* [' l) H' {) j. i
else
( a, \( ?1 _; S3 e% U6 T r$ Y axlSetVariable( "no_shape_fill", t)9 p( ~% |9 {" g0 F) p8 I% g
axlMsgPut( "Turn off shape outline.") m* Q* A( N' G% H) H+ P! R3 M
);end-if5 X7 I- ?" E# z
);case
2 v, V( r# `4 ~1 d' J );end-case% e7 b4 s$ J) I! j1 O5 a! t, I! L8 M
axlVisibleUpdate( t)
; H# W$ X/ `* c1 d. K+ k);end-prog, n( m) L, p$ I6 O2 F% W
);end-defun% x' o# G3 O) v7 k9 W% n
$ B) X* z, P9 N$ i) |/ D0 n% {9 p. ` E+ m Y" D. M
|
|
/1 
发表于 2011-5-28 12:34
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
微信
收藏
支持！
反对！
楼主
少复制了个换行符，已经修改。
发表于 2011-5-28 13:13