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

powermill01

DIALOGS MESSAGE OFF
, h4 x: w; h2 K: z1 o" n( lDIALOGS ERROR OFF
GRAPHICS LOCK
6 `! Z0 t. b. W- S3 }( LVIEW MODEL ; SHADE RAINBOW
EDIT MODEL ALL DESELECT ALL
//平坦面 黄色
EDIT SELECTUNDERCUT MODEL ALL FORM SELECTUNDERCUT
* }6 ~; y9 a6 p* }& ?4 t+ b- kVIEW MODEL ; UCANGLE "90"
" r, e. r2 U0 l9 i& N9 u- i& xEDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE YES
EDIT SELECTIONTOOLS INCLUDE_PARTIALS NO
FORM APPLY SELECTUNDERCUT
# \( D: E/ L+ Q! X' p% O$ AVIEW MODEL ; UCANGLE "-90"
FORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
    IF i>0 {
      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 1.00000 1.00000 0.00000
    }
}
EDIT MODEL ALL DESELECT ALL
- }* {# M7 w! f//垂直面 紫色
VIEW MODEL ; UCANGLE "0"
' K9 r# x$ y" [% \- YFORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
6 Q: Q$ [+ _+ _# p1 b/ O5 a# t    INT i =number_selected(Model.Components)
8 c/ y& D# T7 Z* g8 ^    IF i>0 {
      EDIT MODEL $Model.Name COLOUR RGBSELECT
" C+ t% Y4 G+ D# u' C5 E. \      RGB 0.50196 0.00000 1.00000
    }
}
  @7 [  l& v, b4 _7 R$ kEDIT MODEL ALL DESELECT ALL
1 i7 R; N. S  g( l6 K4 J/ q: M//倒扣面 红色
VIEW MODEL ; UCANGLE "-0.01"
EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE NO
EDIT SELECTIONTOOLS INCLUDE_PARTIALS YES
7 n0 z' l8 G. @$ jFORM APPLY SELECTUNDERCUT
) i8 U* B! |9 t6 p% R0 {: DFOREACH Model IN FOLDER('Model') {
- U' H9 \8 N3 B    INT i =number_selected(Model.Components)
    IF i>0 {
# J2 |" e: R3 O3 K& e( }3 s      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 1.00000 0.00000 0.00000
    }
}
FORM ACCEPT SELECTUNDERCUT
EDIT MODEL ALL DESELECT ALL
//曲面
EDIT SELECTION SMART NO FORM MODELSELECT
EDIT SELECTION APPROXIMATE 'web'
  `4 Y7 K) q1 o7 W& ~" t, yEDIT SELECTION MODEL FILTER "255,0,0"
8 ?# s* i" b/ T5 @/ i; }3 ZEDIT SELECTION MODEL FILTER "255,255,0"
. l+ f: s9 g6 `8 BEDIT SELECTION MODEL FILTER "128,0,255"
. N) i& U4 z; @+ U9 }9 ?FORM CANCEL MODELSELECT
+ ?* @# P/ m$ r3 i8 dFOREACH Model IN FOLDER('Model') {
! U# v1 d9 q/ f  f7 d, _    INT i =number_selected(Model.Components)
    IF i>0 {
      EDIT MODEL $Model.Name SELECT INVERT ALL
8 `2 a! D/ _' ~4 T. `6 L8 `. K      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 0.50196 1.00000 1.00000
    }
, B) s) }# H/ G( ]2 p9 v}
, \% Y2 p( g% D% f; L8 v! N' rEDIT MODEL ALL DESELECT ALL
EDIT SELECTUNDERCUT MODEL ALL FORM SELECTUNDERCUT
VIEW MODEL ; UCANGLE "-90"
EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE YES
9 c$ @" S( z) g. nEDIT SELECTIONTOOLS INCLUDE_PARTIALS NO
9 X2 g; [  }8 L* K: {, b! EFORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
  l$ r  P6 @3 g' h; e    INT i =number_selected(Model.Components)
    IF i>0 {
      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 1.00000 1.00000 0.00000
, o6 [' N) O9 u& B. Y# v    }
}
FORM ACCEPT SELECTUNDERCUT
. i3 L$ D1 e: f' X3 [  m+ SEDIT MODEL ALL DESELECT ALL
DIALOGS MESSAGE ON
DIALOGS ERROR ON
+ R: Z. \7 {& K& f% wGRAPHICS UNLOCK
- }% z/ \5 o  [3 d* Y$ ~6 c* ]

杨旭锋

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