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

powermill01

DIALOGS MESSAGE OFF
1 W7 t/ s" L" `  I$ BDIALOGS ERROR OFF
GRAPHICS LOCK
1 y! X7 q* V( P* n6 Z6 Z& pVIEW MODEL ; SHADE RAINBOW
EDIT MODEL ALL DESELECT ALL
3 j2 `5 F7 S" L0 ^$ G/ R9 `+ V//平坦面 黄色
4 \9 p& v' P3 `  FEDIT SELECTUNDERCUT MODEL ALL FORM SELECTUNDERCUT
3 d' P# G4 S/ E% }VIEW MODEL ; UCANGLE "90"
" o8 _' N" ]/ q& l# g4 `0 qEDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE YES
! F. ^9 ]7 G2 K+ R# E4 h' W* KEDIT SELECTIONTOOLS INCLUDE_PARTIALS NO
3 X' w0 v: X* p- D8 H- kFORM APPLY SELECTUNDERCUT
VIEW MODEL ; UCANGLE "-90"
* I; @% u3 z8 `6 q# [FORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
    IF i>0 {
# _1 |% `' I2 s- W2 A  b      EDIT MODEL $Model.Name COLOUR RGBSELECT
' o: J  F2 g' j. I, t  P      RGB 1.00000 1.00000 0.00000
    }
}
& U; v+ {- U6 _! ?EDIT MODEL ALL DESELECT ALL
//垂直面 紫色
VIEW MODEL ; UCANGLE "0"
FORM APPLY SELECTUNDERCUT
; q1 G5 x4 k- T- o, zFOREACH Model IN FOLDER('Model') {
, o  ~5 v! m0 o* c& ^) i    INT i =number_selected(Model.Components)
* ~0 F% c0 Z$ ]# X) ]    IF i>0 {
      EDIT MODEL $Model.Name COLOUR RGBSELECT
0 g& A6 q8 W  n& D( F      RGB 0.50196 0.00000 1.00000
    }
}
" Y. b% k4 u/ @8 k1 J: cEDIT MODEL ALL DESELECT ALL
//倒扣面 红色
VIEW MODEL ; UCANGLE "-0.01"
& i+ M  _. m- [- LEDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE NO
5 o4 W8 q- s$ }, xEDIT SELECTIONTOOLS INCLUDE_PARTIALS YES
/ {  l6 O5 D8 T4 tFORM APPLY SELECTUNDERCUT
. Y8 q, R. t* UFOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
    IF i>0 {
      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 1.00000 0.00000 0.00000
* p# U1 A% J1 B    }
: F: k0 `3 M$ f5 v* z}
6 i- Y; U2 f" W0 p% h, yFORM ACCEPT SELECTUNDERCUT
' {7 N  C: C# K# a' OEDIT MODEL ALL DESELECT ALL
//曲面
EDIT SELECTION SMART NO FORM MODELSELECT
4 i, m& Z" M+ N! YEDIT SELECTION APPROXIMATE 'web'
& f9 _4 s* z7 eEDIT SELECTION MODEL FILTER "255,0,0"
1 T& n* P/ u) A# PEDIT SELECTION MODEL FILTER "255,255,0"
EDIT SELECTION MODEL FILTER "128,0,255"
FORM CANCEL MODELSELECT
8 X( P" K' R" f, m  u% bFOREACH Model IN FOLDER('Model') {
8 I7 u* e& E1 `' w4 J. V! T    INT i =number_selected(Model.Components)
    IF i>0 {
( F4 Z2 c2 {+ Y4 @      EDIT MODEL $Model.Name SELECT INVERT ALL
0 v) m! B; W+ t$ Q8 P  p& `2 U/ ^      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 0.50196 1.00000 1.00000
2 w: x. C+ p: q" Z' [4 ~& x    }
}
- k8 T" Q  J0 p4 GEDIT MODEL ALL DESELECT ALL
EDIT SELECTUNDERCUT MODEL ALL FORM SELECTUNDERCUT
, @) y" B, c6 J/ n2 W/ k# `8 ZVIEW MODEL ; UCANGLE "-90"
EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE YES
/ m% R! V( s' WEDIT SELECTIONTOOLS INCLUDE_PARTIALS NO
% ^5 r" U. u+ z+ W( EFORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
    IF i>0 {
- C: }7 Q( J$ \" t# M      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 1.00000 1.00000 0.00000
    }
}
. k, y. V' x, w7 MFORM ACCEPT SELECTUNDERCUT
( X4 S2 W2 T9 U3 xEDIT MODEL ALL DESELECT ALL
$ `/ x. x, F! x: ~8 r2 A% |DIALOGS MESSAGE ON
DIALOGS ERROR ON
/ L2 n) a/ _3 D3 B+ ?: G. JGRAPHICS UNLOCK

杨旭锋

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