二次开发-更改颜色

ming347732211

$$ 更改颜色

" d9 g; _5 j* U/ C# J* QENTITY/obj(1000)
NUMBER/col(17)
DATA/col,1,124,106,87,211,103,181,108,6,$
3 J# z9 K0 w4 v) C" `) T" c( s186,60,29,60,77,125,199,125

8 K+ E. z. W/ Q( z+ j, ]  o2 Cstart:

L01:
          choose/'选择类型',$
             '改线色','改面色',$
% ~% [& f/ ^5 l) H              '改体色 材质颜色',resp
$ P4 O6 ]8 T# _+ {  z! n% x6 N         jump/l01:,hal:,,,l10:,l20:,l30:,resp
         
! o% s; M. R" d1 z! dl10:  
            choose/'选择线型的颜色' ,$
/ |  W- `! q$ c( x, F" z, Q/ S; B" Q                 '改为   1色 ',$
; ?' ~6 \9 E2 G8 ]* n& W                 '改为 124色 ',$
2 s6 O. j) r+ t# Q& Z                 '改为 106色 ',$
7 A% ?4 g. b3 t                 '改为  87色 ',$
& {1 G0 z8 e+ [7 ^9 i' D                 '软料刀口 211色 ',$
                 '硬料刀口 103色 ',$
- S5 L0 f6 e$ T. p2 D                 '初始线 误检 181色 ',$
                 '尺寸线 108色 ',$
( x: y$ V' P  q  f( L                 '冲床台面   6色 ',$
+ g" A0 @9 V1 E3 U1 F; n: s                 '折弯线 186色 ',$
" Y8 y6 Q" S% U& p. t4 P                           DEFLT,1,rsp1
            jump/l01:,hal:,,,l101:,l101:,l101:,rsp1
           
9 n7 y" X, M( A* X' ]l101:  
- I+ q; B" l) X, G5 N* d% L# w           k=col(rsp1-4)

  g# ]9 I, B$ Q  Z2 P& ~" O           mask/3
- O, J$ G' Z6 m
    ident/'选择要改色的线型',obj,cnt,nm,rsp2
# n7 D$ b( x5 r& ?2 ^    jump/start:,hal:,,,rsp2

1 \8 R( K4 }9 w/ `" }% ?5 p; t1 Q           do/l102:,i,1,nm  
           &color(obj(i))=k
3 X; y" H; ?" m+ x# `! i
' M+ f& x2 Y7 Y  C  F2 pk=col(rsp1-4) 是不是指定DATA/COL 处的颜色，如何指定到另外一排的颜色呢
  e3 L& T9 L5 I! p' R3 e. _+ K
# l1 o1 O& B! ?) S2 V9 {3 r

ming347732211

没人解决吗