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

powermill01

DIALOGS MESSAGE OFF
  D/ ~- P9 w* `$ q6 SDIALOGS ERROR OFF
/ @. e8 z+ L* N2 i9 X' s% ?* @GRAPHICS LOCK
VIEW MODEL ; SHADE RAINBOW
( I* }: X0 n3 YEDIT MODEL ALL DESELECT ALL
//平坦面 黄色
9 w1 M+ K% L* {# E8 @EDIT SELECTUNDERCUT MODEL ALL FORM SELECTUNDERCUT
6 U1 [) W4 e* D5 l9 R' C* JVIEW MODEL ; UCANGLE "90"
+ _8 L& r& {, O  X: o& a4 G8 }EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE YES
7 |6 v  W( G: q+ w9 vEDIT SELECTIONTOOLS INCLUDE_PARTIALS NO
FORM APPLY SELECTUNDERCUT
; _( I$ g2 Y5 \- ~VIEW MODEL ; UCANGLE "-90"
FORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
3 i! D: ]2 Q9 f" F4 E! ]! Z    INT i =number_selected(Model.Components)
" E& B$ A! {: e8 p    IF i>0 {
0 |3 z! X4 `9 j# Z8 V. W( h      EDIT MODEL $Model.Name COLOUR RGBSELECT
* a: C" a( W4 @6 L$ J8 D      RGB 1.00000 1.00000 0.00000
$ l7 x8 G; V  c' n* Z  @0 q    }
}
% T- q+ r+ r+ p% C6 y3 {EDIT MODEL ALL DESELECT ALL
//垂直面 紫色
VIEW MODEL ; UCANGLE "0"
1 i* [! U& G# t; x( w: p% Z9 NFORM APPLY SELECTUNDERCUT
1 I4 K' x$ a+ g9 SFOREACH Model IN FOLDER('Model') {
. c! P5 H9 E: p! K; Z    INT i =number_selected(Model.Components)
1 G" @0 s  K5 v# t0 m3 K* F    IF i>0 {
% ?4 F" R% a# B9 W      EDIT MODEL $Model.Name COLOUR RGBSELECT
5 r) m( _  C5 Q5 T      RGB 0.50196 0.00000 1.00000
0 p; w) P* w; u( ~. \5 Y7 p4 m7 V    }
}
EDIT MODEL ALL DESELECT ALL
//倒扣面 红色
# _  }& i- ?/ R% FVIEW MODEL ; UCANGLE "-0.01"
EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE NO
  ]1 p( l1 Z" K. YEDIT SELECTIONTOOLS INCLUDE_PARTIALS YES
! C% M8 S- Z: q3 H2 hFORM APPLY SELECTUNDERCUT
; `: P# s, W2 e' U3 ?4 AFOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
5 t) I3 M  c2 _6 ]5 ]    IF i>0 {
      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 1.00000 0.00000 0.00000
7 w' I; q# v; P4 R    }
}
FORM ACCEPT SELECTUNDERCUT
EDIT MODEL ALL DESELECT ALL
//曲面
EDIT SELECTION SMART NO FORM MODELSELECT
+ J1 v; D( n- P  ~5 J" s! o, ^, eEDIT SELECTION APPROXIMATE 'web'
EDIT SELECTION MODEL FILTER "255,0,0"
EDIT SELECTION MODEL FILTER "255,255,0"
/ O, x  R3 a1 q/ T6 kEDIT SELECTION MODEL FILTER "128,0,255"
FORM CANCEL MODELSELECT
4 M) r+ i  k! t& mFOREACH Model IN FOLDER('Model') {
- J. r, g6 K! b    INT i =number_selected(Model.Components)
    IF i>0 {
      EDIT MODEL $Model.Name SELECT INVERT ALL
0 _  }9 {1 i. v7 |0 T+ h  a* D$ ?      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 0.50196 1.00000 1.00000
: I/ L/ ?0 P* ]/ o7 ]& p# Y    }
}
% o* \0 ]9 K, b3 x7 Q& VEDIT MODEL ALL DESELECT ALL
EDIT SELECTUNDERCUT MODEL ALL FORM SELECTUNDERCUT
8 |: R: C3 v5 n6 T7 Z' p! e! wVIEW MODEL ; UCANGLE "-90"
EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE YES
EDIT SELECTIONTOOLS INCLUDE_PARTIALS NO
& d% ^& U7 X. w5 E0 IFORM APPLY SELECTUNDERCUT
+ |4 U' r. F) Q' i9 K7 p: [FOREACH Model IN FOLDER('Model') {
; U9 |3 p# v5 {! u9 T    INT i =number_selected(Model.Components)
& @1 u5 t) R( V% d! D' n0 O/ w    IF i>0 {
; n6 ]: l* z. L7 K" s      EDIT MODEL $Model.Name COLOUR RGBSELECT
2 ?. b( b% O* \      RGB 1.00000 1.00000 0.00000
    }
6 {8 _1 E  n! Z/ [}
! A. y4 K$ E# q/ P" QFORM ACCEPT SELECTUNDERCUT
EDIT MODEL ALL DESELECT ALL
. I1 G: s# u$ ~) @8 y( t) g2 w  s5 DDIALOGS MESSAGE ON
- K2 W& C! _4 G$ Y( z& S, qDIALOGS ERROR ON
' N/ ]# L: a9 m; j1 `! h: gGRAPHICS UNLOCK

杨旭锋

附件弄好了
$ P5 V" M2 Z$ |  e你自己改路径吧