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

powermill01

DIALOGS MESSAGE OFF
DIALOGS ERROR OFF
GRAPHICS LOCK
VIEW MODEL ; SHADE RAINBOW
EDIT MODEL ALL DESELECT ALL
2 B" M' `' F! h. T. z//平坦面 黄色
EDIT SELECTUNDERCUT MODEL ALL FORM SELECTUNDERCUT
9 r" L) A& Z0 Y; P; t3 ^2 c1 wVIEW MODEL ; UCANGLE "90"
EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE YES
' E+ g! [  j% qEDIT SELECTIONTOOLS INCLUDE_PARTIALS NO
3 k8 a5 V6 U, ~FORM APPLY SELECTUNDERCUT
VIEW MODEL ; UCANGLE "-90"
FORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
1 o4 D: g: S6 U2 M8 `    IF i>0 {
1 g, \0 p7 x. l3 h      EDIT MODEL $Model.Name COLOUR RGBSELECT
8 \# k. v# \8 J: i. D9 W      RGB 1.00000 1.00000 0.00000
( r% d( \8 ~% H9 k5 L8 g. C    }
1 }+ n4 ?2 O& B& N, e0 E' C2 p}
' v* w& k0 h0 L  eEDIT MODEL ALL DESELECT ALL
/ V: N* _* F0 G- z( V; ]//垂直面 紫色
VIEW MODEL ; UCANGLE "0"
FORM APPLY SELECTUNDERCUT
: g2 Z# K2 }: z* x1 b" }. EFOREACH Model IN FOLDER('Model') {
$ M$ f' q/ g7 E: [: P- z    INT i =number_selected(Model.Components)
1 P. j- i; T( }) L1 A    IF i>0 {
0 m* y2 @- E, ^& u      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 0.50196 0.00000 1.00000
. h0 |- H$ O0 j% E    }
" M# o* e7 F$ E9 g% z}
. K, C5 V! D- }& ~7 l! vEDIT MODEL ALL DESELECT ALL
2 G4 W0 N: U& C& E. x0 z4 o//倒扣面 红色
VIEW MODEL ; UCANGLE "-0.01"
EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE NO
$ L: ^- U3 d  A% }1 hEDIT SELECTIONTOOLS INCLUDE_PARTIALS YES
FORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
8 Y9 a- M6 @7 L; d9 T* r    INT i =number_selected(Model.Components)
    IF i>0 {
+ ?: E/ j  N, ^  U1 b: ], X      EDIT MODEL $Model.Name COLOUR RGBSELECT
7 J6 A1 B* @! R% e: n2 x# r      RGB 1.00000 0.00000 0.00000
    }
5 U+ R) Q( h, F" D5 X1 r. t}
# W6 j( U" G+ M, WFORM ACCEPT SELECTUNDERCUT
EDIT MODEL ALL DESELECT ALL
8 }9 ^( r% F' z- d6 x% j//曲面
% l$ x9 x8 g7 A2 f! W/ hEDIT SELECTION SMART NO FORM MODELSELECT
1 d) ?8 h- T( k; a. DEDIT SELECTION APPROXIMATE 'web'
EDIT SELECTION MODEL FILTER "255,0,0"
EDIT SELECTION MODEL FILTER "255,255,0"
; j/ V; Y' D: Y( h7 W) }EDIT SELECTION MODEL FILTER "128,0,255"
FORM CANCEL MODELSELECT
FOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
/ z* @: k9 h- g    IF i>0 {
5 F/ X7 }% M: a      EDIT MODEL $Model.Name SELECT INVERT ALL
% ?/ S) h  U- w      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 0.50196 1.00000 1.00000
    }
, k1 c7 S) L) C; Y}
EDIT MODEL ALL DESELECT ALL
EDIT SELECTUNDERCUT MODEL ALL FORM SELECTUNDERCUT
VIEW MODEL ; UCANGLE "-90"
EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE YES
3 Q4 k4 Z7 p6 O3 eEDIT SELECTIONTOOLS INCLUDE_PARTIALS NO
' l$ I$ S: _- @  Y+ EFORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
- j/ ^2 M( b8 ]$ I0 |2 m% J    IF i>0 {
) D1 H1 M4 D5 @- g      EDIT MODEL $Model.Name COLOUR RGBSELECT
! `' r8 t% q2 k, k: ]      RGB 1.00000 1.00000 0.00000
" N( Z5 o3 W& S( X# H    }
0 p+ m0 x4 w, I( c! ?  r0 Z}
! s0 X' r7 L, Y( v1 ^FORM ACCEPT SELECTUNDERCUT
EDIT MODEL ALL DESELECT ALL
DIALOGS MESSAGE ON
DIALOGS ERROR ON
3 j. V9 ^5 r  B# U4 fGRAPHICS UNLOCK

杨旭锋

附件弄好了
你自己改路径吧