这个变颜色的宏怎么添加到右键菜单？整好久都没搞定

powermill01

DIALOGS MESSAGE OFF
DIALOGS ERROR OFF
" w/ y; b' j4 i& [GRAPHICS LOCK
VIEW MODEL ; SHADE RAINBOW
' B" m2 |4 r% @; ZEDIT MODEL ALL DESELECT ALL
1 _* z; r6 n* F  _, h# q# A//平坦面 黄色
EDIT SELECTUNDERCUT MODEL ALL FORM SELECTUNDERCUT
VIEW MODEL ; UCANGLE "90"
EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE YES
( f- @' ?) u" U! }EDIT SELECTIONTOOLS INCLUDE_PARTIALS NO
! T, w  r7 z( g9 b; O- NFORM APPLY SELECTUNDERCUT
VIEW MODEL ; UCANGLE "-90"
5 b; p$ o! @) J& }FORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
    IF i>0 {
& Q: b- U9 o* [5 W& ]. N      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 1.00000 1.00000 0.00000
) r6 [, b2 t8 g  r: V    }
" c; P4 x! e. E7 k3 _( t8 R3 y}
9 G3 N6 T$ H4 {$ D( g- X& FEDIT MODEL ALL DESELECT ALL
//垂直面 紫色
) U8 {8 Y2 l5 T2 m8 j' D' {% j+ zVIEW MODEL ; UCANGLE "0"
+ D" X: @# i. M/ WFORM APPLY SELECTUNDERCUT
: f# g' l0 h$ {2 q' e* T; SFOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
    IF i>0 {
4 d9 _0 v+ w9 f. l3 t, _      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 0.50196 0.00000 1.00000
3 H5 R! u1 n& [    }
4 {6 a) Q/ L$ S$ P$ i4 v" j}
EDIT MODEL ALL DESELECT ALL
//倒扣面 红色
VIEW MODEL ; UCANGLE "-0.01"
% S2 c4 W& ^. r; Y2 XEDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE NO
4 j( e6 G4 \+ ]5 u5 EEDIT SELECTIONTOOLS INCLUDE_PARTIALS YES
+ U/ [. K3 V$ }9 a/ W( sFORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
& d) p% W3 O2 M9 C    IF i>0 {
      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 1.00000 0.00000 0.00000
, j  A1 T& ^7 u$ S1 N0 L9 p* J    }
; ]- N" T# ]' B; O6 p# C}
' g# v: l  W9 @FORM ACCEPT SELECTUNDERCUT
EDIT MODEL ALL DESELECT ALL
//曲面
& @% P- b9 l/ O0 H. TEDIT SELECTION SMART NO FORM MODELSELECT
EDIT SELECTION APPROXIMATE 'web'
EDIT SELECTION MODEL FILTER "255,0,0"
EDIT SELECTION MODEL FILTER "255,255,0"
EDIT SELECTION MODEL FILTER "128,0,255"
FORM CANCEL MODELSELECT
FOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
    IF i>0 {
      EDIT MODEL $Model.Name SELECT INVERT ALL
      EDIT MODEL $Model.Name COLOUR RGBSELECT
% U( o( J* k' Z' [! O      RGB 0.50196 1.00000 1.00000
, f) E" [0 K- F4 L; {    }
}
2 \( R9 r4 O1 cEDIT MODEL ALL DESELECT ALL
EDIT SELECTUNDERCUT MODEL ALL FORM SELECTUNDERCUT
VIEW MODEL ; UCANGLE "-90"
EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE YES
+ i) a  m: ?# C% e# P$ HEDIT SELECTIONTOOLS INCLUDE_PARTIALS NO
FORM APPLY SELECTUNDERCUT
5 Q; e, w# E+ c9 ]; zFOREACH Model IN FOLDER('Model') {
3 Y0 L) M6 n8 l' B    INT i =number_selected(Model.Components)
! l1 f8 x3 E- f: K( {6 N    IF i>0 {
      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 1.00000 1.00000 0.00000
3 b2 z0 |0 l& `2 K' F6 U    }
- |6 g1 g7 q. E}
FORM ACCEPT SELECTUNDERCUT
EDIT MODEL ALL DESELECT ALL
DIALOGS MESSAGE ON
DIALOGS ERROR ON
" K* [( M3 [' e. e, L$ M  hGRAPHICS UNLOCK
/ E; a) Y+ [. G4 p* e* K

杨旭锋

附件弄好了
7 h1 j9 [+ ?2 ~$ V+ j7 E7 ?你自己改路径吧