|
|
本帖最后由 laikelang 于 2011-5-30 03:33 编辑 9 ]& R* o5 z# F6 S) ?
7 s0 z' l. f( |4 b. z
可以用Skill实现，和PADS一样，用po命令切换显示。/ L, G! h6 V0 o( y( D9 k
. `. B/ l Z, b6 w- W
axlCmdRegister("layertoggle" '_LCSetLayTog ?cmdType "general")
/ Z& L& B' e8 x2 C6 \/ Y FaxlSetAlias( "po", "layertoggle shape_outline")- }' X! r4 Y+ ?5 N+ A
! a& y0 B( R) M' _3 d0 f3 A
procedure( layertoggle( @rest layer)
8 h5 U- d: l( a8 I; O% x2 M: x8 E. X _LCSetLayTog( layer)
$ \' g: E3 j2 x9 m" m3 v);end-procedure
, s- k7 a5 n0 n# s: P& d2 [6 l, Z7 h9 T
defun( _LCSetLayTog ( layer)& _1 V; [ v1 Q6 A j+ X3 d6 l
prog( ()) X O. V s+ e- ^
case( layer
# k# ]0 ]) k# v; z) a ( "shape_outline"
- T4 ]/ b3 Z |3 H" |! b$ f2 P if( axlGetVariable( "no_shape_fill") then
n. }6 |* c) Y3 `& v: B axlUnsetVariable("no_shape_fill")
4 T. t2 c n9 d7 \7 j! C axlMsgPut( "Turn on shape outline.")
, i2 r2 v' Q. u* V else- F) q) |& ^ J# r
axlSetVariable( "no_shape_fill", t)- m' C' [& U/ J: e. M8 s; G
axlMsgPut( "Turn off shape outline.")
; z$ M4 H7 I: {/ o5 _% {6 X1 ^ );end-if
+ Z; _9 `3 c S) m: u9 L );case
3 r' ~# Z' I' ^) `( Z) v4 ] );end-case/ j7 l- Q u: S/ K' ]+ u9 T9 l: y
axlVisibleUpdate( t) . C* Q; z6 v, o1 B- u [# ^
);end-prog, N5 A1 ~0 h2 k1 k0 L W
);end-defun. n4 w5 V0 Y. A8 X
7 l% k v3 W+ ~: }4 S! j4 S3 D& {* \" e, N U
|
|
/1 
发表于 2011-5-28 12:34
收藏
淘帖
支持！
反对！
发表于 2011-5-28 13:13
楼主
少复制了个换行符，已经修改。
