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

powermill01

DIALOGS MESSAGE OFF
DIALOGS ERROR OFF
0 y5 |; S+ B4 @! n1 ?3 R- FGRAPHICS LOCK
VIEW MODEL ; SHADE RAINBOW
" E' c' t& x$ ^% rEDIT MODEL ALL DESELECT ALL
* q9 k- ~1 n; @* [* m' \% h) T) r//平坦面 黄色
EDIT SELECTUNDERCUT MODEL ALL FORM SELECTUNDERCUT
VIEW MODEL ; UCANGLE "90"
EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE YES
- n9 E2 L$ A( ^* ~6 ?' QEDIT SELECTIONTOOLS INCLUDE_PARTIALS NO
FORM APPLY SELECTUNDERCUT
1 q2 @; _, u- g4 w, b. ?VIEW MODEL ; UCANGLE "-90"
% F8 A5 m1 v( v2 i9 s' d6 FFORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
/ _; M. x6 M4 s5 j7 ?9 @    IF i>0 {
  }: Y8 T% m; Y6 K0 v; W8 f      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 1.00000 1.00000 0.00000
9 Y1 y% P: T6 u0 ?/ J    }
9 D: ~1 ~8 O) I1 o( f4 `}
EDIT MODEL ALL DESELECT ALL
0 b" r5 g- e/ z( n7 i( h//垂直面 紫色
VIEW MODEL ; UCANGLE "0"
FORM APPLY SELECTUNDERCUT
2 v* d$ o+ z( \0 B. Y3 qFOREACH Model IN FOLDER('Model') {
5 e; ~8 b# K( O; G  G    INT i =number_selected(Model.Components)
( [, P3 I( Q) O5 z. S* u0 w! Q    IF i>0 {
      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 0.50196 0.00000 1.00000
    }
}
* k8 ]3 M6 n- c) ^EDIT MODEL ALL DESELECT ALL
3 D. }1 ^5 M: y* y+ C8 [//倒扣面 红色
! ~0 b$ Z$ ^0 p" ~) w; tVIEW MODEL ; UCANGLE "-0.01"
' Z0 X' ^9 ?1 h- |' q; S0 ~7 TEDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE NO
( v/ T  p# ~" k9 \! g6 EEDIT SELECTIONTOOLS INCLUDE_PARTIALS YES
FORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
/ ^0 {: T+ B9 i  P    INT i =number_selected(Model.Components)
    IF i>0 {
5 A( t" b6 n. V/ z+ v7 O      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 1.00000 0.00000 0.00000
    }
* U/ g. R" \! ~: \& R3 c0 Y( D5 p5 j}
FORM ACCEPT SELECTUNDERCUT
/ `' F. e1 N1 w4 }* e% ?EDIT MODEL ALL DESELECT ALL
. a; ^8 p5 @6 U* ?' H2 L//曲面
EDIT SELECTION SMART NO FORM MODELSELECT
EDIT SELECTION APPROXIMATE 'web'
; s1 @3 K- |+ e1 x* e7 gEDIT SELECTION MODEL FILTER "255,0,0"
EDIT SELECTION MODEL FILTER "255,255,0"
EDIT SELECTION MODEL FILTER "128,0,255"
: I; ?/ K* \# a4 x1 [3 d% ^FORM CANCEL MODELSELECT
5 f5 u% W! e) d5 JFOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
9 C" z" I0 J+ L. b2 E7 V    IF i>0 {
- \  `( V- }* q7 p: v& g      EDIT MODEL $Model.Name SELECT INVERT ALL
% P: y" s! G$ T5 p: s0 j      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 0.50196 1.00000 1.00000
    }
6 A% P& K+ T  c7 d" h}
9 ^9 f- _- O6 j1 b; d$ aEDIT MODEL ALL DESELECT ALL
+ t( N( r+ ^, y4 j, X& ~# CEDIT SELECTUNDERCUT MODEL ALL FORM SELECTUNDERCUT
VIEW MODEL ; UCANGLE "-90"
  I  g8 b* o8 c- U0 NEDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE YES
* Y7 i0 e% e& ^/ d! U9 dEDIT SELECTIONTOOLS INCLUDE_PARTIALS NO
. }6 T! c/ n1 @* a7 bFORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
( z$ _, `: R; g% N: o5 k$ `# \    INT i =number_selected(Model.Components)
    IF i>0 {
      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 1.00000 1.00000 0.00000
" G7 E3 A1 _2 A5 a% S7 G4 w    }
}
  V0 y0 {- o5 U  y4 y. i& M% FFORM ACCEPT SELECTUNDERCUT
EDIT MODEL ALL DESELECT ALL
: \3 z( `# O. a" D; d2 Q0 e& w7 A5 gDIALOGS MESSAGE ON
DIALOGS ERROR ON
9 I$ p  |) D6 F: g/ EGRAPHICS UNLOCK
) f) n& f1 a( p7 |% D

杨旭锋

附件弄好了
+ x: d" J- q9 d# K! h3 @7 z你自己改路径吧